VBA 从工作表 1 复制列并将粘贴转置到工作表 2 的行中

【问题标题】：VBA copy column from sheet 1 and transpose paste into row in sheet 2VBA 从工作表 1 复制列并将粘贴转置到工作表 2 的行中
【发布时间】：2019-10-04 20:25:33
【问题描述】：

我正在尝试编写一个宏来从 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

【问题讨论】：

查看这里stackoverflow.com/questions/13174916/transpose-a-range-in-vba

标签： excel vba

【解决方案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

【讨论】：

知道了，谢谢，只需将 1 放入 Cells(Rows.Count, 1) 作为 C 列的 3
我没有提到的一件事是这段代码会覆盖，因为它总是粘贴到 A1。