Excel VBA：For Each遍历单条目数组时触发错误的求助

这个问题的核心原因很明确：当你的目标范围（K2:Kx）只有一行数据时，Range.Value返回的不是二维数组，而是一个单一的变量值，而For Each语句只能用来遍历数组或者集合对象，直接遍历单一值就会触发错误。

解决方案：确保arr始终是数组 #

我们可以在赋值后检查arr是否为数组，如果不是，就手动把它转换成一个一维数组，这样For Each就能正常遍历了。另外，VBA中从Range得到的数组默认是二维数组（即使是单列），转成一维数组会让遍历更直观。

下面是修正后的完整代码：

Dim arr As Variant
Dim lastRow As Long
lastRow = Cells(Rows.Count, "K").End(xlUp).Row

' 获取K列数据，处理单行情况
If lastRow = 2 Then ' 只有K2一行数据
    arr = Array(Range("K2").Value) ' 手动转成一维数组
Else
    arr = Range("K2:K" & lastRow).Value
    ' 把二维数组转成一维数组，方便遍历
    arr = Application.Transpose(arr)
End If

Dim x As Variant, y As Variant, match As Boolean
Dim Sistaraden As Long

For Each x In arr
    match = False
    For Each y In varr ' 注意：varr也需要确保是有效数组/集合，否则同样会报错
        If x = y Then
            match = True
            Exit For ' 找到匹配就跳出内层循环，提升效率
        End If
    Next y
    
    If Not match Then
        Sistaraden = Sheets("Sammanställning").Cells(Rows.Count, "A").End(xlUp).Row + 1
        Sheets("Sammanställning").Range("A" & Sistaraden).Value = x
        ' 若需要动态更新varr，记得同样处理单行情况
        ' varr = Sheets("Sammanställning").Range("A1:A" & Sheets("Sammanställning").Cells(Rows.Count, "A").End(xlUp).Row).Value
    End If
Next x

关键细节说明： #

• 单行转数组：当lastRow等于2时，说明只有K2一个单元格，用Array()函数把它包装成一维数组，让For Each可以正常遍历。
• 二维转一维：多行列数据时，用Application.Transpose把单列二维数组转成一维数组，避免遍历时候写x(1,1)这种繁琐的二维索引。
• 提前退出内层循环：一旦找到匹配项就用Exit For跳出，减少不必要的循环次数，优化代码运行效率。

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