tlthlnmtnn
Thành viên mới
![](/diendan/data/PhoToDanhHieu/gold.gif)
- 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