- ©«¤l
- 258
- ¥DÃD
- 77
- ºëµØ
- 0
- ¿n¤À
- 385
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-8-8
- ³Ì«áµn¿ý
- 2021-1-25
|
¦^´_ 2# Hsieh
¤Ó´Î¤F
½Ð±ÐH¤j¤j
°ÝÃD1. d(a & "")=array(a.offset(,1)) »P d(a.value)="" §â§Ú·d²V¤F ¤×¨ä¬O ¨º¨âÓ ""
°ÝÃD2. Set d = CreateObject("Scripting.Dictionary")
With Sheets("¦s¬d")
For Each a In .Range(.Cells(2, 2), .Cells(65536, 2).End(xlUp))
d(a.Value) = ""
Next
End With
If d.Count = 0 Then Exit Sub
ComboBox1.List = d.keys
Yn¥[¤@ªº±ø¥ó ©ócolumn(an1)¦³="string1" ¤§ ¤U§@¬Û²§¿z¿ï d(a.Value) ¨º±ø¥ócolumn(an1)¦³="string1"À³¥[¦bþ¨à? |
|