|
▼わからんちゃん! さん:
>一列に40000文字程度がランダムに並んでいて
>全部をコンボボックスに表示するのではなく
>重複する文字はひとつの文字として表示させたいのです
>オートフィルタのリストみたいにすぐに表示できる方法はないですか?
>一列に40000文字程度が
どこの列か解りませんので、A列と仮定していますので、そちらにあわせてください。
コンボボックスは、シート上に配置されているものとして
シートモジュールです。
シートがアクティブになったときに作動します。
Private Sub Worksheet_Activate()
Dim myDic As Object
Dim r As Range
Me.ComboBox1.Clear
Set myDic = CreateObject("Scripting.Dictionary")
For Each r In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
myDic(r.Value) = Empty
Next
Me.ComboBox1.List = myDic.Keys
End Sub
|
|