【Excel VBA】条件つき行削除

質問

Excel2003を使用しています。

システムからCSVで落としたデータで、データの並び方に規則性があるので、それを利用して、不要部分のデータをマクロで削除できないかと思い、質問させていただきます。

A列に『累計』を含む文字があった場合、その行のD列が0だったら、その行より上の行のA列に『計上日』と入力されている行までを削除するということをしたいです。
下記でいうと、2～5行までを削除したいです。

　　　A　　　　　B　　　　　C　　　　　D
1
2　計上日
3
4
5　累計　　　　　　　　　　　　　　　　0
6
7　計上日
8
9　累計　　　　　　　　　　　　　　1000

上記では、B列、C列には何も書いていませんが、実際はデータが入力されていたり、空欄だったりです。
D列が0の行を削除するコードはわかるのですが、さらに、条件が加わっても同じように処理は可能でしょうか？
よろしくお願いします。

回答No.4

imogasi

ロジックの一例
ForNextでやると、行削除は最下行からやるほうが都合がいい。
コード
データのあるシートをアクチブシートにして実行。
Sub tet01()
d = Range("A65536").End(xlUp).Row
For i = d To 2 Step -1
If dl = "Y" And Cells(i, "A") = "計上日" And dl = "Y" Then
'この行が計上日で、累計行　AND　D列０が先にあり（ｄl＝”Y"）なら
MsgBox i & "-" & x & " 削除処理"
Rows(x & ":" & i).EntireRow.Delete
dl = "N" '累計とのペアー待ち状態解消
End If
If Cells(i, "A") = "累計" And Cells(i, "D") = 0 Then
dl = "Y" 'D列０で累計行現れた
x = i 'その行を記憶
End If
Next
End Sub
ーーー
例データ　質問者の意図に沿わない部分があるかも知れないが、ご容赦を
A列　　　B列　　　　　D列
集計 計数
1
計上日
3
4
累計 0＜ーーD列,以下累計の跡の数字はD列
計上日
5
6
累計 11
計上日
7
8
累計 0
12
計上日
13
14
累計 0
15
計上日
16
17
累計 20
計上日
18
累計 1000
ーーー
結果
集計 計数
1
計上日
5
6
累計 11
12
15
計上日
16
17
累計 20
計上日
18
累計 1000
ーー
少数例のテストしかやってないこと、
万一ロジックの不完全があるかも知れないが、コード数は少ないと思う。

お礼

回答ありがとうございます。

>ForNextでやると、行削除は最下行からやるほうが都合がいい。

手元にある参考書にも同様のことが書いてありました。

教えていただいたコードでも、うまくいきました。
MsgBox で、1回1回の削除の状態を確認できて、分かりやすかったです。
ありがとうございました。