プロが教える店舗&オフィスのセキュリティ対策術

教えて下さい。

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

gooドクター

A 回答 (2件)

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

TypeVisible).Select
    • good
    • 0
この回答へのお礼

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

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

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



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

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

SpecialCells(xlCellTypeVisible)

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

選択できればあとはコピーして貼り付けるだけです。
そこは分かりますよね?
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング