Code tổng hợp dữ liệu từ nhiều sheet

Chia sẻ bởi:hands

★★★★★

‹ Import dữ liệu Tạo dòng “Tổng cộng cuối trang” ›

Quảng cáo

Xin chào các anh, chị trên diễn đàn

Em muốn viết 1 đoạn code tổng hợp dữ liệu, rất mong các anh chị làm giúp hoặc có giải pháp khác.

Các yêu cầu em đã giải thích trong file đính kèm rồi ạ. Xin xem file đính kèm.

Em xin cảm ơn nhiều.

Kiểm tra thử File này xem kết quả có đúng không?

Option Explicit

Private Sub Worksheet_Activate()
Dim Rng(), Arr(), I As Long, J As Long, K As Long, Dic As Object, Zeb As Variant, Tem As String
Set Dic = CreateObject("Scripting.Dictionary")
    With Sheets("NOK")
        Rng = .Range(.[A4], .[A65000].End(xlUp)).Resize(, 4).Value
    End With
ReDim Arr(1 To UBound(Rng, 1), 1 To 4)
    For I = 1 To UBound(Rng, 1)
            Tem = Rng(I, 2) & Rng(I, 3)
        If Not Dic.Exists(Tem) Then
            K = K + 1: Dic.Add Tem, K
            Arr(K, 1) = K
            For J = 2 To 4
                Arr(K, J) = Rng(I, J)
            Next J
        Else
            Arr(Dic.Item(Tem), 4) = Arr(Dic.Item(Tem), 4) & "," & Rng(I, 4)
        End If
    Next
With Sheets("Total-NOK")
    .[A4:D65000].ClearContents
    .[A4].Resize(K, 4).Value = Arr
End With
End Sub

Không có nhiều Sheet nên chưa thử.