vba字典重复key_VBA字典数据重复次数

ABCDE正确应为ItemLocationLPpcs3920125001MAFLP326210123920123403MAFLP28896224039125806MAFLP06287132874123601MAFLP15106114045125803MAFLP062541116125805MAFLP0627611403912580...

A B C D E 正确应为

ItemLocation LPpcs

3920125001MAFLP3262101 2

3920123403MAFLP288962 2

4039125806MAFLP062871 3

2874123601MAFLP151061 1

4045125803MAFLP062541 1

16125805MAFLP062761 1

4039125802MAFLP062432 3

4039125804MAFLP062653 3

Sub test1()

Dim d As Object

Dim r%, i%

Dim arr, brr

Set d = CreateObject("scripting.dictionary")

With Worksheets("sheet4")

r = .Cells(.Rows.Count, 1).End(xlUp).Row

arr = .Range("a2:d" & r)

ReDim brr(1 To UBound(arr), 1 To 1)

For i = 1 To UBound(arr)

If d.Exists(arr(i, 1)) Then

d(arr(i, 1)) = d(arr(i, 1)) + 1

E