Excel VBA質問箱 IV

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

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


34164 / 76738 ←次へ | 前へ→

【47786】Re:行の削除について
回答  りん E-MAIL  - 07/3/22(木) 15:46 -

引用なし
パスワード
   ▼初心者 さん:
>A1からA700までの欄で空白なら、色をつけて行を削除したいのですが
>色をつけるまでしかできませんでした。
>行を削除するマクロを教えて頂けますでしょうか。
>御忙しい所大変申し訳ございませんが、
>宜しくお願い致します。

削除をするなら色づけはいらないのでは?
EntireRowで範囲を行全体に拡張します。

Sub test()
  Dim r1 As Range
  On Error Resume Next 'エラースキップ
  Set r1 = Range("A1:A700").SpecialCells(xlCellTypeBlanks)
  On Error GoTo 0 'エラーが出たらストップ
  '
  If r1 Is Nothing Then
   MsgBox "空白なし", vbInformation
  Else
   r1.Interior.ColorIndex = 5
   MsgBox "削除"
   r1.EntireRow.Delete '行全体を削除
   Set r1 = Nothing
  End If
End Sub
1 hits

【47783】行の削除について 初心者 07/3/22(木) 15:38 質問
【47784】Re:行の削除について ウッシ 07/3/22(木) 15:43 回答
【47786】Re:行の削除について りん 07/3/22(木) 15:46 回答
【47788】Re:行の削除について 初心者 07/3/22(木) 15:59 お礼
【47814】Re:行の削除について tami 07/3/22(木) 22:17 質問
【47815】Re:行の削除について ウッシ 07/3/22(木) 22:44 発言
【47816】Re:行の削除について tami 07/3/23(金) 7:16 お礼
【47834】Re:行の削除について りん 07/3/23(金) 12:56 回答

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