Lấy đâu ra loại code "VAB" này bạn ơi.
Bạn thử tìm hiểu về dictionary xem. Sẽ giải quyết được vấn đề đó. Nếu không thể làm được thì tính tiếp
bạn có thể giúp mình với.
Bạn nên tự tìm hiểu trước đi đã, vướng đâu thì đưa lên để gỡ chứ không làm gì cả mà cứ nhờ từ đầu đến cuối thì e rằng người muốn giúp cũng có phần nản.
Sub demBoTrung()
Dim ar(), i As Integer, lr As Integer, dic1, dic2
Dim kq(), k, idx
lr = Range("A" & Rows.Count).End(3).Row
ar = Range("A2:B" & lr).Value
ReDim kq(1 To UBound(ar), 1 To 2)
Set dic1 = CreateObject("Scripting.dictionary")
Set dic2 = CreateObject("Scripting.dictionary")
For i = 1 To UBound(ar)
If Not dic1.exists(ar(i, 1)) Then
k = k + 1
dic1.Add ar(i, 1), k
kq(k, 1) = ar(i, 1)
End If
If Not dic2.exists(ar(i, 1) & ar(i, 2)) Then
dic2.Add ar(i, 1) & ar(i, 2), ""
idx = dic1.Item(ar(i, 1))
kq(idx, 2) = kq(idx, 2) + 1
End If
Next
If k Then
Range("F11").Resize(k, 2) = kq
End If
End SubNhờ bạn sửa lại giúp mình kết quả ở cột C tương ứng với từng dòng của đơn hàng ở cột A. cảm ơn bạn nhiều.
Option Explicit
Sub test()
Dim lr&, i&, res(), st As String
Dim rng, dic As Object
Set dic = CreateObject("Scripting.Dictionary")
lr = Cells(Rows.Count, "A").End(xlUp).Row
rng = Range("A2:B" & lr).Value
ReDim res(1 To UBound(rng), 1 To 1)
For i = 1 To UBound(rng)
st = rng(i, 1) & "|" & rng(i, 2)
If Not dic.exists(st) Then
dic.Add st, 1
Else
dic(st) = dic(st) + 1
End If
Next
For i = 1 To UBound(rng)
st = rng(i, 1) & "|" & rng(i, 2)
res(i, 1) = dic(st)
Next
With Range("C2")
.Resize(1000, 1).ClearContents
.Resize(UBound(res), 1).Value = res
End With
End SubBạn xem lại giúp mình kết quả không đúng như cột C.
