Excelで可視している中に貼り付け

Excelで隠れている行のセルを無視して貼り付けしたいのですがA列みたいに貼り付けしても隠れてしまいC列みたいにできません。単純な質問かもしれないですがどなたか解決策を教えてください。

No.1 ベストアンサー 回答者： よろずやkinchan 回答日時： 2022/03/04 08:53

Option Explicit

Sub Sample()
Dim r As Long, rng As Range
For Each rng In Range("C1:C13").SpecialCells(xlCellTypeVisible)
r = r + 1
rng = Range("E11:E17")(r)
Next rng
End Sub