等間隔に配置されているヘッダー行だけ消すためのExcelVBA

Sub sakujo()</code>

Dim R1 As Long
Dim R2 As Long
Dim i As Integer

For i = 1 To 15000 Step 25 '間隔はstepで

R1 = i
R2 = i + 5  '行の範囲
Rows(R1 &amp; ":" &amp; R2).Select
Selection.Delete Shift:=xlUp

Next

End Sub

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です