2019年12月9日月曜日

【マクロ】フィルター後に特定列のコピペ



With Sheets("Sheet1")
.Range(.Range("Q2"), .Range("Q" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible).Copy
Sheets("Sheet2").Range("C2").PasteSpecial Paste:=xlPasteValues
End With


.Range(.Range("A2"), .Range("D" &
とすると、A列からD列となる。 

0 件のコメント:

コメントを投稿