EXCELのマクロ 行の非表示

質問

A列に日付、B列に金額を入力した表があります。
「金額欄が0の時、その行を非表示にする」というマクロを組みたいのですが、どのように記述すればよいか教えてください。
よろしくお願いします。

回答No.2

imogasi · ベストアンサー

ある行を非表示にする操作をして、マクロの記録をとります。

後はＡ列が０か　
Ｉｆ　Ｃｅｌｌｓ（ｉ，”Ａ”）＝０　Ｔｈｅｎ
それを各行を繰り返しチェック
Ｆｏｒ　Ｉ＝１　ｔｏ　Ｘ
どこまで繰り返すかは最終行（Ｘ）をどういうコードにすると捕らえられるか。
非表示はRow(i).EntireRow.Hidden = True
ですから

Sub test01()
For i = 2 To Range("A65536").End(xlUp).Row
If Cells(i, "A").Value = 0 Then
Rows(i).EntireRow.Hidden = True
End If
Next i
End Sub

補足

皆様、お礼が遅くなっており申し訳ございません。

仕様が若干変わりまして、行と列が入れ替えることになりました。

それで、「X行にある金額が0の時、その列を非表示にする」ということを、B列からAL列まで適用したいのですが、
どうすればよいか、また、お教えいただけませんか？

どうぞよろしくお願いします。

回答No.1

mshr1962

マクロを組むのですか？オートフィルターですむと思うのですが？
「データ」「フィルター」「オートフィルター」で
B列の先頭の▼をクリックして、「オプション」で
[0][等しくない]
でできます。

これを新しいマクロの記録ででも設定してやれば良いのでは？