Chuyển đổi dữ liệu

[vanvan9697]

Hiện tại em có 1 bảng dữ liệu như sau

Và em muốn chuyển đổi sang dữ liệu

Anh ( chị ) chuyển đổi giúp em với ạ. Em cảm ơn ạ !

 

[concogia]

Hiện tại em có 1 bảng dữ liệu như sau
View attachment 207806
Và em muốn chuyển đổi sang dữ liệu
View attachment 207807
Anh ( chị ) chuyển đổi giúp em với ạ. Em cảm ơn ạ !

Gán code này vào nút "chuyển đổi dữ liệu":

Public Sub Chuyen()
    Dim Vung, I, K, Kq
    Vung = Range([A2], [A50000].End(xlUp)).Resize(, 3)
    ReDim Kq(1 To UBound(Vung) * 2, 1 To 3)
        For I = 1 To UBound(Vung)
            K = K + 1
            Kq(K, 1) = Vung(I, 1): Kq(K, 2) = Vung(I, 3)
            K = K + 1
            Kq(K, 1) = Vung(I, 2): Kq(K, 3) = Vung(I, 3)
        Next I
    [L3].Resize(K, 3) = Kq
End Sub

Thân

 

[vanvan9697]

Dạ vâng em cảm ơn anh ạ !. Thank anh

Bài đã được tự động gộp: 16/11/18

Gán code này vào nút "chuyển đổi dữ liệu":

Public Sub Chuyen()
    Dim Vung, I, K, Kq
    Vung = Range([A2], [A50000].End(xlUp)).Resize(, 3)
    ReDim Kq(1 To UBound(Vung) * 2, 1 To 3)
        For I = 1 To UBound(Vung)
            K = K + 1
            Kq(K, 1) = Vung(I, 1): Kq(K, 2) = Vung(I, 3)
            K = K + 1
            Kq(K, 1) = Vung(I, 2): Kq(K, 3) = Vung(I, 3)
        Next I
    [L3].Resize(K, 3) = Kq
End Sub

Thân

Anh có thể giải thích giúp em tại sao lại nhân 2 được không ạ

 

[snow25]

Dạ vâng em cảm ơn anh ạ !. Thank anh

Bài đã được tự động gộp: 16/11/18

Anh có thể giải thích giúp em tại sao lại nhân 2 được không ạ

nhân 2 là số dòng trong mảng đó gấp đôi số dòng trong mảng ban đầu bạn à