Excel VBA技术问询：Userform找到目标行后如何提取同行数据生成列表

我明白你现在的需求——通过Userform搜索工作表第1列的人员姓名，找到后把该行后续所有单元格的内容拼接成类似John Time Squares 12 New York 0123123123的格式输出对吧？你已经能定位到目标单元格，但卡在了获取整行后续数据这一步，我来帮你搞定这个问题。

问题分析 #

你现有的代码已经完成了搜索关键词获取和目标单元格定位的基础工作，但缺少遍历目标行后续单元格并拼接内容的逻辑。我们需要补充这部分代码，同时加上错误处理（比如搜索为空、找不到目标的情况），让程序更健壮。

完整修正代码 #

Private Sub cmdSearch_Click()
    Dim FindString As String
    Dim Rng As Range
    Dim outputContent As String
    Dim targetCell As Range
    Dim targetSheet As Worksheet
    
    ' 指定要操作的工作表，替换成你的实际表名
    Set targetSheet = ThisWorkbook.Sheets("人员信息表")
    
    ' 获取搜索框的输入内容
    FindString = txtSearch.Text
    outputContent = "" ' 初始化输出内容
    
    ' 检查搜索内容是否为空
    If Trim(FindString) = "" Then
        MsgBox "请输入要搜索的人员姓名！"
        Exit Sub
    End If
    
    ' 在第1列（A列）精确匹配目标姓名
    Set Rng = targetSheet.Range("A:A").Find(What:=FindString, _
        LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
    
    If Not Rng Is Nothing Then ' 成功找到目标行
        ' 遍历目标行中从第2列开始的所有非空单元格
        For Each targetCell In Rng.EntireRow.Cells
            ' 跳过第1列的姓名，只取后续地址、联系方式等信息
            If targetCell.Column > 1 And targetCell.Value <> "" Then
                ' 拼接内容，每个字段之间用空格分隔
                outputContent = outputContent & targetCell.Value & " "
            End If
        Next targetCell
        
        ' 去掉末尾多余的空格
        outputContent = Trim(outputContent)
        
        ' 将结果输出到Userform的控件（这里用txtResult作为结果文本框示例）
        txtResult.Text = outputContent
        ' 如果需要用列表框逐行显示每个字段，可替换为以下代码：
        ' ListBox1.Clear
        ' For Each targetCell In Rng.EntireRow.Cells
        '     If targetCell.Column > 1 And targetCell.Value <> "" Then
        '         ListBox1.AddItem targetCell.Value
        '     End If
        ' Next targetCell
    Else
        ' 未找到目标时提示用户
        MsgBox "未找到名为 '" & FindString & "' 的人员，请检查输入！"
    End If
End Sub

关键逻辑说明 #

1. 工作表指定：通过Set targetSheet = ThisWorkbook.Sheets("人员信息表")明确操作的工作表，避免因激活表变化导致错误
2. 遍历目标行：用Rng.EntireRow.Cells获取找到的单元格所在的整行，再通过targetCell.Column > 1跳过第1列的姓名
3. 内容拼接：用outputContent变量逐步拼接后续单元格内容，最后用Trim()去除末尾多余的空格
4. 错误处理：添加了搜索为空、找不到目标的提示，避免程序无响应或报错

可选调整 #

• 如果需要模糊匹配（比如输入部分姓名就能找到），把LookAt:=xlWhole改成LookAt:=xlPart
• 如果不需要跳过空单元格，删除判断条件targetCell.Value <> ""即可

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