excel - VBA复制和转置数据范围

我正在工作中设置一些电子表格以简化工作。我还是VBA的新手。

我正在尝试从Sheet1的列（E6：E14）中剪切一定范围的数据并转置数据，然后再将数据粘贴到Sheet2的列A的下一个可用行中。这是到目前为止我编写的代码，而不是反复试验。每次我运行代码时，都会收到运行时错误“ 1004”。我正在尝试在Sheet2中创建一个“数据库”。任何帮助都感激不尽。

Sub Test()
    Worksheets("Sheet1").Range("E6:E14").Cut
    Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
End Sub

谢谢您的帮助！

FHY

最佳答案

PasteSpecial在.Cut方法中不可用，但.Copy方法中不可用。当我改变

Worksheets("Sheet1").Range("E6:E14").Cut

至

Worksheets("Sheet1").Range("E6:E14").Copy

一切正常。如果您希望以后删除所有内容，则可以始终执行以下操作：

Sub Test()

Worksheets("Sheet1").Range("E6:E14").Copy

Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True

Worksheets("Sheet1").Range("E6:E14").Clear

End Sub

关于excel - VBA复制和转置数据范围，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/27695660/