VBA～表示セルだけをコピーしよう～Excel

VBAで行や列が非表示になっているときに表示セルだけをコピーしたい場合はRange.SpecialCellsメソッドで定数xlCellTypeVisibleを指定します。

下のコードを実行すると表示セルのみがコピーされセルA7に貼り付けられます。

Sub test1()

Range("A1:C5").SpecialCells(xlCellTypeVisible).Copy Range("A7")

End Sub