| |
こんばんわ。
>>１行目 あああああ
>>２行目 いいいいい
>>３行目 ううううう
>>４行目 えええええ
>>５行目 おおおおお
>>６行目 かかかかか
>>７行目 ききききき
>>８行目 くくくくく
>>９行目 けけけけけ
>>10行目 こここここ
>>一気に削除され、上につめられる（１，４，７、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
こんな感じです。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 08/1/23(水) 21:07 -
