Công thức vẫn giải quyết được sao bạn phải cần VBA? Nếu sợ Countif làm chậm file thì có thể dùng hàm Match, tôi nghĩ sẽ cải thiện được.
Mình muốn tìm hiểu cách làm bằng Code bạn.
Muốn VBA thì tặng bạn "dao mổ Trâu", không nhận "bảo hành".
Public Sub s_Gpe()
Dim sArr(), dArr(), I As Long, R As Long, Txt As String
With CreateObject("Scripting.Dictionary")
sArr = Range("B5", Range("C50000").End(xlUp)).Value
R = UBound(sArr)
For I = 1 To R
Txt = sArr(I, 1) 'Ma cua hang'
.Item(Txt) = sArr(I, 2) 'Du dau'
Next I
'---------------------------------------'
sArr = Range("H7", Range("H7").End(xlDown)).Value
R = UBound(sArr)
ReDim dArr(1 To R, 1 To 1)
For I = 1 To R
Txt = sArr(I, 1) & "#" 'Ma cua hang dau tien'
If Not .Exists(Txt) Then
.Item(Txt) = ""
Txt = sArr(I, 1) 'Ma cua hang'
If .Exists(Txt) Then dArr(I, 1) = .Item(Txt) 'So luong'
End If
Next I
End With
'---------------------------------------'
Range("L7").Resize(R) = dArr
End SubEm cảm ơn anh ạ ! nhìn Code hấp dẫn quá. Để em tìm hiểu ý nghĩa code ạ.
Đã nói là "không bảo hành" sao lại đem hàng ra trả lại?
Thử tìm hiểu lệnh Remove Key
Sub ABC()
Dim aDu(), aMa(), Res()
Dim i&, sRow&, iKey
aDu = Range("B5", Range("C50000").End(xlUp)).Value
aMa = Range("H7", Range("H7").End(xlDown)).Value
With CreateObject("Scripting.Dictionary")
sRow = UBound(aDu)
For i = 1 To sRow
.Item(aDu(i, 1)) = aDu(i, 2)
Next i
sRow = UBound(aMa)
ReDim Res(1 To sRow, 1 To 1)
For i = 1 To sRow
iKey = aMa(i, 1)
If .Exists(iKey) Then
Res(i, 1) = .Item(iKey) 'So luong'
.Remove (iKey) 'Loai bo Cua hang da lay so du
End If
Next i
End With
Range("K7").Resize(sRow) = Res
End Subhaha. A viết hay quá. Em cảm ơn anh, em hiểu láng máng rồi em sẽ hiểu dần dần, mưa dần hi vọng sẽ thấm được ít ạ.
Trong trường hợp này, cách của bài #8 cũng rất hay mà tôi chưa nghĩ tới:
