VBAループで2行目を削除して空白になったら終了がうまくいかない

質問

• VBAのループで2行目を削除し、その後の行が上に詰められるようにする方法について質問です。
• ループが3行目以下の行を削除し、2行目が空白になったら終了するようにしたいです。
• 回答にはExcel 2010を使用する前提で、複数のシートで作業できるようにする方法をご教示ください。

回答No.6

watabe007 · ベストアンサー

行の削除は下から行うと楽ですよ
Sub Test()
　　Dim j As Long, LastRow As Long

　　Sheets("◆抽出先 (提灯)").Select
　　LastRow = Cells(Rows.Count, "A").End(xlUp).Row
　　For j = LastRow To 2 Step -1
　　　　If Cells(j, 1).Value = "" Then Rows(j).Delete Shift:=xlUp
　　Next
End Sub
>※複数シートでの作業が出来る記述でおねがいします。
Sub Test2()
　　Dim j As Long, LastRow As Long
　　Dim sh As Variant

　　For Each sh In Sheets(Array("◆抽出先 (提灯)", "Sheet1", "Sheet2"))
　　　　LastRow = sh.Cells(Rows.Count, "A").End(xlUp).Row
　　　　For j = LastRow To 2 Step -1
　　　　　　If sh.Cells(j, 1).Value = "" Then sh.Rows(j).Delete Shift:=xlUp
　　　　Next
　　Next
End Sub

お礼

違う方法で解決したのですが、下からの削除は
考えもしなかったです。

次回に使えそうです。

ありがとうございます。

他の回答していただいた方もありがとうございました！！