如何用VBA宏动态展开Excel中产品ID范围为独立行？

以下是一个可动态适配数据变化的VBA宏，能自动识别工作表内所有数据行，将含ID范围的行拆分为单个ID行，同时保留对应描述等重复信息：

Sub ExpandIDRanges()
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long
    Dim idRange As String, idParts() As String
    Dim prefix As String, startNum As Long, endNum As Long, currentNum As Long
    Dim rowInsertCount As Long
    
    ' 指定目标工作表，按需修改表名
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 自动获取数据区域最后一行（以A列为基准）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从最后一行向上遍历，避免插入行打乱循环顺序
    For i = lastRow To 2 Step -1
        idRange = ws.Cells(i, "A").Value
        ' 判断当前ID是否为范围格式
        If InStr(idRange, " - ") > 0 Then
            ' 拆分起始ID与结束ID
            idParts = Split(idRange, " - ")
            
            ' 提取ID前缀和数字部分（假设数字为4位，按需调整）
            prefix = Left(idParts(0), Len(idParts(0)) - 4)
            startNum = CLng(Right(idParts(0), 4))
            endNum = CLng(Right(idParts(1), 4))
            
            ' 计算需插入的行数
            rowInsertCount = endNum - startNum
            
            ' 插入空白行
            ws.Rows(i + 1 & ":" & i + rowInsertCount).Insert Shift:=xlDown
            
            ' 复制原行所有内容到插入行
            ws.Rows(i).Copy
            ws.Rows(i + 1 & ":" & i + rowInsertCount).PasteSpecial xlPasteAll
            
            ' 生成单个ID并写入单元格
            For currentNum = startNum To endNum
                ws.Cells(i + (currentNum - startNum), "A").Value = prefix & Format(currentNum, "0000")
            Next currentNum
        End If
    Next i
    
    Application.CutCopyMode = False
    MsgBox "ID范围展开完成！"
End Sub

核心特性说明 #

• 动态适配数据：通过lastRow自动定位最后一行数据，新增物品后无需修改代码范围。
• 反向遍历逻辑：从末尾行向上处理，避免插入新行导致后续行索引错位。
• 可定制格式：若ID数字位数不是4位，只需修改代码中Len(idParts(0)) - 4、Right(idParts(0), 4)的4，以及Format(currentNum, "0000")的格式符（如3位数字用"000"）。
• 保留全量信息：复制原行所有内容，确保描述及其他列数据同步保留。

使用步骤 #

1. 打开库存Excel文件，按Alt + F11打开VBA编辑器。
2. 右键左侧工作簿名称，选择「插入」→「模块」。
3. 将上述代码粘贴到模块窗口。
4. 修改Set ws = ThisWorkbook.Worksheets("Sheet1")中的Sheet1为实际工作表名。
5. 按F5运行宏，或回到Excel界面通过「开发工具」→「宏」选择ExpandIDRanges执行。

提示：运行前建议备份数据，避免意外操作导致数据丢失。

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