|
こんばんわ。
>>1行目 あああああ
>>2行目 いいいいい
>>3行目 ううううう
>>4行目 えええええ
>>5行目 おおおおお
>>6行目 かかかかか
>>7行目 ききききき
>>8行目 くくくくく
>>9行目 けけけけけ
>>10行目 こここここ
>>一気に削除され、上につめられる(1,4,7、10行目が残る)
>>ようなマクロを作成したいです。
該当するセル範囲をオブジェクト変数にセットして、まとめて削除する方法です。
Sub test()
Dim r1 As Range, II As Long
For II = 1 To 10
If II Mod 3 = 1 Then
'1,4,7,10・・・ではなにもしない
Else
If r1 Is Nothing Then
'初回はセット
Set r1 = Cells(II, 1)
Else
'それ以降は合体
Set r1 = Application.Union(r1, Cells(II, 1))
End If
End If
Next
'行全体を削除
r1.EntireRow.Delete
'終了
Set r1 = Nothing
End Sub
こんな感じです。
|
|