问基于阵列VBA中存储的开始日期和结束日期的循环

EN

Sub Test()

    Dim StRows As Variant
    Dim EndRows As Variant

    Dim aStRow As Variant
    Dim aEndRow As Variant

    StRows = Array(1, 2, 3, 4, 5)
    EndRows = Array(6, 7, 8, 9, 10)

    For Each aStRow In StRows
        For Each aEndRow In EndRows
            Debug.Print aStRow & " - " & aEndRow
        Next aEndRow
    Next aStRow

End Sub

Sub LoopRanges()

    Dim aStart As Variant
    Dim aEnd As Variant
    Dim i As Long
    Dim rCell As Range

    'Start and End have some number of elements
    aStart = Array("A1", "B3", "C10", "D1")
    aEnd = Array("A10", "B15", "C12", "D20")

    With Sheet1
        'loop through start, but use the same control variable (i) for both start and end
        For i = LBound(aStart) To UBound(aStart)
            For Each rCell In .Range(.Range(aStart(i)), .Range(aEnd(i))).Cells
                Debug.Print rCell.Address
            Next rCell
        Next i
    End With

End Sub