excel -vba 單列複製

Sub 單列複製()

r = ActiveCell.Row

x = r & ":" & r

Rows(x).Select
Selection.Copy

Sheets(2).Select
ActiveSheet.Paste
Application.CutCopyMode = False


End Sub