VBA数组引发运行时错误13（类型不匹配）：循环行报错求助

错误根源 #

你遇到的问题核心在于：当你把单个单元格的Range.Value赋值给Variant变量时，它不会生成数组，而是直接存储为单个值（比如字符串、数字或日期）。

看你的代码片段：

Set buyRngLow = Range("D" & lStartBuyRange)
buyArrayLow = buyRngLow.Value

如果lStartBuyRange对应的是单个单元格（比如D5），那么buyArrayLow就是一个孤立的值，而非数组结构。这时候调用LBound(buyArrayLow)或UBound(buyArrayLow)就会触发类型不匹配错误——因为这两个函数仅支持数组类型，无法作用于单个值。
哪怕你说数组里“存在值”，这个“值”其实是单个独立值，不是数组的元素。

具体解决方法 #

根据你的业务场景，有几种可行的修复方案：

方案1：强制将单个单元格值转为数组 #

如果buyRngLow可能是单个单元格也可能是多单元格区域，可以修改赋值语句，确保变量始终是数组：

' 用Array()包裹单个值，强制转为数组
buyArrayLow = Array(buyRngLow.Value)
buyArrayHigh = Array(buyRngHigh.Value)

更严谨的写法（判断单元格数量后处理）：

If buyRngLow.Cells.Count = 1 Then
    buyArrayLow = Array(buyRngLow.Value2)
Else
    buyArrayLow = buyRngLow.Value2
End If

方案2：直接基于单元格范围循环 #

如果你的需求只是遍历目标单元格，其实可以跳过数组，直接操作Range对象：

Dim cell As Range
For Each cell In buyRngLow
    ' 在这里处理cell.Value，比如：
    ' Debug.Print cell.Value
Next cell

方案3：提前判断变量是否为数组 #

如果必须用数组逻辑处理，可以先检查变量类型再执行循环：

If IsArray(buyArrayLow) Then
    For i = LBound(buyArrayLow) To UBound(buyArrayLow)
        ' 数组元素的处理逻辑
    Next i
Else
    ' 单个值的处理逻辑
    Debug.Print "buyArrayLow是单个值：" & buyArrayLow
End If

额外调试提示 #

如果你的buyRngLow本来应该是多单元格区域，但实际只选中了单个单元格，可能是lStartBuyRange和lEndBuyRange的值异常（比如两者相等），可以加调试语句确认：

Debug.Print "buyRngLow的单元格数量：" & buyRngLow.Cells.Count

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