ABCDE是itemlocationlppcs 3920125001 ma FLP 326210123920123403 ma FLP 28896224039125806 ma FLP 06287132874123601 ma FLP 1510611111406 ma fl25803 ma .
ABC是正确的
ItemLocation的劲爆棒棒糖/p 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
setd=createobject (scripting.dictionary ) )。
withworksheets(sheet4) )。
r=.cells(.Rows.count,1 ).end ) xlup ).row
ARR=.range(a2:d ) r ) )。
redimBRR(1toubound ) ARR ),1 To 1) ) )。
forI=1toubound(arr ) ) ) ) ) )。
ifd.exists(ARR ) I,1 ) ) Then
d(arr(I,1 ) )=d (arr ) I,1 ) ) 1
Else
d(ARR(I,1 ) )=1
End If
BRR(I,1 )=d ) BRR(I,1 )? ?
下一步
. range(E2 ) ).resize ) ubound(ARR ),1 )=brr
'.range(a1:e ) r ).sortkey1:=.range )、order1:=xlAscending、header:=xlYes
'.columns(e:e ) ).ClearContents
结束宽度
End模糊大豆/p