Excel用户窗体列表框填充问题：查找“Lisa”后添加下方单元格内容

我来帮你搞定这个问题～你的代码里有两个关键错误导致列表框显示为空，咱们一步步修正：

问题分析 #

1. 错误引用单元格：你用了ActiveCell.Offset(1, 0).Select，但ActiveCell和你找到的包含"Lisa"的rngFound完全不是一回事，这就导致你根本没拿到要添加的内容。
2. 未处理多个匹配项：默认的Find只会找第一个"Lisa"，就算找对了，也只能处理一个，而且你还没把正确的内容传给列表框。

修正后的代码 #

Sub Lab_ClearProcess()
    Dim rngFound As Range
    Dim firstFoundAddress As String ' 记录第一个匹配单元格地址，防止循环无限执行
    
    With ActiveSheet.Cells
        ' 查找第一个完全匹配"Lisa"的单元格（需要部分匹配就把xlWhole改成xlPart）
        Set rngFound = .Find("Lisa", LookIn:=xlValues, LookAt:=xlWhole)
        
        If Not rngFound Is Nothing Then
            firstFoundAddress = rngFound.Address ' 保存初始地址
            
            Do
                ' 获取当前"Lisa"单元格下方一行的内容，添加到列表框
                If Not IsEmpty(rngFound.Offset(1, 0).Value) Then
                    UF_ClearForm.ListBox1.AddItem rngFound.Offset(1, 0).Value
                End If
                
                ' 查找下一个匹配项
                Set rngFound = .FindNext(rngFound)
            Loop While Not rngFound Is Nothing And rngFound.Address <> firstFoundAddress
            
            ' 显示用户窗体
            UF_ClearForm.Show
        Else
            ' 未找到匹配项时提示
            MsgBox "No Processes can be found"
        End If
    End With
End Sub

关键修改说明 #

• 直接使用rngFound：用rngFound.Offset(1, 0)替代ActiveCell，确保获取的是找到的"Lisa"单元格正下方的内容。
• 循环查找所有匹配项：通过FindNext和记录初始地址，遍历所有包含"Lisa"的单元格，把每个对应的下方内容都添加到列表框。
• 精确匹配控制：添加LookAt:=xlWhole确保只匹配完全等于"Lisa"的单元格，避免误匹配类似"LisaMiller"的内容（如果需要部分匹配可以改成xlPart）。
• 空值过滤（可选）：加上IsEmpty判断，避免把空单元格内容添加到列表框里。

最后再确认下：你的用户窗体必须叫UF_ClearForm，里面的列表框必须是ListBox1，名称不匹配也会导致内容加不进去哦～

内容的提问来源于stack exchange，提问作者L Johnstone