FindNext查找颜色失败

冬日暖暖

根据以上两位提供的解答，我更新的代码，执行结果和期望一致。

Sub application_find_color()
Dim Rng, U_Rng, Temp_Rng As Range
Dim st_Rng As String

Application.FindFormat.Clear
Application.FindFormat.Font.ColorIndex = 3
Set Rng = Cells.Find(What:="*", LookIn:=xlValues, searchformat:=True)
If Rng Is Nothing Then MsgBox "没有找到符合条件的单元格": Exit Sub '判断查找结果是否为空，如果为空则退出程序。
st_Rng = Rng.Address
Set U_Rng = Rng

For Each Temp_Rng In Sheet2.UsedRange
    Set Rng = Cells.Find(What:="*", After:=Rng, LookIn:=xlValues, searchformat:=True)
    If Rng.Address <> st_Rng Then
        Set U_Rng = Application.Union(U_Rng, Rng)
    Else
        Exit For
    End If

Next

U_Rng.Interior.ColorIndex = 4
End Sub

ivccav

冬日暖暖 发表于 2019-1-24 13:41
谢谢你的回复。

关于【FindNext为什么忽略参数ResearchFormat:=True】我从你的回复中找到了解答，是因 ...

你理解错我的意思了。Find语句很可能找不到符合条件的单元格，

找不到单元格，它的值就是nothing，nothing是空对象，不能操作。

Find语句其实根本不需要，因为你已经循环整个区域了，相当于自己实现了find功能。

我上次提供的代码其实就是Find的功能了。

冬日暖暖

ivccav 发表于 2019-1-25 14:35
你理解错我的意思了。Find语句很可能找不到符合条件的单元格，

找不到单元格，它的值就是nothing，not ...

我明白你说的意思了。如果Find找不到符合条件的单元格的话，程序会报错，无法运行。
那我应该加如下这条命令
If Rng Is Nothing Then MsgBox "没有找到符合条件的单元格": Exit Sub

另外，我明白你上次提供的代码含义，我写这段代码的目的是理解Find和FindNext。
谢谢你的解释说明。

ivccav

冬日暖暖 发表于 2019-1-25 14:48
我明白你说的意思了。如果Find找不到符合条件的单元格的话，程序会报错，无法运行。
那我应该加如下这条 ...

你这样就正确了。不过我基本不用Find，因为不处理单元格对象。
VBA操作对象是很慢的，几千行数据就无法忍受了，最好改为数组。

工作表中除了数据之外，最好不要有其他，如合并单元格、底色等等都会让工作表变慢。

查询数据的方法有很多种：http://club.excelhome.net/thread-1450458-1-1.html