Transponieren einer Reihe Zeile

Question

Ich versuche, den Bereich CW263: DC263 kopieren und im Bereich CX269: CX294 von VBA einfügen, aber ich bekomme einen Fehler.

ich einen Code wie das bin mit (Es kann das gleiche in allen Arbeitsblatt wiederholen):

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 

Aber ich bin immer so etwas wie: Es ist nicht möglich Paste Eigentum von Range-Klasse zu erhalten. Wie bekomme ich das?

Answer 1

Das Anfertigen zwei Zeilen einfügen und die () um die Transponierung entfernen:

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

Eine Zeile ist für die vollständige Kopie nicht nur Paste.