如何在VBA中迭代不连续的范围？

Sub IterateDiscontinuousRange()
    Dim rng As Range
    Dim cell As Range
    
    ' 定义不连续的范围
    Set rng = Union(Range("A1:A3"), Range("A5:A7"), Range("A9:A10"))
    
    ' 迭代范围中的每个单元格
    For Each cell In rng
        ' 在这里执行你的操作
        Debug.Print cell.Value
    Next cell
End Sub