VBA Range数组读取异常：无法合并区域且循环报错求助

问题根源 #

你原代码的核心错误在于遍历Range对象时的写法：

• For Each i In subjectArray循环中，i是单个单元格的Range对象，而非索引值，subjectArray(i)的写法会触发类型错误。
• 即使subjectArray是合并后的Union区域，直接用索引访问不连续Range时，VBA会按区域（Area）顺序取值，容易出现对应错误。

解决方案1：修正Range遍历逻辑 #

通过计数索引同步两个Range集合的元素，确保一一对应：

Dim subjectArray As Range
Dim durationArray As Range
Dim rw As Long
Dim i As Range
Dim idx As Long

Set subjectArray = Nothing
Set durationArray = Nothing

For rw = 4 To 200
    If Left(Cells(rw, 2).Value, 3) = "ATT" And Cells(rw, 2).EntireRow.Hidden = False Then
        If subjectArray Is Nothing Then
            Set subjectArray = ActiveSheet.Range("B" & rw)
            Set durationArray = ActiveSheet.Range("F" & rw + 2)
        Else
            Set subjectArray = Union(subjectArray, ActiveSheet.Range("B" & rw))
            Set durationArray = Union(durationArray, ActiveSheet.Range("F" & rw + 2))
        End If
    End If
Next rw

' 同步遍历两个Range集合
idx = 1
For Each i In subjectArray
    Debug.Print i.Value ' 获取当前subject单元格值
    Debug.Print durationArray(idx).Value ' 获取对应位置的duration值
    idx = idx + 1
    ' 可直接替换为你的业务函数：YourFunction(i.Value, durationArray(idx-1).Value)
Next i

解决方案2：转换为值数组（更稳定可靠） #

将符合条件的值存入普通数组，避免不连续Range的访问问题，更适合后续函数调用：

Dim subjectValues() As Variant
Dim durationValues() As Variant
Dim rw As Long
Dim count As Long
Dim i As Long

count = 0

' 第一步：统计符合条件的记录数
For rw = 4 To 200
    If Left(Cells(rw, 2).Value, 3) = "ATT" And Cells(rw, 2).EntireRow.Hidden = False Then
        count = count + 1
    End If
Next rw

' 第二步：初始化数组
ReDim subjectValues(1 To count)
ReDim durationValues(1 To count)

' 第三步：填充数组
count = 1
For rw = 4 To 200
    If Left(Cells(rw, 2).Value, 3) = "ATT" And Cells(rw, 2).EntireRow.Hidden = False Then
        subjectValues(count) = ActiveSheet.Range("B" & rw).Value
        durationValues(count) = ActiveSheet.Range("F" & rw + 2).Value
        count = count + 1
    End If
Next rw

' 遍历数组并调用函数
For i = 1 To UBound(subjectValues)
    Debug.Print subjectValues(i)
    Debug.Print durationValues(i)
    ' 替换为你的业务逻辑：YourFunction(subjectValues(i), durationValues(i))
Next i

说明 #

• 方案1保留了Range对象的特性，适合需要操作单元格格式等场景；
• 方案2使用值数组，访问速度更快，且避免了不连续Range的索引陷阱，更适合仅需提取值的业务场景。

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