VBA 從表 1 復制列並將粘貼轉置到表 2 中的行

Question

我正在嘗試編寫一個宏來從 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

Answer 1

幾件事。

(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