EXCELVBAで行の削除

質問

WIN98SE　EXCEL2000です。
G列に99の文字があったらその行を削除するというVBAを下記のように作りました。

Dim i As Integer
Dim rowcount As Integer

rowcount = Cells(1,1).CurrentRegion.Rows.Count

For i = 1 To rowcount
If Cells(i, 7) = "99" Then Rows(i).Delete
Next i

これを実行するとG列に99のある行が連続してあると1行おきに削除されます。どこをなおせばよいのか教えてください。よろしくお願いします。

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

削除すると、下の行が1行繰り上がってしまうので、ずれてしまいます。
したがって、Forループは後ろから廻しましょう。

For i = 1 To rowcount
↓
For i = rowcount To 1 Step -1

お礼

うまくいきました。ありがとうございました。