- ©«¤l
- 17
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 22
- ÂI¦W
- 0
- §@·~¨t²Î
- windows10
- ³nÅ骩¥»
- windows10
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2020-11-18
- ³Ì«áµn¿ý
- 2022-1-12
|
¦^´_ 2# samwang
±z¦n¡A±zªºµ{¦¡½X¥i¥H¨Ï¥Î¡A«D±`·PÁ±z¡A¥t¥i½Ð±Ð±z¬õ¦â¨º´X¦Cªº·N«ä¶Ü ?
Sub tt()
Dim xD, Arr, i&, j%, N&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([¨BÆJ¤@!V1], [¨BÆJ¤@!A65536].End(3))
For i = UBound(Arr) To 1 Step -1
If Not xD.Exists(Arr(i, 1)) Then
N = N + 1
xD(Arr(i, 1)) = N
For j = UBound(Arr, 1) To 1
Arr(N, j) = Arr(i, j)
Next
End If
Next
Range("A1").Resize(UBound(Arr), UBound(Arr, 1)) = ""
Range("A1").Resize(N, UBound(Arr, 1)) = Arr
End Sub |
|