samwang

¦^´_ 1# oak0723-1

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, Brr, xD, T
Set xD = CreateObject("Scripting.Dictionary")
With Range("h6:h" & Cells(Rows.Count, 8).End(xlUp).Row)
    Brr = .Value
    .Sort key1:=.Item(1), Order1:=2, Header:=2
    Arr = .Value
    .Value = Brr
End With
For i = 1 To UBound(Arr)
    T = Arr(i, 1): If T = "" Then GoTo 98
    If xD(T) = "" Then: n = n + 1: xD(T) = n
98: Next
For i = 1 To UBound(Brr)
    T = Brr(i, 1)
    If T = "" Then Brr(i, 1) = 0: GoTo 99
    Brr(i, 1) = xD(T)
99: Next
Range("i6").Resize(UBound(Brr)) = Brr
End Sub

samwang

¦^´_ 1# oak0723-1


½Ð°ÝHÄæ¼Æ­ÈªÅ¥Õ®É(¤£¬O0)¡A ±Æ¦W¬° 0¶Ü?

samwang

¦^´_ 6# oak0723-1

²¾°£J6 ¤½¦¡¦A°õ¦æµ{¦¡´N¥i¥H¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

samwang

¦^´_ 5# oak0723-1

1.«e«á³£¦³¼Æ¾ÚªºªÅ¥ÕÀx¦s®æ-->Åã¥Ü0,¤£¦C¤J±Æ¦W
2.¼Æ¾Úµ²§ô«áªºªÅ¥ÕÀx¦s®æ-->¤£¦C¤J±Æ¦W,¤£§@°Ê§@,¨ÌµM¬OªÅ¥Õ
>> 3#µ{¦¡¦³²Å¦X¤W­z±ø¥ó¡AÁÂÁÂ

samwang

¦^´_ 1# oak0723-1

¤£¤@¼Ëªº¸Ñªk¦³¤ñ3#¦A´£¤É¤@ÂIÂI®Ä²v¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub test2()
Dim Arr, xD, a, T, i&
Set xD = CreateObject("Scripting.Dictionary")
Tm = Timer
Arr = Range("h6:h" & Cells(Rows.Count, 8).End(xlUp).Row)
For i = 1 To UBound(Arr)
    T = Arr(i, 1): If T <> "" Then xD(T) = ""
Next
For i = 1 To xD.Count
    a = Application.Large(xD.keys, i)
    n = n + 1: xD(a) = n
Next
For i = 1 To UBound(Arr)
    T = Arr(i, 1)
    If T = "" Then Arr(i, 1) = 0: GoTo 99
    Arr(i, 1) = xD(T)
99: Next
Range("j6").Resize(UBound(Arr)) = Arr
MsgBox Timer - Tm
End Sub