Hỏi về so sánh dữ liệu giữa 2 bảng và đưa ra bảng tổng (2 người xem)

[netvietcomputer]

Nếu vậy thì tham gia thêm 1 Sub:

Public Sub GPE()
Dim Dic As Object, sArr(), dArr(), I As Long, J As Long, Tem As String, K As Long, R As Long
Set Dic = CreateObject("Scripting.Dictionary")
R = [A65536].End(xlUp).Row
If [E65536].End(xlUp).Row > R Then R = [E65536].End(xlUp).Row
sArr = Range("A3:G3").Resize(R).Value
ReDim dArr(1 To UBound(sArr, 1) * 2, 1 To 3)
For J = 1 To 5 Step 4
    For I = 1 To UBound(sArr, 1)
        If sArr(I, J) <> Empty Then
            Tem = sArr(I, J) & "#" & sArr(I, J + 1)
            If Not Dic.exists(Tem) Then
                K = K + 1
                Dic.Item(Tem) = K
                dArr(K, 1) = sArr(I, J)
                dArr(K, 2) = sArr(I, J + 1)
                dArr(K, 3) = sArr(I, J + 2)
            Else
                dArr(Dic.Item(Tem), 3) = dArr(Dic.Item(Tem), 3) + sArr(I, J + 2)
            End If
        End If
    Next I
Next J
[I3:K1000].ClearContents
[I3].Resize(K, 3) = dArr
Set Dic = Nothing
End Sub

ĐÃ thương thì thương cho trót luôn đi bác @Ba Tê và bác @gtri ơi. Em muốn dịch cái cột Type và cột Color ra tiếng Việt nữa. Vui lòng xem file đính kèm.
THank's