如何修改VBA MsgBox格式并用逗号分隔多筛选结果？

修改思路 #

1. 替换换行符为逗号分隔：将原代码中拼接字符串的vbCrLf替换为", "，实现结果用逗号分隔。
2. 清理末尾多余符号：循环结束后移除字符串末尾多余的逗号和空格，保证格式整洁。
3. 解决长文本显示问题：MsgBox对内容长度有限制且无法滚动查看，改用支持滚动的InputBox展示长结果；若内容较短，也可保留MsgBox但调整格式。

修改后的代码 #

方案1：用InputBox显示长文本（推荐） #

Sub Fstr()
    Dim resultStr As String
    Dim i As Long ' 改用Long避免行数过多时溢出
    ' 遍历第6列（F列）的已使用行
    For i = 1 To ActiveSheet.UsedRange.Rows.Count
        If Cells(i, 6).Value = "CEM" Then
            ' 用逗号加空格拼接匹配结果
            resultStr = resultStr & CStr(Cells(i, 2).Value) & ", "
        End If
    Next i
    
    ' 移除末尾多余的逗号和空格
    If Len(resultStr) > 0 Then
        resultStr = Left(resultStr, Len(resultStr) - 2)
    End If
    
    ' 展示结果，空结果时提示无匹配
    If resultStr <> "" Then
        InputBox "筛选结果（可滚动查看）", "CEM匹配数据", resultStr
    Else
        MsgBox "未找到匹配""CEM""的数据"
    End If
End Sub

方案2：保留MsgBox（适合短内容场景） #

Sub Fstr()
    Dim resultStr As String
    Dim i As Long
    For i = 1 To ActiveSheet.UsedRange.Rows.Count
        If Cells(i, 6).Value = "CEM" Then
            resultStr = resultStr & CStr(Cells(i, 2).Value) & ", "
        End If
    Next i
    
    If Len(resultStr) > 0 Then
        resultStr = Left(resultStr, Len(resultStr) - 2)
    End If
    
    If resultStr <> "" Then
        MsgBox resultStr, vbOKOnly, "CEM匹配数据"
    Else
        MsgBox "未找到匹配""CEM""的数据"
    End If
End Sub

额外优化说明 #

• 将变量类型从Integer改为Long，避免工作表行数超过32767时出现溢出错误。
• 调整遍历范围为UsedRange.Rows.Count，仅遍历行而非所有单元格，提升代码执行效率。

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