多次循环xldown

Sub MultipleLoopXlDown()
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取当前活动工作表的最后一行
    lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 从第一行开始循环
    i = 1
    Do While i <= lastRow
        ' 在当前列中向下查找最后一个非空单元格
        Range("A" & i).Select
        Selection.End(xlDown).Select
        
        ' 在这里可以进行你想要的操作，比如获取单元格的值、进行计算等
        
        ' 跳转到下一行
        i = ActiveCell.Row + 1
    Loop
End Sub