VBA复制和转置数据范围

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

我试图从Sheet1中删除一列（E6：E14）中的数据范围，并在将数据粘贴到Sheet2的A列的下一个可用行之前转置数据。 这是我迄今为止从试验和错误中编写的代码。 每次运行代码时，都会收到运行时错误“1004”。 我正在试图在Sheet2中创build一个“数据库”。 任何帮助都很感激。

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