Excel VBA实现指定格式订单报表生成的技术问询

实现思路 #

• 按订单遍历源数据，把每个订单的Size列表按5个一组拆分
• 每组Size对应报表的一行，只有第一组所在行填充Name、Product No等核心字段，后续行留空这些字段
• 处理Quantity显示：数量>10时用「Size x Quantity」格式，否则直接显示Size

完整代码示例 #

Sub GenerateOrderReport()
    Dim wsSource As Worksheet, wsReport As Worksheet
    Dim lastRow As Long, reportRow As Long, i As Long
    Dim sizeArr As Variant, qtyArr As Variant
    Dim totalSizes As Integer, totalGroups As Integer
    Dim groupNum As Integer, startPos As Integer, endPos As Integer
    
    ' 替换成你的实际工作表名称
    Set wsSource = ThisWorkbook.Worksheets("订单数据源")
    Set wsReport = ThisWorkbook.Worksheets("最终报表")
    reportRow = 2 ' 报表表头在第1行，从第2行开始填数据
    
    ' 遍历所有源数据行
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    For i = 2 To lastRow ' 源数据表头在第1行
        ' 提取当前订单的基础信息
        Dim custName As String, prodID As String
        custName = wsSource.Cells(i, "A").Value
        prodID = wsSource.Cells(i, "B").Value
        
        ' 拆分Size和Quantity（假设源数据用逗号分隔多个值，按需修改分隔符）
        sizeArr = Split(wsSource.Cells(i, "C").Value, ",")
        qtyArr = Split(wsSource.Cells(i, "D").Value, ",")
        totalSizes = UBound(sizeArr) + 1
        
        ' 计算需要分多少组（每5个Size一组）
        totalGroups = Application.WorksheetFunction.RoundUp(totalSizes / 5, 0)
        
        ' 处理每一组Size
        For groupNum = 1 To totalGroups
            ' 确定当前组的起止索引
            startPos = (groupNum - 1) * 5
            endPos = WorksheetFunction.Min(startPos + 4, totalSizes - 1)
            
            ' 只有第一组填充核心字段
            If groupNum = 1 Then
                wsReport.Cells(reportRow, "A") = custName
                wsReport.Cells(reportRow, "B") = prodID
                ' 这里可以加其他需要填充的字段，比如订单日期、客户ID等
            End If
            
            ' 把当前组的Size填充到G-K列
            Dim colIdx As Integer
            For colIdx = 0 To endPos - startPos
                Dim sizeText As String, qtyNum As Integer
                sizeText = Trim(sizeArr(startPos + colIdx))
                qtyNum = CInt(Trim(qtyArr(startPos + colIdx)))
                
                ' 按规则显示Size/Size x Quantity
                If qtyNum > 10 Then
                    wsReport.Cells(reportRow, "G").Offset(0, colIdx) = sizeText & " x " & qtyNum
                Else
                    wsReport.Cells(reportRow, "G").Offset(0, colIdx) = sizeText
                End If
            Next colIdx
            
            reportRow = reportRow + 1 ' 报表行下移
        Next groupNum
    Next i
    
    MsgBox "报表生成完毕！"
End Sub

关键细节说明 #

• 分组计算：用RoundUp(totalSizes/5,0)确保哪怕最后一组只有1个Size也能单独占一行
• 核心字段控制：通过groupNum=1判断是否填充Name、Product No，避免重复
• Quantity格式：直接判断数量是否大于10，拼接对应字符串即可
• 适配调整：代码里的列标（A列Name、C列Size等）要根据你的实际表格修改；如果源数据是每个Size单独一行，需要先按订单分组再收集Size列表

注意点 #

• 源数据里的Size和Quantity必须一一对应，分隔符要统一（代码用逗号，改成你实际用的分隔符就行）
• 如果报表的G-K列位置不对，修改wsReport.Cells(reportRow, "G")里的列标即可

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