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

[µo°Ý] ¤£­«ÂЦC¥X

[µo°Ý] ¤£­«ÂЦC¥X

½Ð±Ð¥ý¶i :
­«ÂмƦr  ¦C¥X
¸Ô¦pªþ¥ó¤º¤å»¡©ú..·PÁ«ü¾É..
¤£­«ÂЦC¥X.rar (7.56 KB)

¦^´_ 1# duck_simon

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, xD, T$, i&, j%
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range("b2:m3")
For i = 1 To UBound(Arr): For j = 1 To UBound(Arr, 2)
    T = Arr(i, j): If T <> "" Then xD(T) = ""
Next: Next
Range("bb1").Resize(xD.Count, 1) = Application.Transpose(xD.keys)
With Range("bb1:bb" & xD.Count)
    .Sort Key1:=.Item(1), Order1:=1, Header:=2
End With
Arr = Range("bb1:bb" & xD.Count)
Range("bb1:bb" & xD.Count).Clear
Range("b6").Resize(1, UBound(Arr)) = Application.Transpose(Arr)
End Sub

TOP

¦^´_ 2# samwang

½Ð°Ý¦p¦ó¼g¤J?  ¤pªº²Â©å..ÁÂÁÂ

TOP

¦^´_ 3# duck_simon

±Nµ{¦¡½X¶K¨ì¤@¯ë¼Ò²Õ¸Ì§Y¥i¡AÁÂÁÂ

TOP

¦^´_ 1# duck_simon

Sub Ex()
    Dim d As Object
    Dim cell As Range
    Set d = CreateObject("Scripting.Dictionary")
    For Each cell In [B2:M3]
        d(cell.Value) = ""
    Next cell
    Rows("6").ClearContents
    [B6].Resize(1, d.Count) = d.keys
    [B6].Resize(1, d.Count).Sort Key1:=[B6], Orientation:=xlLeftToRight
End Sub

TOP

¦^´_ 5# Quake
¦^´_ 2# samwang
¦^2¦ì«e½ú..½ÐÀ°§Ú¥[¤JÀ£ÁYÀɲz¦n¶Ü?  §Ú¥N¤J¼Ò²ÕÁÙ¬O¦³°ÝÃD...ÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ samwang ©ó 2022-4-18 07:20 ½s¿è

¦^´_ 6# duck_simon

°Ñ¦ÒQuakeªº°µªk¤p­×§ï¤@¤U¦pªþ¥ó¡AÁÂÁÂ

¤£­«ÂЦC¥X_0418.zip (16.06 KB)

TOP

¦^´_ 7# samwang
¦^´_ 5# Quake
·PÁ¤G¦ì¤j¤jªº«ü¾É..¦¨¥\¥i¥Î..¸U¤À·P¿E..ÁÂÁÂ

TOP

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

hcm19522 µoªí©ó 2022-4-19 12:17


·PÁ¤j¤j  ¥J²Ó¬Ý¤F «Ü´Î...:victory:

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD