參考如下問答：
如何讓textbox中輸入信息，在表格中搜索到，並實時顯示在listbox中
功能描述如下，如附件中frame圖所示，在textbox中輸入壹個人名，實時在壹個表格（如附件表格圖所示）中搜索此人名，並將搜索結果放到frame中的listbox中，搜索結果包括姓名，班級，性別。實時顯示就是在textbox中輸入後馬上執行搜索並顯示的任務，應該是在textbox的change方法中寫代碼。
根據textbox1裏的值去查找，應該可以不用考慮使用字典的
Private Sub TextBox1_Change()
ListBox1.Clear
Set Rng = Sheets(1).Columns(2).Find(TextBox1.Text, lookat:=xlWhole)
If Not Rng Is Nothing Then
ListBox1.AddItem (Rng)
For j = Rng.Row + 1 To Sheets(1).Cells(Rows.Count, 2).End(3).Row
If Sheets(1).Cells(j, 2) = Rng Then
ListBox1.AddItem (Rng)
End If
Next j
End If
End Sub
根據textbox1的值查找