VBA 复制和转置数据范围

Question

我正在工作中设置一些电子表格以简化我的工作。我还是 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

Answer 1

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