vba エクセルマクロのことで教えてください。 A1 123 A2 234 A3 345 A4 45

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 ベストアンサー 回答者： fujillin 回答日時： 2023/01/28 22:02

こんばんは

「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

この回答へのお礼

回答ありがとうございます！
とても嬉しいです。
こちら使わせていただきます。
本当にたすかります！感謝です_(..)_

お礼日時：2023/01/28 22:06