Tổng hợp dữ liệu (1 người xem)

[quangdiepctmbk]

Bạn nào giúp mình viết code để tổng hợp dữ liệu như trong file đính kèm.
Cảm ơn các bạn nhiều.

 

[Ba Tê]

Bạn nào giúp mình viết code để tổng hợp dữ liệu như trong file đính kèm.
Cảm ơn các bạn nhiều.

Xem tạm cái này rồi bạn tự chế biến thêm.

Public Sub GPE()
Dim sArr(), dArr(), I As Long, J As Long, K As Long
sArr = Range("A2", Range("A2").End(xlDown)).Resize(, 5).Value
ReDim dArr(1 To UBound(sArr) * UBound(sArr, 2), 1 To 3)
For J = 2 To UBound(sArr, 2)
    For I = 2 To UBound(sArr)
        If sArr(I, J) <> Empty Then
            K = K + 1
            dArr(K, 1) = sArr(1, J)
            dArr(K, 2) = sArr(I, 1)
            dArr(K, 3) = sArr(I, J)
        End If
    Next I
Next J
Range("H2").Resize(K, 3) = dArr
End Sub

 

[qdtoday]

[video=youtube;fzWVMaScr6M]https://www.youtube.com/watch?v=fzWVMaScr6M[/video]
Project này sao mình viết xong thấy cực thế nhỉ . Chắc còn gà wa.
Phải chi được cái card đthoai mobi an ủi.

Mà ksao, ko có card thì mình vẫn gửi cho bạn. Nếu bạn còn cần thì nói nha.

 

[quangdiepctmbk]

[video=youtube;fzWVMaScr6M]https://www.youtube.com/watch?v=fzWVMaScr6M[/video]
Project này sao mình viết xong thấy cực thế nhỉ . Chắc còn gà wa.
Phải chi được cái card đthoai mobi an ủi.

Mà ksao, ko có card thì mình vẫn gửi cho bạn. Nếu bạn còn cần thì nói nha.

Gửi cho mình xin code nhé. Thank bạn nhiều