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

to

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