求教各位WPS中如何用VAB只是把表格合并格式如下？

流水年华zibo

请教一下各位大神，如何用VBA把所有的订单按单号来合并格式如下：（不要按客户来汇总），这个格式每天都是一样的，就是订单太多了，如果用EXCEL一个个录要太久了，感谢大家

日期	单号	客户名	产品编号	单价	数量	金额
2024/6/16	SA2406150336	阳春市志伟韩式炸鸡歺饮店	1533	20	2	2
2024/6/16	SA2406150336	阳春市志伟韩式炸鸡歺饮店	1532	4	3	3
2024/6/16	SA2406150336	阳春市志伟韩式炸鸡歺饮店	1532	6	4	4
2024/6/16	SA2406150336	阳春市志伟韩式炸鸡歺饮店	99			225

流水年华zibo

请教一下大家，只需要用VBA把所有的订单按单号来合并，（不要按客户来汇总，格式如附件，谢谢大家

流水年华zibo

只需要按订单号来合并如附近的格式（不要按客户来汇总），格式如附近，谢谢大家了

3190496160

楼主管理订单的方式就是不科学的吧，常规的做法是，用一个订单模板录入订单信息，打印，并把订单信息录入到一个订单明细表中

流水年华zibo

3190496160 发表于 2024-6-16 14:18
楼主管理订单的方式就是不科学的吧，常规的做法是，用一个订单模板录入订单信息，打印，并把订单信息录入到 ...

这个是别人发过来的，然后我要录进去，如果用手工录入，就太麻烦了

流水年华zibo

3190496160 发表于 2024-6-16 14:18
楼主管理订单的方式就是不科学的吧，常规的做法是，用一个订单模板录入订单信息，打印，并把订单信息录入到 ...

亲能帮忙设置一下吗？

3190496160

Sub 合并()
Dim ar As Variant
Dim br()
Dim i As Long
ReDim br(1 To 50000, 1 To 7)
For Each sh In Sheets
    If sh.Name <> ActiveSheet.Name Then
         r = sh.Cells(Rows.Count, 2).End(xlUp).Row
         ar = sh.Range("a1:g" & r)
         For i = 7 To UBound(ar)
            If ar(i, 2) <> "" Then
                N = N + 1
                br(N, 1) = ar(3, 6)
                br(N, 2) = ar(2, 6)
                br(N, 3) = ar(2, 2)
                br(N, 4) = ar(i, 1)
                For j = 5 To 7
                    br(N, j) = ar(i, j)
                Next j
            End If
        Next i
    End If
Next sh
If N = "" Then MsgBox "没有需要汇总的数据！": End
With ActiveSheet
    .[A1].CurrentRegion.Offset(1).Borders.LineStyle = 0
    .[A1].CurrentRegion.Offset(1) = Empty
    .[A2].Resize(N, UBound(br, 2)) = br
    .[A2].Resize(N, UBound(br, 2)).Borders.LineStyle = 1
End With
MsgBox "ok!"
End Sub

3190496160

6-16日DSS订单18张.rar (67.24 KB, 下载次数: 1)

2024-6-16 14:55 上传

点击文件名下载附件

流水年华zibo

3190496160 发表于 2024-6-16 14:55

非常感谢大神

limonet

关键字：union all