>>837
これまた日本語がわかりにくなあ

とりあえず文字検索するだけなら

dim inpted
dim i as long,maxRow as long,list as new collection
'maxRowは最大行自分で求めて
for i = 1 to maxRow
　if .cells(i,1).value like inputed & "*" then
　　list.add .cells(i,j).value
　end if
next i

dim l as varianrt
for each l in list
　combobox.additem l
next l

とかこんな感じでいいんじゃねえの
コンボボックスに入力した値って要素0に入ってるんだっけか？