Excel VBA質問箱 IV

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

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


34162 / 76738 ←次へ | 前へ→

【47788】Re:行の削除について
お礼  初心者 E-MAIL  - 07/3/22(木) 15:59 -

引用なし
パスワード
   ▼りん さん:
>▼初心者 さん:
>>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 回答

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