特定のセルが空白だったら、その行を非表示にしたい。。。

質問

Ａ２からＶ５００にデータが入っています。
すべてにデータが入るわけではなくて、
Ｂ列が空白セルの行は、非表示にして印刷をかけたいのですが、可能ですか？
うーん…うまく説明できないー。

回答No.4

nishi6 · ベストアンサー

下記マクロでB列のセルが未入力の行は非表示になります。

標準モジュールに貼り付けます。
Public Sub GyoHihyoji()
Dim rw As Integer
Application.ScreenUpdating = False
For rw = 2 To 500
If Range("B" & rw) = "" Then
Rows(rw).EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub

お礼

うまく動いてくれましたー。
感激。
ありがとうございました。

回答No.3

wonwonwon

詳しい状態がいまいちつかめませんが、
印刷用にもう一つワークシートを作りNull列を除いてコピー
って言うのはどうでしょう？

見当違いなこと言ってたらゴメンナサイ

回答No.2

hitoshipon

ごめんなさい、ＶＢでしたね。
エクセルと勘違いしました。
すみません。。。

お礼

そうでした（^v^'）
またいつか…

回答No.1

hitoshipon

「オートフィルタ」でＢ列が空白のセルを非表示にして印刷するのではダメなんですか？
セルは非表示にしたくないのなら、「条件付き書式」でＢ列が空白の時は行の文字を白にしてみては？