VBA用户窗体FindNext点击按钮无法循环查找问题求助

你的代码核心问题有两个：

• 每次点击按钮都会重新从头开始查找，没有保留上一次的查找位置
• 错误地在单次点击里用Do...Loop一次性遍历所有匹配项，不符合「每次点击显示下一个结果」的需求

修正步骤与代码 #

首先，把查找状态变量声明为模块级（放在所有过程外面），这样每次点击按钮时能记住上一次的查找位置：

' 模块级变量，保存查找状态，放在所有Sub/Function外面
Dim rng As Range
Dim firstAddress As String
Dim searchValue As String

然后修改按钮点击事件代码：

Private Sub CommandButton4_Click()
    Dim ws As Worksheet
    Set ws = Sheets("Raw Survey Data")
    
    ' 第一次点击或搜索值变更时，初始化查找
    If searchValue <> TextBox7.Text Or rng Is Nothing Then
        searchValue = TextBox7.Text
        Set rng = ws.Columns("E:E").Find(searchValue, LookIn:=xlValues, LookAt:=xlWhole)
        
        If rng Is Nothing Then
            MsgBox "No Shots Found"
            Exit Sub
        End If
        firstAddress = rng.Address
    Else
        ' 非第一次点击，查找下一个匹配项
        Set rng = ws.Columns("E:E").FindNext(rng)
        
        ' 如果回到第一个结果，提示循环完毕
        If rng.Address = firstAddress Then
            MsgBox "已遍历所有匹配项，将回到第一个结果"
        End If
    End If
    
    ' 填充文本框
    TextBox1.Text = ws.Cells(rng.Row, 1).Value
    TextBox2.Text = ws.Cells(rng.Row, 2).Value
    TextBox3.Text = ws.Cells(rng.Row, 3).Value
    TextBox4.Text = ws.Cells(rng.Row, 4).Value
    TextBox5.Text = ws.Cells(rng.Row, 5).Value
    TextBox6.Text = ws.Cells(rng.Row, 11).Value
    ' 保持搜索框内容不变（可选）
    ' TextBox7.Text = searchValue
End Sub

关键改动说明 #

• 模块级变量：rng、firstAddress、searchValue放在模块顶部，确保每次点击按钮时不会重置这些变量，保留查找状态
• 初始化逻辑：当搜索框内容变化，或者第一次点击时，重新执行初始查找，记录第一个匹配项的地址
• 逐次查找：每次点击按钮调用FindNext获取下一个匹配项，当回到第一个地址时给出提示
• 简化文本框赋值：直接用rng.Row获取行号，避免额外变量rnum，代码更简洁

额外提示 #

• 建议给Find方法加上LookIn:=xlValues和LookAt:=xlWhole参数，避免因格式或部分匹配导致的意外结果
• 如果需要重置查找（比如重新输入新的搜索值），代码会自动触发初始化，无需额外操作

内容的提问来源于stack exchange，提问作者Joseph Porter