VBA遍历行时出现类型不匹配错误求助

嘿，我来帮你排查这个类型不匹配的问题！从你给出的代码片段来看，大概率是几个小细节出了问题，咱们一步步来解决：

首先，最可能的原因：ResultString的类型声明不完整 #

你代码里写的Dim ResultString As S...明显是没写完，应该是Dim ResultString As String对吧？如果没有明确声明为字符串类型，VBA会默认把它当成变体类型，当你拼接某些单元格值（比如错误值、特殊格式的日期）时，就容易触发类型不匹配错误。

其次，要注意处理单元格的错误值 #

如果你的目标区域里有公式返回的错误值（比如#N/A、#VALUE!），直接拼接这些值到字符串里也会导致类型不匹配，所以得先判断单元格是否有错误。

给你修正后的完整示例代码 #

假设你要把SR表中A到C列的记录，拼接成字符串后加到ListBox里，代码可以这么写：

' 先确保SR是已正确引用的工作表对象
Dim SR As Worksheet
Set SR = ThisWorkbook.Worksheets("SR") ' 替换成你的工作表实际名称

With SR
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With

Dim Rng As Range
Dim Row As Range
Dim ResultString As String ' 这里必须明确声明为String类型
Dim i As Integer

' 假设你要处理从第2行开始的A到C列数据（跳过表头）
Set Rng = SR.Range("A2:C" & LastRow)

' 先清空ListBox，避免重复添加
ListBox1.Clear

For Each Row In Rng.Rows
    ResultString = "" ' 每次循环重置字符串，避免残留上一行的内容
    ' 遍历当前行的每个单元格
    For i = 1 To Row.Cells.Count
        ' 先判断单元格是否有错误值，避免类型冲突
        If Not IsError(Row.Cells(i).Value) Then
            ' 用制表符分隔每个单元格的值，你可以换成逗号、空格等自己需要的分隔符
            ResultString = ResultString & Row.Cells(i).Value & vbTab
        Else
            ' 遇到错误值时，替换成友好提示
            ResultString = ResultString & "[错误值]" & vbTab
        End If
    Next i
    
    ' 去掉最后一个多余的分隔符
    If Len(ResultString) > 0 Then
        ResultString = Left(ResultString, Len(ResultString) - Len(vbTab))
    End If
    
    ' 将拼接好的字符串添加到ListBox
    ListBox1.AddItem ResultString
Next Row

额外推荐：更高效的多列ListBox用法 #

如果你希望ListBox显示多列（而不是把所有值拼成一个字符串），其实完全不用手动拼接，直接把区域的值赋值给ListBox的List属性就行，既简单又不会有类型问题：

Dim SR As Worksheet
Set SR = ThisWorkbook.Worksheets("SR")

With SR
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With

Dim Rng As Range
Set Rng = SR.Range("A2:C" & LastRow)

With ListBox1
    .Clear
    .ColumnCount = Rng.Columns.Count ' 设置ListBox的列数和区域一致
    .ColumnWidths = "80,80,80" ' 可以自定义每列的宽度
    .List = Rng.Value ' 直接把区域数据赋值给ListBox，一步到位！
End With

最后再检查几个关键点 #

1. 确认SR工作表的名称和你代码里的一致，别拼写错了；
2. 检查目标区域里有没有特殊类型的单元格（比如错误值、数组公式返回的结果）；
3. 确认你的ListBox控件名称正确（比如是ListBox1还是你自定义的名称）。

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