|
初めての投稿です、よろしくお願いします。
区間ごとに複数列にまたがるセルを等間隔で削除するマクロを
作成中です。
区間ごとに間隔(m)は異なります。
とりあえず手動で行数と間隔を指定し、削除する
行に色をつけるところまで設定しましたが、
色をつけた部分だけ一度に削除するといったことは
可能でしょうか?
色をつけずに
Selection.Delete shift:=xlUp
と書くと、せり上がってしまうので最初に指定した
範囲後のセルまで削られてしまいます。
そのため色をつけてから、削除をしようかと思いました。
色ではなく特定文字にした方が良いでしょうか?
特殊なデータの処理ですので、ご理解いただけるかどうか
分かりませんが、、、
アドバイス頂けると幸いです。
--------------------------------------ここから
Sheets(1).Select
Dim i, j, k, l, m As Long
k = InputBox("何行目から?")
l = InputBox("何行目まで?")
m = InputBox("何行おき?")
For i = k To l Step m
For j = 18 To 27
Cells(i, j).Select
Selection.Interior.ColorIndex = 15
Next j
Next i
----------------------------------------ここまで
|
|