Transpoze yapıştır Kopyala

Question

Her sütunda A1000 tarihine kadar birkaç metin var ve her biri boşlukla ayrılıyor. Ben örnek

A 
AA 
BB 
CC 
DD 

PP 
QQ 
RR 
SS 
TT 

için sahip diğer

Orijinal verilerinin altındaki devrik bir kopyalama ve yapıştırma istediğiniz hangi veriler biçiminde kullanarak makro altında olması gerekiyor:

A AA BB CC DD 
PP QQ RR SS TT 

bana

Lütfen yardım

Answer 1

Aralık alanları boyunca döngü:

Sub Button1_Click() 
    Dim RangeArea As Range 

    For Each RangeArea In Columns("A").SpecialCells(xlCellTypeConstants, 23).Areas 

     RangeArea.Copy 
     Cells(Rows.Count, "B").End(xlUp).Offset(1).PasteSpecial Transpose:=True 

    Next RangeArea 

    Application.CutCopyMode = 0 

End Sub