嘿，作为VBA新手碰到这种循环复制的需求太正常了，完全可以实现！下面给你一段针对性的VBA代码，我会拆解每部分的作用，方便你理解和修改：

Sub AutoCopyFormulaRange()
    ' 定义变量：数据源工作表、目标工作表、当前复制的行号
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim currentRow As Integer
    
    ' 替换成你的数据源工作表名称和目标工作表名称
    Set sourceSheet = ThisWorkbook.Worksheets("数据源")
    Set targetSheet = ThisWorkbook.Worksheets("目标表")
    
    ' 初始行号从2开始（因为A1:F1是初始模板行）
    currentRow = 2
    
    ' 循环判断：只要数据源对应行不是空行，就继续复制
    Do While Not IsEmpty(sourceSheet.Cells(currentRow, 1)) ' 这里假设数据源的第一列（A列）用来判断空行，可根据实际修改列号
        ' 复制目标表的A1:F1区域
        targetSheet.Range("A1:F1").Copy
        ' 粘贴到当前行的A列开始位置，保留公式和格式
        targetSheet.Range("A" & currentRow).PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
        
        ' 行号+1，准备下一次循环
        currentRow = currentRow + 1
    Loop
    
    ' 清除剪贴板，避免后续操作受影响
    Application.CutCopyMode = False
    MsgBox "复制完成！已在数据源空行处终止循环。"
End Sub

关键细节说明： #

• 工作表名称替换：把代码里的"数据源"和"目标表"改成你实际的工作表名字，别写错哦！
• 空行判断逻辑：代码里用数据源的A列判断空行，如果你的判断依据是其他列（比如B列），把数字1改成对应列号（B列是2，以此类推）。
• 粘贴选项：xlPasteFormulasAndNumberFormats会同时保留公式和原格式，如果你只需要公式，换成xlPasteFormulas就行。
• 初始行号：因为A1:F1是你要复制的模板行，所以从第2行开始粘贴，这个逻辑完全适配你的需求。

快速上手步骤： #

1. 打开Excel，按下Alt + F11打开VBA编辑器；
2. 右键点击你的工作簿，选择「插入」→「模块」；
3. 把上面的代码粘贴到模块里；
4. 修改工作表名称和空行判断列（如果需要）；
5. 按下F5运行代码，或者回到Excel给这个宏加个按钮，方便以后一键运行。

要是运行时碰到问题，先检查工作表名称和列号是不是写错了，新手很容易在这两个地方踩小坑～

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