需要添加TextBox控件和CommandButton按钮控件，然后给CommandButton按钮控件填写如下代码：Private Sub CommandButton1_Click()
Dim Zhi As String
Zhi = Sheet1.TextBox1.Text
Set c = UsedRange.Find(Zhi, LookIn:=xlValues)
If Not c Is Nothing Then
Range(c.Address).Select
End IfEnd Sub...
