エクセル非表示VBA

質問

こんばんわ。

エクセル初心者で勉強中です。

今下記画像のようなデータをエクセル2007で作成しています。

データは2行目から1000行目位まであるとします。

そこで質問なのですが、黄色の行のように
その行のすべてのセルの値が空白の場合、行を
非表示にしていくコードはあるのでしょうか。

現在目視で非表示にしているので、できればVBAで素早くしたいのですが。

よろしくお願いします。

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.1

tom04 · ベストアンサー

こんばんは！
一例です。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub test() 'この行から
Dim i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountA(Rows(i)) = 0 Then
Rows(i).Hidden = True
End If
Next i
End Sub 'この行まで

参考になりますかね？m(_ _)m

お礼

tom04さん、ありがとうございました。

完ぺきでした。

助かりました。