查找单元格并快速显示对应的地址

假设某个表格中，希望去查找某个人，找到后显示其位置。

如下表格，想查找是否有“赵甲子”，如果有则显示其位置。

在Excel中，使用CTRL+F进行查找，查找到了光标将会停留在这个单元格。

但这只是高亮显示，今天用一段代码进行查找，然后显示其准确地址：

使用了以下代码:

Private Sub CommandButton1_Click() Dim myrange As Range Dim myname As String mystr = "赵甲子" Set myrange = Range("a1:c100").Find(what:=mystr) If Not myrange Is Nothing Then myrange.Select MsgBox "查找到了，在" & myrange.Address End IfEnd Sub

以上代码简单解释:

声明myrange是对象型，为对象型变量赋值需要前面加set

find(what:=mystr) 将变量mystr的值代入需要查找的内容中，也就是查找“赵甲子"。