
Vba エクセルマクロで、
A列の、A1セルからA10セルに空白のある行を削除する、のは
Range("A1:A10").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
こんな感じだと思いますが、
A列の、A1セルからA10セルが空白ではない行を削除(空白行のみにする)するのはどういうプログラムになりますでしょうか。
また、
A列の、A1セルからA10セルが、「1」となっている行のみを削除するプログラムも教えてほしいです。
よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
こんにちは
空白でないセルが「定数」のみなどのようにわかっているならSpecialCells()メソッドで
xlCellTypeConstants ---定数
xlCellTypeFormulas ---数式のあるセル
のような形で取得すれば、ご提示と同様の方法で可能でしょう。
https://learn.microsoft.com/ja-jp/office/vba/api …
値が「1」のように特定の条件のセルだけを選別したいような場合には、対象セル内をループして個別に判定してゆくしかないと思われます。
For Each c in 対象範囲.Cells
IF cに関する条件式 Then 処理
Next c
※ ご質問のように行を削除する場合は、上からループすると行がずれますので、削除などを行う場合は行番号の大きな方から逆順にループするのが無難です。
あるいは、直接削除は行わずセル内容の確認だけを行っておいて、最後にまとめて削除を行えばループの順は関係なくなります。
とても丁寧な回答をいただきましてありがとうございます。
私には少し難しいですが、理解できるように頑張って勉強したいと思います。
大変感謝しております!
No.3
- 回答日時:
No1です。
>ABやKFなどのアルファベット2文字ずつか入っています。
>その場合、具体的にはどのようになりますでしょうか
「アルファベット2文字」というのが、直接の入力値で関数等で表示しているのでなければ、「定数」と見做せます。
その場合であれば、ご提示の方法を流用して
Range("A1:A10").SpecialCells(xlCellTypeConstants).EntireRow.Delete
で、できるでしょうというのがNo1の回答の前半です。
(空白セルと関数が設定されているセルは残ります)
後半に述べた内容の具体的な例は、No2様が回答なさっていますので、そちらをご覧ください。
追加質問にも回答くださいまして、大変ありがとうございます。
なるほど、こちらで試してみますね!
とてもわかりやすくてたすかりますm(__)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル関数についてお教えください 3 2023/07/24 12:33
- Excel(エクセル) エクセル表作成について 5 2023/03/12 13:25
- Visual Basic(VBA) vba エクセルマクロのことで教えてください。 A1 123 A2 234 A3 345 A4 45 1 2023/01/28 21:21
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) Excelのマクロで、特定のセルから順番に値を取得したい 5 2022/12/06 15:34
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Visual Basic(VBA) vba 隣のセルに値がある行だけ関数をコピー&ペーストしたい A1 100001 A2 100002 1 2023/01/28 14:29
- Excel(エクセル) エクセルのA1~A5の任意のセルを選んだら1、A6~A10のセルなら2と返す設定にしたいと思ってます 6 2023/03/20 18:46
このQ&Aを見た人はこんなQ&Aも見ています
-
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
-
4
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
5
空白セルをとばして転記
Visual Basic(VBA)
-
6
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
7
エクセルで空白以外のセルの値を取りたいのですが
その他(Microsoft Office)
-
8
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
9
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
10
【Excel VBA】複数ある特定の文字列を含む行を削除
Excel(エクセル)
-
11
Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです
Visual Basic(VBA)
-
12
VBA 空白行に転記する
Visual Basic(VBA)
-
13
Excel VBA 空白セルがあったらメッセージボックスで知らせたい
Visual Basic(VBA)
-
14
特定のセルに数値が入っているシートのみ印刷する方法
Excel(エクセル)
-
15
Excel テーブル内の空白行の削除
その他(Microsoft Office)
-
16
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
17
EXCEL VBA で指定した範囲に入力があるかどうか?
Visual Basic(VBA)
-
18
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
19
Excelの空文字セルの削除方法を教えてください
Excel(エクセル)
-
20
エクセルで別シートにリスト化した文字列を含むセルを持つ行を削除する方法を教えてください。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
IF関数で空欄("")の時、Null...
-
「データ要素を線で結ぶ」がチ...
-
エクセル 連番が途切れていると...
-
Excel > ピボットテーブル「(空...
-
エクセルでCSVを編集するとき、...
-
Excelで、入力文字の後に自動で...
-
Excel:関数が入っているセルに...
-
空白セル内の数式を残したまま...
-
エクセルで、「複数のセルの中...
-
エクセルで入力すると隣のセル...
-
Excel 結合した文字列を改行し...
-
エクセルのIF関数で、隣のセル...
-
数式の結果が空白の時の空白扱い
-
excel2010 空白セルにのみ貼り...
-
関数TRANSPOSEで空白セルを0に...
-
エクセルで上の行の値を自動的...
-
EXCELのオートフィルタで空白セ...
-
マクロボタンを押すたびに違う...
-
EXCEL IF関数
-
形式貼り付けの「空白を無視す...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
IF関数で空欄("")の時、Null...
-
エクセルでCSVを編集するとき、...
-
空白セルに斜線(罫線)
-
Excel > ピボットテーブル「(空...
-
Excelで、入力文字の後に自動で...
-
エクセル 連番が途切れていると...
-
ピボットテーブルで空白セルの...
-
「データ要素を線で結ぶ」がチ...
-
Excel:関数が入っているセルに...
-
数式による空白を無視して最終...
-
空白セル内の数式を残したまま...
-
excel2010 空白セルにのみ貼り...
-
【Excel】 csvの作成時、空白セ...
-
エクセルで上の行の値を自動的...
-
エクセルのIF関数で、隣のセル...
-
エクセルで、「複数のセルの中...
-
形式貼り付けの「空白を無視す...
-
関数TRANSPOSEで空白セルを0に...
-
【Excel】 Ctrl+方向キー で空...
-
色つき行の一括削除は?
おすすめ情報
回答ありがとうございます。
初心者で理解が難しいので、更に質問失礼いたします。
A列は、空白以外のセルには、ABやKFなどのアルファベット2文字ずつか入っています。
その場合、具体的にはどのようになりますでしょうか。
すみません、定数の意味もわからず。。
教えていただけますと嬉しいです。