作者：乔山办公网日期：
返回目录：excel表格制作
试试以下代码是否抄满足你的需要：
Sub 查找输入的姓名zd()
firData = Application.InputBox("请输入要查找的姓名:")
For Each rng In Range("a:a")
If rng = firData Then rng.Select
Next rng
End Sub
将表格发过来并附上详细要求。注意：是详细要求，不是像这样的三言两语，不要对自己的描述能力太自信！
使用抄Crtl+f调出查找对话框，输入查找内容，进行查找即可。
Excel版本参考袭：2010
1、CTRL+F，调出查找对话框；百
2、查找中输入:2000(查找内容度）；
3、点击全部知查找，下面显示为包含2000的全部内容，可以点击查看；
4、查看效果（道OK）。