ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó¦b°}¦C¸Ì¿z¿ï¥X¤£­«½Æªº­È?

¦^´_ 1# zheng211016

¸Õ¸Õ¬Ý
¦r¨å(Dictionary)ªºexists§PÂ_¬O§_¬°­«½Æ,¦pªG¦r¨å¤º§ä¤£¨ì¤~©ñ¤J,¦r¨å¤º¤w¦³ªº­È¤£©ñ¤J
Sub Ex()
Dim d As Object
Dim a As Object
Set d = CreateObject("Scripting.Dictionary")
For Each a In Range("a1").CurrentRegion
   If Not d.exists(a.Value) Then d.Add a.Value, ""
Next
[g1].Resize(, d.Count) = d.keys
Range([g1], Cells(1, [g1].End(2).Column)).Sort Range("g1"), 1, Orientation:=xlSortRows
Set d = Nothing
End Sub

TOP

        ÀR«ä¦Û¦b : ¨C¤ÑµL©Ò¨Æ¨Æ¡A¬O¤H¥Íªº®ø¶OªÌ¡A¿n·¥¡B¦³¥Î¤~¬O¤H¥Íªº³Ð³yªÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD