「TEST」シートのA2:最終行までの可視セルを「Sheet1」シートのA1にコピー
With Thisworkbook
.Worksheets("TEST").Range("A2:A" &MaxRow).SpecialCells(xlCellTypeVisible).Copy _
.Worksheets("Sheet1").Range("A1")
End with

前へ 次へ

この情報が含まれているまとめはこちら

【VBA】 オートフィルターでの抽出作業【Excel】

オートフィルターでの可視セルのコピーや、絞り込みです。可視セルのみコピーしたい場合や、可視セルのみ数式をコピーしたい場合など様々な場合で使いたいことは多いでしょう!ということでまとめます。(取り急ぎ。 追記予定)

このまとめを見る