基于多条件将数据提取至单个单元格的VBA实现问题

原代码存在的问题 #

• 未定义并赋值lastRow：循环终止行未指定，会触发变量未定义的运行错误。
• 未声明result变量且直接赋值：这行代码逻辑错误，且会触发变量未定义报错。
• 匹配结果直接覆盖而非追加：每次匹配到内容都会替换单元格值，最终仅保留最后一个匹配项，无法实现多结果合并。
• 冗余变量valueToSearch：定义后未使用，可删除简化代码。

修正后的代码 #

Sub FindValues()
    Dim lookUpSheet As Worksheet, updateSheet As Worksheet
    Dim i As Long, lastRow As Long
    Dim matchCondition As String
    Dim targetCell As Range
    Dim resultText As String
    
    ' 绑定工作表对象
    Set lookUpSheet = Worksheets("Test")
    Set updateSheet = Worksheets("result")
    ' 指定目标输出单元格
    Set targetCell = updateSheet.Cells(22, 5)
    
    ' 拼接匹配条件作为判断键
    matchCondition = updateSheet.Range("C22").Value & updateSheet.Range("E21").Value
    
    ' 自动获取Test表数据区的最后一行行号（以第5列为基准）
    lastRow = lookUpSheet.Cells(lookUpSheet.Rows.Count, 5).End(xlUp).Row
    
    ' 初始化结果文本为空
    resultText = ""
    
    ' 遍历数据行（假设第1行是表头）
    For i = 2 To lastRow
        ' 检查当前行的组合条件是否匹配
        If lookUpSheet.Cells(i, 5).Value & lookUpSheet.Cells(i, 2).Value = matchCondition Then
            ' 拼接当前行需提取的内容，用换行分隔，每一组结果后加空行区分
            resultText = resultText & lookUpSheet.Cells(i, 1).Value & vbNewLine _
                      & lookUpSheet.Cells(i, 3).Value & vbNewLine _
                      & lookUpSheet.Cells(i, 4).Value & vbNewLine & vbNewLine
        End If
    Next i
    
    ' 去除末尾多余的换行符，再赋值给目标单元格
    If Len(resultText) > 0 Then
        targetCell.Value = Left(resultText, Len(resultText) - 2)
    End If
    ' 开启自动换行，保证内容正常显示
    targetCell.WrapText = True
End Sub

修正说明 #

• 新增lastRow自动获取逻辑，无需硬编码行号，适配数据变动。
• 用resultText变量逐步拼接匹配内容，实现多结果合并。
• 提取匹配条件到matchCondition变量，让代码逻辑更清晰。
• 处理末尾多余换行，避免单元格出现无效空行。
• 开启目标单元格自动换行，确保拼接内容正常展示。

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