Gửi bởi
mailonline.vt
Em dùng hàm đó nhưng mỗi lẫn chọn điều kiện theo từng cái nó lâu qua anh. file em gửi lên là file rút gọn nên dùng hàm được. Anh xem có cách nào code cho nó tự tìm và lọc giá trị trên đó theo nhiều điều kiện không ? Nhờ anh giúp đỡ.
Tặng bạn Sub này chạy thử nè:
Mã nguồn PHP:
Public Sub GPE()
Dim Dic As Object, sArr(), dArr(), Tem As String, I As Long, J As Long, K As Long, Rws As Long
Set Dic = CreateObject("Scripting.Dictionary")
sArr = Range(Range("A2"), Range("A2").End(xlDown)).Resize(, 3).Value2
ReDim dArr(1 To UBound(sArr, 1), 1 To 4)
For I = 1 To UBound(sArr, 1)
Tem = sArr(I, 1) & sArr(I, 2) & sArr(I, 3)
If Not Dic.Exists(Tem) Then
K = K + 1
Dic.Add Tem, K
For J = 1 To 3
dArr(K, J) = sArr(I, J)
Next J
dArr(K, 4) = 1
Else
Rws = Dic.Item(Tem)
dArr(Rws, 4) = dArr(Rws, 4) + 1
End If
Next I
Range("G2:J10000").ClearContents
Range("G2").Resize(K, 4) = dArr
Set Dic = Nothing
End Sub
Trả lời kèm Trích dẫn
