Question

EXCEL VBA Find 函数

我想问下这个怎么不循环的？（按下F8，发现 rng=nothing,但是我表格里有数字1的）
还有Set rng = Range("h2:h36").FindNext(rng)这句为什么还要？循环DO LOOP 不是吗？

Dim rng As Range
Dim firstadd As String
Set rng = Range("h2:h36").Find("1", LookIn:=xlValues)
If Not rng Is Nothing Then
firstadd = rng.Address
Do
rng.Interior.Color = RGB(255, 0, 0)
Set rng = Range("h2:h36").FindNext(rng)
Loop While Not rng Is Nothing And rng.Address <> firstadd
End If

谢谢！

Answer 1

程序运行正常,一切OK
VBA每次只能查找一个RNG啊 ,你不循环咋办,第一循环后内存中RNG已经得到了一个ADDDRESS
不重设RANGE那就是死循环

没有Set rng = Range("h2:h36").FindNext(rng),你的LOOP后面的条件就是没用的

追问

我在Range("h2:h36") 里都写了 1 ，然后find("1"),代码就不运行，如果我find("*"),代码就运行了，我想问下VBA 不识别数字吗？我找 1 它不识别？

追答

我按你这样做的也全部填充了,还是一切正常啊,退出EXECL重进看看,或者按CTRL+F打开查看对话框看看 是否范围啥的不对 VBA运行后 查找的设置是默认记忆上次的结果的
查找的LookIn:=xlValues等一系列的参数最好不要不写,不写用的话VBA都是用的默认值(上次查找的设置值),用来用去的最后就容易出错 ,特别是一边用CRTL+F 一边用VBA 容易搞错了

Answer 2

代码没问题，可以运行