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

[µo°Ý] ­«ÂЪº§R°£

[µo°Ý] ­«ÂЪº§R°£

¥»©«³Ì«á¥Ñ zamamilo ©ó 2020-3-28 16:37 ½s¿è

¦U¦ì°ª¤â¤j¤j

  §Ú¦³©w¸q¨â­ÓÀx¦s®æ¦WºÙ¡§¯Á¤Þ°Ï","±Æ§Ç°Ï"

§Ú¥u·Q§â"¯Á¤Þ°Ï¡¨ªº¤º®e ­«·s¾ã²z¨ì ¡§±Æ§Ç°Ï"
¥B¯Á¤Þ°Ïªº¸ê®Æ¥u¦b"±Æ§Ç°Ï" ¥X²{¤@¦¸¡C

³Â·Ð¦U¦ì°ª¤â¤j¤j¯àÀ°¦£¸Ñµª

­«ÂЧR°£.rar (9 KB)

Sub TEST()
Dim Arr, xD, i&, T$
Set xD = CreateObject("Scripting.Dictionary")
Arr = [E2:E28]
For i = 1 To UBound(Arr)
    T = Arr(i, 1)
    If T <> "" And xD.Exists(T) = False Then xD(T) = ""
101: Next i
[E30].Resize(xD.Count) = Application.Transpose(xD.keys)
End Sub

TOP

ÁÂÁ­㳡¤j¤j¦^ÂÐ

  ±a¤J«á¬O§Ú­nªºµ²ªG¡A¦ý¬O§Ú¥Ø«e¦³©w¸q¨â­ÓÀx¦s®æ¦WºÙ
"¯Á¤Þ°Ï"  "±Æ§Ç°Ï"
¤]´N¬O­n°w¹ï"¯Á¤Þ°Ï"ªº­È¾ã²z«á(¯Á¤Þ°Ïªº½d³ò¹ê»Ú·|§óªø©Î§ïÅÜ)
¨Ì§Ç©ñ¤J¡§±Æ§Ç°Ï¡¨
ÁٽЭ㳡¤j¤j¬Ý­n§ï­þ¸Ì¡H

TOP

¦^´_ 3# zamamilo
Sub TEST()
Dim Arr, xD, i&, T$
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range("¯Á¤Þ°Ï")
For i = 1 To UBound(Arr)
    T = Arr(i, 1)
    If T <> "" And xD.Exists(T) = False Then xD(T) = ""
101: Next i
Range("±Æ§Ç°Ï").Resize(xD.Count) = Application.Transpose(xD.keys)
End Sub

TOP

ÁÂÁ­ã³ö¤j¤jªºÀ°¦£¡A³o¼Ë´N«Ü¦n¥Î¤F

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD