我正在尝试编写宏以将数据从C列复制到最后一整行,然后将这些数据粘贴到工作表2的第1行中。我无法使代码正常工作。我在代码行粘贴中遇到运行时错误1004。
Option Explicit
Sub ColumnRow()
Dim lRow As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Sheet1").Range("C1" & lRow).Copy
Worksheets("Sheet2").Range("A1").PasteSpecial Transpose:=True
End Sub
事物的结合。
((1)指定lRow
的工作表
(2)范围Range("C1" & lRow)
的语法已关闭-参见下文
Sub ColumnRow()
Dim lRow As Long
lRow = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row 'add sheet ref
Worksheets("Sheet1").Range("C1:C" & lRow).Copy 'specify full range
Worksheets("Sheet2").Range("A1").PasteSpecial Transpose:=True
End Sub