VBA复制工作表1的列,并将其粘贴到工作表2的行中

问题描述 投票:0回答:1

我正在尝试编写宏以将数据从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
excel vba
1个回答
0
投票

事物的结合。

((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
© www.soinside.com 2019 - 2024. All rights reserved.