Excel VBA循环遍历10,000组行，每组包含20行

Sub LoopThroughData()
    Dim i As Long
    Dim j As Long
    Dim rowCount As Long
    Dim groupCount As Long
    
    rowCount = 10000 ' 总行数
    groupCount = 20 ' 每组行数
    
    For i = 1 To rowCount Step groupCount
        ' 对每组行进行操作
        For j = i To i + groupCount - 1
            ' 在这里执行你的操作，例如：
            ' MsgBox Cells(j, 1).Value ' 显示第j行第1列的值
        Next j
    Next i
End Sub