transpose- satırı sutun yap

[prodigy]

1 2 3 4 5
6 7 8 9 10
11 12 13 14 15
……..

1 6 11 …….
2 7 12 …….
3 8 13
4 9 14
5 10 15

Sutunlar arası 1 sutun boş olmak kaydıyla satırdaki sayıları 5 erli şekilde sütunlara nasıl aktarabiliriz. transpose

 

[unreal_avci]

inceleyebilirsiniz.

 

[prodigy]

cevabınız için teşekkür ederim. Bunu makroyla nasıl yapabiliriz?

 

[mancubus]

Sub Transpozeye_Sutun_Ekle_Kendi_Yerinde()
'transpoze edilecek verilerin A1 hücresinden başladığı varsayımıyla.
'eski veriler silinerek yerine transpozesi yazılacaktır.
    
    Dim tp
    Dim rng As Range
    Dim x As Long
    
    With Range("A1")
        Set rng = .CurrentRegion
        tp = Application.Transpose(rng)
        .CurrentRegion.Clear
        If rng.Columns.Count = 1 Then
            .Resize(1, UBound(tp)) = tp
        Else
            .Resize(UBound(tp, 1), UBound(tp, 2)) = tp
        End If
    End With
    
    For x = rng.Columns.Count To 2 Step -1
        Columns(x).Insert
    Next

End Sub

 

[prodigy]

teşekkür ederim.

 

[mancubus]

rica ederim.