工作表数据汇总

炽天使520

1、想将各店填写数据汇总至数据汇总表中。
2、汇总过程中各单元格格式保持不变。
3、如表中所示，万分感谢！

炽天使520

1、想将各店填写数据汇总至数据汇总表中。
2、汇总过程中各单元格格式保持不变。

idnoidno

大哥您看看附件示不是您要的

ppp710715

试试看

ppp710715

1. Private Sub CommandButton1_Click()
   
2.     Dim n, rw, i
   
3.     For i = 2 To 3
   
4.       rw1 = Sheets("数据汇总").[b65536].End(3).Row
   
5.       rw = Sheets(i).[b65536].End(3).Row
   
6.       arr = Sheets(i).Range("b2" & ":n" & rw)
   
7.       Sheets("数据汇总").Range("b" & rw1 + 1).Resize(UBound(arr), 13) = arr
   
8.     Next
   
9.     MsgBox "OK"
   
10. End Sub

复制代码

ppp710715

http://www.excelpx.com/forum.php?mod=attachment&aid=NDI2Mjc2fGVmMjBjMDY4NGJhMTM0Yjg3ZDkyMzJjZGZiODgwNDg4fDE3MTQxMjkwMDI%3D&request=yes&_f=.rar

ppp710715

整理箱调拨v1.0 - 副.rar (236.47 KB, 下载次数: 4)

2017-9-27 16:07 上传

点击文件名下载附件

ppp710715

QQQppp.rar (195.19 KB, 下载次数: 7)

2017-9-27 16:13 上传

点击文件名下载附件

炽天使520

ppp710715 发表于 2017-9-27 16:05

如果在分表中新增数据后，在做数据汇总时又重新把分表中的全部数据统计到总表中。
能否是汇总 分表中的新增数据？