Hsieh

¦^´_ 5# totes
¤£¶·¨Ï¥Î½d³ò§@²M³æ

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. C = InputBox("¿é¤J¶}ÀY¦r¤¸", , "TC")
   
4. ar = Range("E2", [E65536].End(xlUp)).Value
   
5. For Each a In ar
   
6.   If a Like C & "*" Then d(a) = ""  '¤£­«½Æ²Å¦X³W«h
   
7. Next
   
8. If d.Count = 0 Then MsgBox "µL²Å¦X¸ê®Æ": Exit Sub
   
9. With Range("G11").Validation
   
10. .Delete
    
11. .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    
12.         xlBetween, Formula1:=Join(d.keys, ",")
    
13.         .IgnoreBlank = True
    
14.         .InCellDropdown = True
    
15.         .InputTitle = ""
    
16.         .ErrorTitle = ""
    
17.         .InputMessage = ""
    
18.         .ErrorMessage = ""
    
19.         .IMEMode = xlIMEModeNoControl
    
20.         .ShowInput = True
    
21.         .ShowError = True
    
22. End With
    
23. End Sub

½Æ»s¥N½X