如何移除重复双层循环并简化VBA代码？实现批量复制间隔数据块

原代码的核心逻辑是复制指定行块的3-8列数据到右侧第7列位置，但重复编写循环会导致代码冗余，用外层循环控制行块的起始位置就能实现批量处理：

优化后的VBA代码 #

Sub BatchCopyData()
    Dim startRow As Integer
    Dim i As Integer, j As Integer
    
    ' 遍历所有目标行块，起始行从34开始，每次递增4（3行数据+1行间隔）
    ' 可根据实际需求调整终止行，比如到100行就改成 startRow <= 100
    For startRow = 34 To 100 Step 4
        ' 处理3-8列的复制
        For i = 3 To 8
            ' 处理当前行块的3行（startRow到startRow+2）
            For j = startRow To startRow + 2
                Cells(j, i + 7) = Cells(j, i)
            Next j
        Next i
    Next startRow
End Sub

代码说明 #

• 外层循环For startRow = 34 To 100 Step 4：startRow是每个行块的起始行，Step 4对应3行数据块加1行间隔（34→38→42…完全匹配你的块间隔要求）。可根据实际数据范围修改终止行数值。
• 内层i循环控制列范围（3到8列），j循环控制当前行块的3行（从startRow到startRow+2），复制逻辑和原代码完全一致：把Cells(j,i)的值复制到右侧第7列的Cells(j,i+7)位置。

如果需要动态判断最后一个行块（比如直到某行无数据为止），可以用以下逻辑：

Sub BatchCopyData_Dynamic()
    Dim startRow As Integer
    Dim i As Integer, j As Integer
    
    startRow = 34
    ' 循环直到当前行块的第一行第3列无数据（可根据实际数据位置调整判断条件）
    Do While Cells(startRow, 3).Value <> ""
        For i = 3 To 8
            For j = startRow To startRow + 2
                Cells(j, i + 7) = Cells(j, i)
            Next j
        Next i
        startRow = startRow + 4 ' 跳到下一个行块起始行
    Loop
End Sub

补充提示 #

• 若只需处理固定数量的行块，比如5个，可把外层循环写成For startRow = 34 To 34 + 4*(5-1) Step 4，精准控制循环次数。
• 原代码中的Cells(j,7+i)和Cells(j,i+7)完全等价，写法可保持一致。

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