GBKEE

¦^´_ 1# totes

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim S As String, I As Integer, W As String
   
4.     S = ""
   
5.     I = 2
   
6.     [G:G] = ""
   
7.     Do While Cells(I, 5) <> ""
   
8.         W = Trim(Cells(I, 5))
   
9.        If W Like "TC*" And InStr(S, W & ",") = 0 Then
   
10.           S = S & W & ","
    
11.        End If
    
12.        I = I + 1
    
13.     Loop
    
14.     If S <> "" Then
    
15.         S = Mid(S, 1, Len(S) - 1)
    
16.         '1.µ²ªG¦pG6~G9½d¨Ò (¥u»ÝTC¶}ÀY¶µ¥Ø)
    
17.         [G1].Resize(UBound(Split(S, ",")) + 1) = Application.Transpose(Split(S, ","))
    
18.         
    
19.         '2.³Ì²×»Ý¨D¦pG11¦Û§@¦¨¤U©Ô¿ï³æ
    
20.         With [G11].Validation
    
21.             .Delete
    
22.             .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    
23.             xlBetween, Formula1:=S
    
24.         End With
    
25.     End If
    
26. End Sub

½Æ»s¥N½X