85问答库 > 在Excel中,利用VBA中的Find函数进行查询的问题，请高手指点。

在Excel中,利用VBA中的Find函数进行查询的问题，请高手指点。

2024-12-04 13:19:45

推荐回答（5个）

回答1：

你要做什么呢？
如 set rng = range("A:A").find("查找的内容") 这个不管找到找不到都不会弹出对话框的。找不到时rng=nothing

回答2：

在你的FIND语句之前加入下面这句：
Application.DisplayAlerts = False
在你的FIND语句之后加入下面这句：
Application.DisplayAlerts = True

Application.DisplayAlerts =False 这句的意思是禁止弹出对话框。但要记得在执行完查询后恢复。

回答3：

Sub aa()
on error resume next
Set c = Range("B4").Find("你要查找的内容")
End Sub

on error resume next ：这一句的意思就是找不到时候继续运行
不光用在FIND函数也可以用在其他的函数或者代码中

回答4：

Sub aa()
Set c = Range("B4").Find("你要查找的内容")
If Not c Is Nothing Then
你的代码
End If
End Sub

回答5：

有专门的软件做的
呵呵