Excel VBAで行の削除方法

質問

• Excel VBAを使用して行を削除する方法について知りたいです。行を2行ずつ削除し、1行を残す（3行目を残す）という操作を繰り返す方法を教えてください。
• 行の削除には、Excel VBAを使用することができます。具体的には、2行ずつ行を削除し、1行を残す（3行目を残す）という操作をループさせることで実現できます。
• Excel VBAを使って行の削除を行う方法を教えてください。行を2行ずつ削除し、1行を残す（3行目を残す）という処理を繰り返すことで、行の削除を実現することができます。VBA初心者でもわかりやすい説明をお願いします。

回答No.1

jcctaira

Sub 行削除()
　Dim I　　　　　As Long
　Dim 削除行 As Range
　Set 削除行 = Range("A1")
　For I = 1 To Cells(Rows.Count, "A").End(xlUp).Row Step 3
　　Set 削除行 = Union(削除行, Cells(I, "A").Resize(2))
　Next I
　削除行.EntireRow.Delete
End Sub

【処理概要】
削除する行を「削除行」のRange変数に蓄えて、最後に一気に削除します。

【補足説明】
・Cells(Rows.Count, "A").End(xlUp).Row
　入力されている最終行を取得
・Union(削除行, Cells(I, "A").Resize(2))
　2行ずつ「削除行」に範囲を蓄積(A列の行のみ）
・削除行.EntireRow.Delete
　A列だけの行を全行に変更(EntireRow)し削除（Delete)