如何遍历各个分表，逐项登记到总表中，完成汇总表

定敏

如图所示，本套表为一张需要汇总的总表和本月五个星期的分表，请教老师们如何将各个分表中各天的记录登记到总表中，

即如第1周第一天显示的各菜样名称中有记录的，就照录到总表的C列货物名称中（显示空的就不登记），数字就记录到相对应的第1天中，而其单位就记在后面的AL列，这个有些绕，但每个月都得做一次，由此就想到可不可借助VBA来实现，可自己又不会，只好请教论坛里的老师们，谢谢：    
订菜数月汇总.zip (49.42 KB, 下载次数: 12)

2024-9-29 10:25 上传

点击文件名下载附件

ykcbf1100

是个体力活。

清风竹-

请看附件。

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$, i%, j%, Sht As Worksheet, Rst As Object
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    For Each Sht In Worksheets
        If Sht.Name Like "第*周" Then
            For i = 1 To Sht.Range("A3").End(xlToRight).Column Step 3
                StrSQL = StrSQL & " Union All Select #" & Sht.Cells(2, i) & "# as 日期,* From [" & Sht.Name & "$" & Sht.Cells(3, i).Resize(99, 3).Address(0, 0) & "] Where [*数量]>0"
            Next
        End If
    Next Sht
    StrSQL = "TransForm Sum([*数量]) Select 商品名称 From (" & Mid(StrSQL, 12) & ") Group By 商品名称 Pivot 日期"
    Set Rst = Cn.Execute(StrSQL)
    For i = 0 To Rst.Fields.Count - 1
        Cells(1, i + 1) = Rst.Fields(i).Name
    Next i
    Range("A2").CopyFromRecordset Rst
End Sub

limonet

关键字：union all+pivot

cnmlgb9998

是这个效果吗？？？？？？？？？？？

定敏

cnmlgb9998 发表于 2024-9-29 14:41
是这个效果吗？？？？？？？？？？？

可以发完整的代码源码来学学吗？谢谢

定敏

清风竹- 发表于 2024-9-29 13:27
请看附件。

这是最完美的方案，既不破坏原表的结构，数据也完全正确，非常感谢您的大力帮助，是您使得我本来要花很多功夫的体力活，变得一下子完成，您真的好厉害！膜拜中！！！

sunya_0529

WPS里的JSA练习一下——

定敏

sunya_0529 发表于 2024-9-29 20:21
WPS里的JSA练习一下——

哇，好高级！那个”统送统配“是原来有的一些项止，现在不用了，可以不要。