求助：完善Excel数据库格式重构VBA脚本——处理插入行后的数据配置

问题背景 #

我是本网站的新用户，但常来查找Excel问题的解决方案，在此感谢各位答主的分享。现注册账号寻求技术帮助：我需要将现有Excel数据库格式转换为目标格式（附图展示当前与目标格式）。目前已通过本论坛获取VBA代码，可根据E列数值插入对应行数，但无法实现将原A:E列内容复制到新插入行，也不知如何重新配置F至L列的数据。

完善后的VBA代码 #

Sub Insert_SB()
    Dim lngCounter As Long
    Dim insertRows As Long
    
    ' 从最后一行向上循环，避免插入行干扰循环计数
    For lngCounter = Range("E" & Rows.Count).End(xlUp).Row To 2 Step -1
        With Cells(lngCounter, "E")
            ' 仅处理数值大于1的行，跳过非数值或值为0/1的情况
            If IsNumeric(.Value) And .Value > 1 Then
                insertRows = .Value - 1
                ' 插入对应行数
                .Offset(1, 0).Resize(insertRows, 1).EntireRow.Insert
                ' 复制原行A:E列内容到所有新插入行
                Rows(lngCounter).Range("A:E").Copy Destination:=Rows(lngCounter + 1).Resize(insertRows, 5)
                
                ' --- F:L列配置逻辑，按需选择修改 ---
                ' 方案1：复制原行F:L内容到插入行
                Rows(lngCounter).Range("F:L").Copy Destination:=Rows(lngCounter + 1).Resize(insertRows, 7)
                ' 方案2：清空插入行F:L列内容
                ' Rows(lngCounter + 1).Resize(insertRows, 7).ClearContents
                ' 方案3：填充统一默认值（示例为空字符串）
                ' Rows(lngCounter + 1).Resize(insertRows, 7).Value = ""
            End If
        End With
    Next lngCounter
End Sub

代码说明 #

• 新增A:E列复制逻辑：插入行后直接同步原行的基础数据，保证格式统一
• F:L列灵活配置：提供3种常用处理方案，你可以根据目标格式要求，注释掉不需要的方案，启用对应代码段
• 优化循环逻辑：移除冗余的提前终止判断，仅处理需要插入行的场景，避免循环中断

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