教えて下さい。 B列〜D列に表があります。3行目がタイトル行です。 D列を0以外でフィルターをかけ、

教えて下さい。

B列〜D列に表があります。3行目がタイトル行です。
D列を0以外でフィルターをかけ、B列をコピーしたいです。
コピーはタイトル行は除き、可視セルのみのコピーです。
D4が0のため、フィルターをかけるとB3（タイトル行）の下はB5が可視となっています。
Range("B3").Offset(1,0)とするとB4が選択されてしまいます。B列のタイトル行を除き最終行までの可視セルをコピーするマクロを教えて下さい。
D列の数字は変動します。また行数もその時々で変動します。

No.1 回答者： 銀鱗 回答日時： 2021/09/19 14:18

VBA 可視セルをコピーする方法ですか。

　Range("B4").CurrentRegion.SpecialCells(xlCellTypeVisible).Select

で可視セルを選択できます。

SpecialCells(xlCellTypeVisible)
の
xlCellTypeVisible
これが可視(Visible)セルを選択する引数になります。
以外とよく使う構文ですので、構成を理解しておきましょう。

選択できればあとはコピーして貼り付けるだけです。
そこは分かりますよね？

この回答へのお礼

お礼が遅くなり大変申し訳ございません。
初心者で苦労してます。
教えていただいたやり方でやってみます！

お礼日時：2021/09/22 21:56

No.2 ベストアンサー 回答者： めぐみん_ 回答日時： 2021/09/19 18:38

Range("B4", Cells(Rows.Count, "B").End(xlUp)).SpecialCells(xlCell

TypeVisible).Select

この回答へのお礼

お礼が遅くなり大変申し訳ございません。
ありがとうございました！

お礼日時：2021/09/22 21:57