
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
-
4
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
5
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
6
Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです
Visual Basic(VBA)
-
7
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
8
エクセルで空白以外のセルの値を取りたいのですが
その他(Microsoft Office)
-
9
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
10
VBA 空白行に転記する
Visual Basic(VBA)
-
11
Excel VBA 空白セルがあったらメッセージボックスで知らせたい
Visual Basic(VBA)
-
12
Excel テーブル内の空白行の削除
その他(Microsoft Office)
-
13
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
14
EXCEL VBA で指定した範囲に入力があるかどうか?
Visual Basic(VBA)
-
15
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
16
空白セルをとばして転記
Visual Basic(VBA)
-
17
数式による空白を無視して最終行までコピーするマクロ
Excel(エクセル)
-
18
空白行がある場合削除 マクロ
Excel(エクセル)
-
19
エクセルvbaで、別シートの最下行にデータを取り込むコードを教えてください。
Visual Basic(VBA)
-
20
セルに値が入っていた時の処理
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
IF関数で空欄("")の時、Null...
-
エクセルでCSVを編集するとき、...
-
「データ要素を線で結ぶ」がチ...
-
エクセル 連番が途切れていると...
-
エクセルで入力すると隣のセル...
-
色つき行の一括削除は?
-
空白セル内の数式を残したまま...
-
【画像あり】オートフィルター...
-
Excel > ピボットテーブル「(空...
-
Excel:関数が入っているセルに...
-
Excelで、入力文字の後に自動で...
-
マクロボタンを押すたびに違う...
-
エクセルで空白を無視して一番...
-
3列ごとに合計を出したい
-
エクセルで上の行の値を自動的...
-
【Excel】 Ctrl+方向キー で空...
-
エクセル セルのコピー元が空...
-
エクセルで空白セルを計算させない
-
VBAで空白セルにのみ数値を代入...
-
形式貼り付けの「空白を無視す...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【画像あり】オートフィルター...
-
IF関数で空欄("")の時、Null...
-
エクセルでCSVを編集するとき、...
-
Excel > ピボットテーブル「(空...
-
エクセル 連番が途切れていると...
-
「データ要素を線で結ぶ」がチ...
-
エクセルで入力すると隣のセル...
-
ピボットテーブルで空白セルの...
-
Excel:関数が入っているセルに...
-
Excelで、入力文字の後に自動で...
-
形式貼り付けの「空白を無視す...
-
数式による空白を無視して最終...
-
空白セル内の数式を残したまま...
-
excel2010 空白セルにのみ貼り...
-
関数TRANSPOSEで空白セルを0に...
-
【Excel】 csvの作成時、空白セ...
-
エクセルのIF関数で、隣のセル...
-
エクセル セルのコピー元が空...
-
エクセルで、「複数のセルの中...
-
エクセルで上の行の値を自動的...
おすすめ情報
回答ありがとうございます。
初心者で理解が難しいので、更に質問失礼いたします。
A列は、空白以外のセルには、ABやKFなどのアルファベット2文字ずつか入っています。
その場合、具体的にはどのようになりますでしょうか。
すみません、定数の意味もわからず。。
教えていただけますと嬉しいです。