「項目1」」から重複しないデータを抽出して、コンボボックスに表示します。

Worksheets("単語帳").Select

'条件をクリアーしておく
Cells(4, "C").Value = ""



'前回の抽出結果をクリアーしておく。
Range("F9:F65536").Select
Selection.ClearContents




'重複しないデータを抽出
'「Unique:=True」　で重複しないデータが抽出できる。
'「F9」は転記先
Range("C9:C39").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("F9"), Unique:=True



'ついでに並べ替える
Range("F9:F65536").Select
Selection.Sort Key1:=Range("F10"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlStroke



Cells(9, "F").Select