Code tính tổng các mã trùng nhau của 3 bảng tính (1 người xem)

[HUYNHTIEN0202]

Chào các Anh
Em muốn tính các tổng các mã hàng trùng nhau của 3 bảng tính cho kết quả sang bảng tính tổng
Các anh xem file dinh kèm.
Năm mới Chúc các anh những điều tốt lành nhất, may mắn sức khỏe dồi dào gia đình vui vẻ và hạnh phúc.

 

[Ba Tê]

Chào các Anh
Em muốn tính các tổng các mã hàng trùng nhau của 3 bảng tính cho kết quả sang bảng tính tổng
Các anh xem file dinh kèm.
Năm mới Chúc các anh những điều tốt lành nhất, may mắn sức khỏe dồi dào gia đình vui vẻ và hạnh phúc.

Có chắc là 3 bảng nằm chung 1 sheet như vậy không?
Có chắc l;à cấu trúc dữ liệu cần tính tổng đề cách nhau 1 cột không?
Đưa dữ liệu giống thật lên đi bạn.
Viết code khác nhau một chút thôi là sai tè lè ngay.

 

[HUYNHTIEN0202]

Có chắc là 3 bảng nằm chung 1 sheet như vậy không?
Có chắc l;à cấu trúc dữ liệu cần tính tổng đề cách nhau 1 cột không?
Đưa dữ liệu giống thật lên đi bạn.
Viết code khác nhau một chút thôi là sai tè lè ngay.

dữ liệu giống như vậy anh

 

[n0thing1988]

dữ liệu giống như vậy anh

Nếu giữ liệu như thế thì công thức tại P5 ==SUMIF($A$5:$A$11,N5,$C$5:$C$11)+SUMIF($E$5:$E$9,N5,$G$5:$G$9)+SUMIF($I$5:$I$12,N5,$K$5:$K$12)

 

[Ba Tê]

dữ liệu giống như vậy anh

Nếu như vậy thì tặng bạn Sub này.
Nếu không giống thì tôi không chịu trách nhiệm nhé.

Public Sub GPE()
Dim Dic As Object, sArr(), dArr(1 To 1000, 1 To 3), I As Long, J As Long, K As Long, Tem As String
Set Dic = CreateObject("Scripting.Dictionary")
sArr = Range("A5:K1000").Value
For I = 1 To UBound(sArr, 1)
    For J = 1 To UBound(sArr, 2) Step 4
        If sArr(I, J) <> Empty Then
            Tem = sArr(I, J)
            If Not Dic.Exists(Tem) Then
                K = K + 1
                Dic.Add Tem, K
                dArr(K, 1) = Tem
                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 J
Next I
[N5:P1000].ClearContents
[N5].Resize(K, 3) = dArr
Set Dic = Nothing
End Sub

 

[ndu96081631]

Chào các Anh
Em muốn tính các tổng các mã hàng trùng nhau của 3 bảng tính cho kết quả sang bảng tính tổng
Các anh xem file dinh kèm.
Năm mới Chúc các anh những điều tốt lành nhất, may mắn sức khỏe dồi dào gia đình vui vẻ và hạnh phúc.

SUMIF bình thường thôi! Công thức tại cell P5:

=SUMIF($A$5:$I$1000,N5,$C$5:$K$1000)

 

[HUYNHTIEN0202]

Nếu giữ liệu như thế thì công thức tại P5 ==SUMIF($A$5:$A$11,N5,$C$5:$C$11)+SUMIF($E$5:$E$9,N5,$G$5:$G$9)+SUMIF($I$5:$I$12,N5,$K$5:$K$12)

Nhưng tại cột N không có giá trị làm sao viết công thức

 

[HUYNHTIEN0202]

Nếu như vậy thì tặng bạn Sub này.
Nếu không giống thì tôi không chịu trách nhiệm nhé.

Public Sub GPE()
Dim Dic As Object, sArr(), dArr(1 To 1000, 1 To 3), I As Long, J As Long, K As Long, Tem As String
Set Dic = CreateObject("Scripting.Dictionary")
sArr = Range("A5:K1000").Value
For I = 1 To UBound(sArr, 1)
    For J = 1 To UBound(sArr, 2) Step 4
        If sArr(I, J) <> Empty Then
            Tem = sArr(I, J)
            If Not Dic.Exists(Tem) Then
                K = K + 1
                Dic.Add Tem, K
                dArr(K, 1) = Tem
                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 J
Next I
[N5:P1000].ClearContents
[N5].Resize(K, 3) = dArr
Set Dic = Nothing
End Sub

Như anh Ba Tê thì đúng ý em
Cám ơn Anh nhiều