如何在Microsoft Excel中每10或15行自动递归复制指定行？

当然可以实现，下面给你两种实用的自动化方案，按需选择：

方案一：VBA宏（最直接高效） #

适合需要快速批量插入的场景，步骤如下：

1. 打开你的Excel工作表，按下Alt + F11打开VBA编辑器
2. 右键点击左侧项目浏览器中的当前工作簿名称 → 选择「插入」→ 「模块」
3. 将以下代码粘贴到模块窗口中，根据你的实际情况修改参数：

Sub InsertIncomeRows()
    Dim ws As Worksheet
    Dim insertInterval As Integer
    Dim startRow As Integer
    Dim lastRow As Long
    Dim i As Long
    Dim incomeRowRange As Range
    
    ' ---------- 修改以下参数适配你的需求 ----------
    Set ws = ThisWorkbook.Worksheets("预算跟踪") ' 替换成你的工作表名称
    insertInterval = 10 ' 替换成你要的间隔行数（10或15）
    startRow = 2 ' 数据起始行（假设第1行是表头）
    Set incomeRowRange = ws.Rows("3") ' 替换成你要复制的固定收入行的行号
    ' -------------------------------------------
    
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从下往上插入，避免行号偏移导致重复插入
    For i = lastRow To startRow Step -insertInterval
        incomeRowRange.Copy
        ws.Rows(i + 1).Insert Shift:=xlDown
        ' 如需保留原收入行格式，删除下面两行；仅保留值则保留
        ws.Rows(i + 1).ClearFormats
        ws.Rows(i + 1).PasteSpecial xlPasteValues
    Next i
    
    Application.CutCopyMode = False
    MsgBox "收入行已自动插入完成！"
End Sub

4. 回到Excel界面，按下Alt + F8，选择InsertIncomeRows宏并点击「执行」即可完成批量插入。

方案二：Power Query（无需代码，适合新手） #

如果你不想用VBA，可以用Power Query实现自动化更新：

1. 选中你的数据区域（包含表头），点击「数据」选项卡 → 「从表格/区域」（Excel 2016及以上版本支持）
2. 在Power Query编辑器中，点击「添加列」→ 「索引列」→ 「从1开始」
3. 添加自定义列，输入公式= Number.RoundUp([索引]/10)（将10替换为你需要的间隔行数15），命名为「分组ID」
4. 点击「转换」→ 「分组依据」，分组列选择「分组ID」，操作选择「所有行」，新列名设为「数据组」
5. 提前准备好固定收入行的内容（比如存为一个记录：收入行 = [日期="发薪日", 类别="收入", 金额=你的工资额, ...]），然后添加自定义列输入= {[数据组], 收入行}
6. 点击自定义列右侧的展开按钮，选择「到行」，然后删除多余的列（索引、分组ID等）
7. 点击「关闭并上载」，将处理后的数据加载回Excel，后续更新只需刷新数据即可。

注意事项 #

• 操作前务必备份工作表，避免数据丢失
• VBA宏需要启用宏才能运行，若Excel提示宏被禁用，需在信任中心设置启用

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