Copy dữ liệu từ nhiều cột sang 1 cột với điều kiện khác nhau

[ndt1235]

Dear All,

Em có bảng dữ liệu như sheet 1 trong file mẫu đính kèm gồm 100 item.
E muốn sắp xếp lại các item theo dạng cột như sheet 2.

Mong mọi người giúp đỡ ạ...

Thanks

 

[ndt1235]

please help!

 

[vanthinh3101]

Dear All,

Em có bảng dữ liệu như sheet 1 trong file mẫu đính kèm gồm 100 item.
E muốn sắp xếp lại các item theo dạng cột như sheet 2.

Mong mọi người giúp đỡ ạ...

Cảm ơn

Bài này mà dùng hàm hay công thức thì rất khó, tôi không làm được.
Nhưng VBA thì có thể, bạn nên nhờ Mod chuyển bài này qua box Lập trình.
Lưu ý bài #2 đang vi phạm nội quy của diễn đàn
Bạn tham khảo:

Sub TransferData()
    Dim sArr(), Res(1 To 10000, 1 To 6)
    Dim I As Long, J As Long, K As Long, lR As Long
    
    I = 1
    Do While Sheet2.Cells(1, I) <> ""
        lR = Sheet2.Cells(1, I).End(xlDown).Row
        sArr() = Sheet2.Cells(1, I).Resize(lR, 5).Value
        
        For J = 3 To UBound(sArr, 1)
            K = K + 1: Res(K, 1) = sArr(J, 1)
            Res(K, 2) = sArr(J, 1): Res(K, 3) = sArr(J, 2)
            Res(K, 4) = sArr(J, 3): Res(K, 5) = sArr(J, 4)
            Res(K, 6) = sArr(J, 5)
        Next J
        I = I + 6
    Loop
    
    If K Then
        Sheet3.Range("I2").Resize(K, 6) = Res
        MsgBox "Done", vbInformation, "GPE"
    End If
    
End Sub

 

[ndt1235]

Cảm ơn bạn nhé, mình sẽ sang mục lập trình nhờ mọi người giúp thêm.