如何为Excel VBA宏添加循环：偏移9行区域并复制到J列空行

以下是满足需求的VBA代码，替换你原有的Macro1Loop即可：

Sub Macro1Loop()
    Dim startRow As Integer
    Dim pasteRow As Integer
    startRow = 2 '初始复制区域的起始行
    
    '循环执行，直到A列当前起始行是空值
    Do While Cells(startRow, "A").Value <> ""
        '定位要复制的9行区域（A[startRow]:G[startRow+8]）
        Range(Cells(startRow, "A"), Cells(startRow + 8, "G")).Copy
        
        '确定J列的下一个空行位置
        If Range("J2").Value = "" Then
            pasteRow = 2
        Else
            pasteRow = Range("J" & Rows.Count).End(xlUp).Row + 1
        End If
        
        '粘贴到目标位置
        Range("J" & pasteRow).PasteSpecial xlPasteAll
        Application.CutCopyMode = False
        
        '起始行下移1行，准备下一次循环
        startRow = startRow + 1
    Loop
End Sub

关键修改说明： #

• 用startRow变量动态控制复制区域的起始位置，每次循环后自动+1，实现区域向下偏移1行
• 通过Do While循环判断终止条件：当A列当前起始行为空时，停止循环
• 去掉了原代码中的Select操作，直接通过单元格定位复制/粘贴区域，提升宏的执行效率
• 自动识别J列的下一个空行，确保每次粘贴都不会覆盖已有数据

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