请问分表的数据如何汇总到按日期汇总到总表

yuyu9992 · 发表于 2019-7-3 13:47

本帖最后由 yuyu9992 于 2019-7-3 13:49 编辑

总表是按照单门店，在一张表上，按日期顺序进行汇总

分表是每一天，所有的门店的汇总

复制粘贴太麻烦了，分表的信息怎么自动匹配到总表上呢？

谢谢各位大佬了！！！！！！！

有家川菜.zip (12.89 KB, 下载次数: 11)

yuyu9992 · 发表于 2019-7-3 14:01

如图所示，不知我表达清楚没有
微信图片_20190703134734.png

爱疯 · 发表于 2019-7-8 11:55

是不是按A列的不同日期，把汇总表拆成多个工作表？

mytto88 · 发表于 2019-7-8 20:59

Sub klkl()
Sheet1.Range("a1").CurrentRegion.Offset(1).ClearContents
For Each sht In Worksheets
      If sht.Name <> "汇总" Then
         last_row = Sheet1.Cells(Rows.Count, 1).End(3).Row + 1
         irow = sht.Cells(Rows.Count, 1).End(3).Row
         sht.Range("a2:L" & irow).Copy
         Sheet1.Range("a" & last_row).PasteSpecial xlPasteValues
      End If
Next
End Sub

		自动登录	找回密码
密码			注册