如何在Excel中拆分qtyordered数值生成多行标签打印数据？

针对老旧Excel版本、无法使用Office Scripts的情况，提供两种可行方案：

一、函数公式法（无需宏操作） #

假设源订单表在Sheet1，列结构为：A=item，B=packaging，C=qtyordered；拆分结果输出到Sheet2。

步骤1：添加辅助列计算拆分行数 #

在Sheet1的D2单元格输入公式，下拉填充至所有订单行：

=INT(C2) + IF(MOD(C2,1) > 0, 1, 0)

该公式计算每个订单需要拆分的总行数（整数部分行数+小数部分1行，无小数则仅整数行数）。

步骤2：添加辅助列计算累计行数 #

在Sheet1的E2单元格输入=D2，E3单元格输入=E2+D3，下拉填充至所有订单行。E列将记录到当前订单为止的累计拆分总行数。

步骤3：生成拆分后的数据 #

在Sheet2的对应单元格输入以下公式，选中A2:C2下拉填充至出现错误值（表示数据拆分完成）：

• A2（匹配原item）：

  =INDEX(Sheet1!$A:$A,MATCH(ROW(A1),Sheet1!$E:$E,1))
  

• B2（匹配原packaging）：

  =INDEX(Sheet1!$B:$B,MATCH(ROW(A1),Sheet1!$E:$E,1))
  

• C2（拆分后的数量）：

  =IF(ROW(A1) <= SUM(Sheet1!$D$2:INDEX(Sheet1!$D:$D,MATCH(A2,Sheet1!$A:$A,0)))-IF(MOD(INDEX(Sheet1!$C:$C,MATCH(A2,Sheet1!$A:$A,0)),1)>0,1,0),1,MOD(INDEX(Sheet1!$C:$C,MATCH(A2,Sheet1!$A:$A,0)),1))
  

二、VBA宏法（高效批量处理） #

VBA适合大量数据的批量拆分，操作步骤如下：

1. 按Alt+F11打开VBA编辑器。
2. 右键点击当前工作簿 → 插入 → 模块，粘贴以下代码：

Sub SplitQtyToRows()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRow As Long, targetRow As Long
    Dim i As Long, qty As Double, intPart As Integer, decPart As Double
    
    ' 替换为实际的源表和目标表名称
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsTarget = ThisWorkbook.Sheets("Sheet2")
    
    ' 清空目标表已有数据（保留表头）
    wsTarget.Range("A2:C" & wsTarget.Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
    
    targetRow = 2 ' 目标表数据起始行
    
    ' 获取源表最后一行
    lastRow = wsSource.Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 遍历每个订单行
    For i = 2 To lastRow
        qty = wsSource.Cells(i, 3).Value
        intPart = Int(qty)
        decPart = qty - intPart
        
        ' 生成整数部分的行
        If intPart > 0 Then
            wsTarget.Range("A" & targetRow & ":B" & targetRow + intPart - 1).Value = wsSource.Range("A" & i & ":B" & i).Value
            wsTarget.Range("C" & targetRow & ":C" & targetRow + intPart - 1).Value = 1
            targetRow = targetRow + intPart
        End If
        
        ' 生成小数部分的行（若存在小数）
        If decPart > 0 Then
            wsTarget.Range("A" & targetRow & ":B" & targetRow).Value = wsSource.Range("A" & i & ":B" & i).Value
            wsTarget.Range("C" & targetRow).Value = decPart
            targetRow = targetRow + 1
        End If
    Next i
    
    MsgBox "数量拆分完成！", vbInformation
End Sub

3. 修改代码中Sheet1和Sheet2为实际工作表名称，按F5运行宏，或回到Excel界面通过「开发工具→宏」选择SplitQtyToRows执行。

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