Question

EXCEL VBA怎样把查找到的内容显示在LISTBOX指定字段下面，附件可以传给你！

Answer 1

For Each cell In Range("a2:a10")
If cell.Value = TextBox1.Text Then
cell.Select
ListBox1.AddItem
For i = 0 To 5
ListBox1.List(ListBox1.ListCount - 1, i) = cell.Offset(, i).Value
Next
GoTo 100
End If
Next
查找值后的这段，改成上面的代码
最后面一句 Application.ScreenUpdating = True ，前面加一个行标识，变成：
100:
Application.ScreenUpdating = True
程序中的所有exit sub，都改成 goto 100

追问

不过要用鼠标点那个结果怎样才能定位到单元格