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

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

No.4 ベストアンサー 回答者： nishi6 回答日時： 2001/07/20 20:03

下記マクロで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

この回答へのお礼

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

お礼日時：2001/07/31 11:18

No.3 回答者： wonwonwon 回答日時： 2001/07/20 16:14

詳しい状態がいまいちつかめませんが、

印刷用にもう一つワークシートを作りNull列を除いてコピー
って言うのはどうでしょう？

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

No.2 回答者： hitoshipon 回答日時： 2001/07/20 14:50

ごめんなさい、ＶＢでしたね。

エクセルと勘違いしました。
すみません。。。

この回答へのお礼

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

お礼日時：2001/07/20 14:53

No.1 回答者： hitoshipon 回答日時： 2001/07/20 14:48

「オートフィルタ」でＢ列が空白のセルを非表示にして印刷するのではダメなんですか？

セルは非表示にしたくないのなら、「条件付き書式」でＢ列が空白の時は行の文字を白にしてみては？