Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


52386 / 76732 ←次へ | 前へ→

【29185】書式の付いた(パターン色)セルを一度に削除する方法
質問  haramama  - 05/9/27(火) 11:41 -

引用なし
パスワード
   初めての投稿です、よろしくお願いします。
区間ごとに複数列にまたがるセルを等間隔で削除するマクロを
作成中です。
区間ごとに間隔(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

----------------------------------------ここまで

2 hits

【29185】書式の付いた(パターン色)セルを一度に削除する方法 haramama 05/9/27(火) 11:41 質問
【29190】Re:書式の付いた(パターン色)セルを一度... でれすけ 05/9/27(火) 12:32 回答
【29192】Re:書式の付いた(パターン色)セルを一度... haramama 05/9/27(火) 13:15 お礼

52386 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free