如何用Excel VBA根据A1单元格值在第1行下方插入对应数量的重复行

以下是满足需求的VBA代码，可直接在Excel中使用：

Sub InsertDuplicateRows()
    Dim insertCount As Integer
    Dim sourceRow As Range
    Dim i As Integer
    
    ' 获取A1单元格指定的插入行数
    insertCount = ThisWorkbook.ActiveSheet.Range("A1").Value
    
    ' 定义要复制的源行范围（第1行B到G列）
    Set sourceRow = ThisWorkbook.ActiveSheet.Range("B1:G1")
    
    ' 从下往上插入行，避免行号偏移问题
    For i = insertCount To 1 Step -1
        ' 在第1行下方插入新行
        ThisWorkbook.ActiveSheet.Rows(2).Insert Shift:=xlDown
        ' 复制源行内容到新插入的行
        sourceRow.Copy Destination:=ThisWorkbook.ActiveSheet.Range("B2:G2")
    Next i
End Sub

代码说明： #

• insertCount：读取A1单元格的数值，确定需要插入的重复行数量
• sourceRow：指定要复制的内容范围（第1行B至G列）
• 采用从下往上循环的方式插入行，防止插入行后导致后续行号偏移，确保每次插入的位置都在第1行下方
• 插入行后直接复制源行内容到新行的对应列

使用方法： #

1. 打开Excel文件，按Alt + F11打开VBA编辑器
2. 插入新模块：右键点击当前工作簿 → 插入 → 模块
3. 将上述代码粘贴到模块中
4. 返回Excel界面，按Alt + F8选择InsertDuplicateRows宏并执行

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