调换一个范围行

我正在尝试复制范围CW263：DC263，并通过vba粘贴到范围CX269：CX294，但我得到一个错误。

我正在使用这样的代码（它可能在所有工作表中重复）：

Sub copiar_colar_reorganizado() Dim oneRange As Range Dim aCell As Range Dim WS_Count As Integer Dim I As Integer ' Set WS_Count equal to the number of worksheets in the active ' workbook. WS_Count = ActiveWorkbook.Worksheets.Count ' Begin the loop. For I = 1 To WS_Count Set oneRange = Worksheets(I).Range("CZ269:DA294") Set aCell = Worksheets(I).Range("DA269") Worksheets(I).Range("CW263:DV263").Copy Worksheets(I).Range("CX269:CX294").PasteSpecial(Transpose:=True) Next I End Sub 

但是我得到的东西是这样的：它不可能从Range类获得PasteSpecial属性。 如何得到这个？

Answer 1

使复制粘贴两行，并移除转置周围的() ：

  Worksheets(I).Range("CW263:DV263").Copy Worksheets(I).Range("CX269:CX294").PasteSpecial Transpose:=True 

一行是完全复制而不是PasteSpecial。