tlthlnmtnn
Thành viên mới 

			
		- Tham gia
- 1/4/12
- Bài viết
- 37
- Được thích
- 2




Mình có bảng như file giờ mình mún đối chiếu ở cột A để xuất số lượng vào các ô tương ứng!
VD: tìm thấy "Tổng: Cocacola" thì nó đem tổng số lượng gán vào K2, nếu ko tìm thấy gán bằng 0
Tương tự với các cái còn lại!
Cám ơn mọi người giúp đỡ nhiều!
=SUMIF($A$3:$A$267,$J2,$D$3:$D$267)
=SUMIF($A$3:$A$267,J2,$D$3:$D$267)Mình có bảng như file giờ mình mún đối chiếu ở cột A để xuất số lượng vào các ô tương ứng!
VD: tìm thấy "Tổng: Cocacola" thì nó đem tổng số lượng gán vào K2, nếu ko tìm thấy gán bằng 0
Tương tự với các cái còn lại!
Cám ơn mọi người giúp đỡ nhiều!
Sub Dic()
Dim Sarr, Arr, i As Long, k As Long, Dic As Object
With Sheet1
    Sarr = .Range(.[A3], .[A65000].End(xlUp)).Resize(, 6).Value2
End With
ReDim Arr(1 To UBound(Sarr, 1), 1 To 2)
Set Dic = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(Sarr, 1)
    If Sarr(i, 1) <> "" Then
        If Sarr(i, 2) <> "" Then
            If Not Dic.exists(Sarr(i, 1)) Then
                k = k + 1
                Dic.Add Sarr(i, 1), k
                Arr(k, 1) = Sarr(i, 1)
                Arr(k, 2) = Sarr(i, 4)
            Else
                Arr(Dic.Item(Sarr(i, 1)), 2) = Arr(Dic.Item(Sarr(i, 1)), 2) + Sarr(i, 4)
            End If
        End If
    End If
Next i
    [J2:K65000].ClearContents
    [J2].Resize(k, 2).Value = Arr
Set Dic = Nothing
End Sub

