GBKEE

¦^´_ 1# ¤Ú§J´µ

1. InStr ¨ç¼Æ
   
2. ¶Ç¦^¦b¬Y¦r¦ê¤¤¤@¦r¦êªº³Ì¥ý¥X²{¦ì¸m¡A¦¹¦ì¸m¬° Variant (Long)¡C

½Æ»s¥N½X

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i As Integer, e As Variant, Ar As String
   
4.     i = 2
   
5.     Do While Cells(i, "a") <> ""
   
6.         Ar = ","
   
7.         For Each e In Split(Cells(i, "a"), ",")
   
8.             If InStr(Ar, "," & e & ",") = 0 Then Ar = Ar & e & ","
   
9.         Next
   
10.         Cells(i, "C") = Mid(Ar, 2, Len(Ar) - 2)
    
11.         Cells(i, "D") = UBound(Split(Mid(Ar, 2), ","))
    
12.         i = i + 1
    
13.     Loop
    
14. End Sub

½Æ»s¥N½X