調換行範圍

Question

我試圖複製範圍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的。