遍历多范围时For Each循环出现编译错误的技术问询

嘿，别懊恼啦！这种小问题其实挺常见的，完全不用不好意思～ 我来帮你快速搞定它！

问题根源 #

你遇到的编译错误，本质是VBA的For Each循环遍历Range时，只能接受单个Range对象作为遍历集合。如果直接把多个Range用逗号丢进去（比如For Each c In Range("A1:A10"), Range("C1:C10")），语法上是不被允许的，编译器自然会报错。

解决方案：用Union合并多个范围 #

要遍历多个不连续或连续的范围，你需要先用Union函数把它们合并成一个单独的Range对象，然后再用For Each遍历这个合并后的对象。

结合你的代码片段，修改后的完整示例如下：

Dim TargetCell As Range, ICol As Integer
Dim c As Range
Dim combinedRange As Range ' 声明合并后的范围对象

Set TargetCell = Rows("9").Find(What:="Forecast", LookIn:=xlValues, LookAt:=xlPart)
If Not TargetCell Is Nothing Then
    ICol = TargetCell.Column
    
    ' 把你需要遍历的多个范围合并（这里假设是第ICol列、ICol+1列、ICol+2列的第10到20行，你可以根据实际需求调整）
    Set combinedRange = Union(Range(Cells(10, ICol), Cells(20, ICol)), _
                             Range(Cells(10, ICol + 1), Cells(20, ICol + 1)), _
                             Range(Cells(10, ICol + 2), Cells(20, ICol + 2)))
    
    ' 遍历合并后的范围
    For Each c In combinedRange
        ' 这里写你的循环逻辑，比如处理单元格值
        ' 示例：Debug.Print c.Address & ": " & c.Value
    Next c
End If

额外注意事项 #

• 如果合并的多个范围有重叠，Union会自动去重，不会重复遍历同一个单元格；
• 确保你要合并的每个Range都是有效的（比如不存在超出工作表范围的单元格），否则Union会抛出运行时错误；
• 如果要遍历的范围是连续的一大块，其实直接用单个Range就好，不用Union（比如Range(Cells(10, ICol), Cells(20, ICol+2))）。

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