Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+函数初中高全套+VBA80集,想学的这儿全都有
查看: 619|回复: 8

[求助] 工作表数据汇总

[复制链接]
发表于 2017-9-26 14:27 | 显示全部楼层 |阅读模式
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
1、想将各店填写数据汇总至数据汇总表中。
2、汇总过程中各单元格格式保持不变。
3、如表中所示,万分感谢!

整理箱调拨v1.0 - 副.zip

256.64 KB, 下载次数: 12

 楼主| 发表于 2017-9-27 10:28 | 显示全部楼层

工作表数据汇总

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

微信截图_20170927102822.png
微信截图_20170927102814.png
微信截图_20170927102803.png

整理箱调拨v1.0 - 副.zip

256.64 KB, 下载次数: 3

回复 支持 反对

使用道具 举报

发表于 2017-9-27 11:14 | 显示全部楼层
大哥您看看附件示不是您要的

QQQ.rar

202.62 KB, 下载次数: 5

回复 支持 反对

使用道具 举报

发表于 2017-9-27 16:05 | 显示全部楼层
  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
复制代码
回复 支持 反对

使用道具 举报

发表于 2017-9-27 16:06 | 显示全部楼层
http://www.excelpx.com/forum.php?mod=attachment&aid=NDI2Mjc2fDhjMjAzNDVmOGRmYTcwNGMxMTNkMWNmNzY2MWRkYmE2fDE1MDgyNTk1MzE%3D&request=yes&_f=.rar
回复 支持 反对

使用道具 举报

发表于 2017-9-27 16:07 | 显示全部楼层
整理箱调拨v1.0 - 副.rar (236.47 KB, 下载次数: 2)
回复 支持 反对

使用道具 举报

发表于 2017-9-27 16:13 | 显示全部楼层
QQQppp.rar (195.19 KB, 下载次数: 3)
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-9-28 09:15 | 显示全部楼层

如果在分表中新增数据后,在做数据汇总时又重新把分表中的全部数据统计到总表中。
能否是汇总 分表中的新增数据?
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2017-10-18 00:58 , Processed in 0.078000 second(s), 24 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表