
vba エクセルマクロのことで教えてください。
A1 123
A2 234
A3 345
A4 456
A5 567
A6 000
A7 000
A8 000
A9 000
.
.
.
A6セルより下の000となっている行をすべて削除したいです。
Bから右の列のセルにも値が入っていますがA列が000になっている行の情報は必要ないのですべて削除してしまって大丈夫です。
そのときによってAの何行目以下が000になるかはまちまちです。
プログラムを教えてください。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
こんばんは
「000」と表示されているってことから、セル値は文字列限定で良いものと解釈しました。
こんな感じでしょうか?
Sub Sample()
Dim rg As Range, c As Range
For Each c In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
If c.Value = "000" Then
If rg Is Nothing Then Set rg = c Else Set rg = Union(rg, c)
End If
Next c
If Not rg Is Nothing Then rg.EntireRow.Delete
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Vba エクセルマクロで、 A列の、A1セルからA10セルに空白のある行を削除する、のは Range 3 2022/11/05 17:44
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Excel(エクセル) エクセルのA1~A5の任意のセルを選んだら1、A6~A10のセルなら2と返す設定にしたいと思ってます 6 2023/03/20 18:46
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) マクロ セルの選択 5 2022/08/12 22:47
- Excel(エクセル) エクセルの当番表を作っていますが教えてください 4 2023/01/06 12:12
- Visual Basic(VBA) vbaエクセルマクロについて sheet1のA列が空白の場合、行を削除(一番下の最終行まで)するプロ 3 2023/03/03 17:41
- Excel(エクセル) 現時点の年齢を算出して、その年齢と一致したセルを色付けしたい。 4 2022/06/23 17:49
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) エクセルVBAコピー 2 2022/06/08 21:45
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
エクセルVBAで結合セルの真ん中...
-
特定のセルが空白だったら、そ...
-
Excelで指定した日付から過去の...
-
Excel VBA、 別ブックの最終行...
-
エクセルvba:自己セルの情報取...
-
i=cells(Rows.Count, 1)とi=cel...
-
数字でピラミッドを出力させる...
-
DataGridViewの各セル幅を自由...
-
Excel vbaで特定の文字以外が入...
-
DataGridViewで列、行、セルの選択
-
特定の文字を条件に行挿入とそ...
-
【Excel VBA】指定行以降をクリ...
-
Excel VBAで、セルを円状に塗り...
-
3桁または4桁の数値を時刻に...
-
VBAでセルに値が入ったときにイ...
-
Excel VBA マクロ 繰り返し処...
-
[Excel VBA 2003] Worksheet_Ch...
-
置換文字を連番で振りたい
-
VBA SendKeysステートメントに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
i=cells(Rows.Count, 1)とi=cel...
-
Excelで指定した日付から過去の...
-
エクセルvbaで、別シートの最下...
-
特定のセルが空白だったら、そ...
-
VBA実行後に元のセルに戻りたい
-
【Excel VBA】指定行以降をクリ...
-
任意フォルダから画像をすべて...
-
【Excel】指定したセルの名前で...
-
VBAでセルをクリックする回...
-
【VBA】シート上の複数のチェッ...
-
EXCELのVBA-フィルタ抽出後の...
-
Excelのプルダウンで2列分の情...
-
Excel vbaで特定の文字以外が入...
-
TODAY()で設定したセルの日付...
-
”戻り値”が変化したときに、マ...
-
ExcelのVBAで数字と文字列をマ...
-
VBA ユーザーフォーム ボタンク...
-
Excel VBA マクロ ある列の最終...
-
Excel VBA、 別ブックの最終行...
おすすめ情報