Xin code chuyển các hàng, thành các cột (chưa từng có trên GPE) (1 người xem)

[caico9x]

Kính gửi các anh chị GPE giúp đỡ
Tôi muốn chuyển các hàng(nguồn) thành các cột(kết quả) bằng VBA
Mô tả trong File rất mong anh chị giúp đỡ, em cảm ơn
Giống CODE này nhưng tôi ko bit chế biến như thế nào

[/COLOR]Public Sub Chuyen()    Dim Vung As Range, VungChuyen As Range, I As Long, J As Long, K As Long, Mg As Variant    Set Vung = Sheets("Nguon").Range(Sheets("Nguon").[A1], Sheets("Nguon").[A50000].End(xlUp))    ReDim Mg(1 To Sheets("Nguon").Range("A1").CurrentRegion.Cells.Count, 1 To 2)        For I = 1 To Vung.Rows.Count            Set VungChuyen = Range(Vung(I), Vung(I).End(xlToRight))                For J = 2 To VungChuyen.Columns.Count                    K = K + 1                    Mg(K, 1) = Vung(I): Mg(K, 2) = VungChuyen(J)                Next J        Next I    [E2:F50000].ClearContents    [E2].Resize(K, 2) = MgEnd Sub[COLOR=#000000] [/COLOR][COLOR=#000000]

 

[PhanTuHuong]

Bạn xem lại cách ăn nói nhé!