[Help] VBA đếm số lần xuất hiện của một store (1 người xem)

[ngoctuyen1995]

Chào cả nhà GPE!
Mong cả nhà giúp em một việc ạ..

Em có 01 Data bao gồm các 6 cột..
Công việc của em là: Dựa vào cột Storecode đếm số lần xuất hiện của Store đó

VD: D5491 trong data xuất hiện 3 lần thì cột "Số lần xuất hiện" sẽ tìm đến vị trí gần nhất của "Store code" đánh số 1 tiếp theo là số 2 và ...số 3
Trong data em có làm Data mẫu ạ...

Mong cả nhà giúp đỡ ạ

 

[dhn46]

Bài này dùng công thức cũng giải quyết được.
tại D2 và kéo xuống

=COUNTIF($A$2:A2,A2)

File ví dụ của bạn sai kết quả tại D24

 

[ngoctuyen1995]

Bài này dùng công thức cũng giải quyết được.
tại D2 và kéo xuống

=COUNTIF($A$2:A2,A2)

File ví dụ của bạn sai kết quả tại D24

Em cảm ơn Thầy rất nhiều ạ! đơn giản mà hiểu quả
Chúc cả nhà sức khỏe và thành công ạ

 

[ngoctuyen1995]

Public Sub GPE()
Dim sArr, I As Long, K As Long, Dic As Object, Tem As String
Set Dic = CreateObject("Scripting.Dictionary")
sArr = Range("A1").CurrentRegion
K = 1
For I = 2 To UBound(sArr)
Tem = sArr(I, 1)
    Dic.Item(Tem) = Dic.Item(Tem) + 1
        K = K + 1
        If Tem = "" Then
            sArr(K, 4) = ""
        Else
            sArr(K, 4) = Dic.Item(Tem)
        End If
Next I
    If K Then Range("A1").CurrentRegion.Value = sArr
End Sub

Em cảm ơn anh ạ..! code hay lắm ạ.. em sẽ tham khảo thêm..

Chúc anh sức khỏe và thành công