如何将订单数量转换为连续数字范围，遇空行重置起始值？

核心实现逻辑 #

针对空行分隔的多订单数量表格，完成两个关键操作：

• 单个订单内，按商品数量生成连续数字范围（如数量8对应1-8，后续数量6对应9-14）
• 检测到空行时，自动重置计数起始值为1，开启下一个订单的范围计算

VBA代码实现 #

Sub GenerateQuantityRanges()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currentStart As Long
    Dim i As Long
    Dim qty As Integer
    
    ' 指定要处理的工作表（可根据实际修改）
    Set ws = ActiveSheet
    ' 获取数据最后一行（假设数量在A列，可修改列标识）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    currentStart = 1 ' 初始起始值
    
    For i = 1 To lastRow
        ' 检测空行，重置起始值
        If ws.Cells(i, "A").Value = "" Then
            currentStart = 1
        Else
            ' 读取当前行数量
            qty = ws.Cells(i, "A").Value
            ' 生成范围并写入目标列（示例写入B列，可修改）
            ws.Cells(i, "B").Value = currentStart & "-" & (currentStart + qty - 1)
            ' 更新下一个范围的起始值
            currentStart = currentStart + qty
        End If
    Next i
End Sub

使用步骤 #

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器
2. 插入新模块：右键左侧工程窗口的工作簿名称 → 插入 → 模块
3. 将上述代码粘贴到模块中
4. 根据实际数据位置修改代码：
   • 若数量在C列，把代码中的"A"替换为"C"
   • 若要将结果写入D列，把"B"替换为"D"
5. 返回Excel界面，按下Alt + F8，选择GenerateQuantityRanges执行宏

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