请问VBA中,If Not rg Is Nothing是什么意思?

来源:百度知道 编辑:UC知道 时间:2024/06/13 04:58:09
Sub 按钮64_Click()
For i = 3 To [d65536].End(3).Row
d = Range("d" & i)
If InStr(d, "车管") Then
Set rg = [f:f].Find(Range("c" & i) & "车管")
If Not rg Is Nothing Then d = Replace(d, "车管", rg.Offset(0, -1).Value)
End If

if not rg is nothing 和 set rg 这二句我不知道是什么意思,有人可以解释下吗?最好通俗点,因为我是新手,谢谢了。

set rg 这一句给变量rg赋值为在f列查找所得到的单元格

if rg is nothing 表示刚才赋值为空,即find找不到
那么if not rg is nothing就是找得到了。

rg是查找的一个集合,里面的内容是应是C列内容与车管的合值
set rg 是给rg这个集合赋值
if rg is nothing 这句的意思是rg里没有任何数据,前面加not就是rg不为空时的情况。
两句连起来其实要实现的功能就是先在F列里查找Range("c" & i) & "车管"内容
如果查到了,就执行后面的替换操作