Viết code tính tổng các type qua sheet khác (1 người xem)

[lhthai]

Mình muốn tính tổng số lượng các Type sang sheet2
Vd như trong sheet co1 2 type NV-D227PKA 1440 thì sang sheet2 bằng NV-D227PKA 2880
giống như file đính kèm này

 

[Quang_Hải]

Mình muốn tính tổng số lượng các Type sang sheet2
Vd như trong sheet co1 2 type NV-D227PKA 1440 thì sang sheet2 bằng NV-D227PKA 2880
giống như file đính kèm này

Bài này nên dùng công thức cho gọn, nhưng muốn code thì xài code này

Sub UniqueSum()
Dim I As Long, K As Long, Darr()
Dim Sarr(), Temp(), Col As Long, J As Long
Col = 3
Sarr = Sheet1.Range("F4", Sheet1.[F65536].End(3)).Resize(, Col).Value
ReDim Darr(1 To UBound(Sarr), 1 To Col)
With CreateObject("Scripting.Dictionary")
    For I = 1 To UBound(Sarr)
        If Not .exists(Sarr(I, 1)) Then
            K = K + 1
            .Add Sarr(I, 1), K
            For J = 1 To Col - 1
               Darr(K, J) = Sarr(I, J)
            Next
            Darr(K, Col) = Sarr(I, Col)
        Else
            Darr(.Item(Sarr(I, 1)), Col) = _
            Darr(.Item(Sarr(I, 1)), Col) + Sarr(I, Col)
        End If
    Next
End With
Sheet2.[B4].Resize(K, Col) = Darr
End Sub

 

[VetMini]

Bài này là nhiệm vụ của Pivot Table

 

[cuongbkkx]

Cái này theo mình dùng hàm có sẵn trong excell cho nhanh. VBA chỉ dùng khi nào excell không thể can thiệp được thôi. Dùng hàm =VLOOKUP(B4;Sheet1!$F$4:$H$55;3;0)*COUNTIF(Sheet1!$F$4:$F$55;Sheet2!B4)