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

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

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

在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的值代入需要查找的内容中,也就是查找“赵甲子"。

(0)

相关推荐