• / 2
  • 下载费用:10 金币  

Excel办公应用:多个表中的数据汇总到一个表中.doc

关 键 词:
Excel办公应用:多个表中的数据汇总到一个表中.doc
资源描述:
Excel 办公应用:多个表中的数据汇总到一个表中在工作中,我们经常需要把多个表中的数据汇总到一个表中。这必须考虑以下三种情况:情况一:多个表在同一工作簿中,表的结构相似,表头内容顺序一致。解决方案:使用函数公式完成具体方法,如下动图演示:重点:在“总销售额”表单中的'B2'单元格中,输入公式【=SUM(华北区:华南区!B2)】情况二:多个表在同一工作簿中,表的结构相似,表头内容顺序不一致。解决方案:使用【数据】-【合并计算】完成具体方法,如下动图演示:情况三:多个表不在同一工作簿中,表的结构和表头内容可随意。解决方案:使用 VBA 代码完成具体方法,如下代码:Sub CombineWbs()Dim bt As Range, r As Long, c As Longr = 1c = 7Dim wt As WorksheetSet wt = ThisWorkbook.Worksheets(1)wt.Rows(r 1 & ':1048576').ClearContentsApplication.ScreenUpdating = FalseDim FileName As String, sht As Worksheet, wb As Workbook, WbN As StringDim Erow As Long, fn As String, arr As Variant, Num As LongFileName = Dir(ThisWorkbook.Path & '*.xlsx')Num = 0Do While FileName ''If FileName ThisWorkbook.Name ThenErow = wt.Range('A1').CurrentRegion.Rows.Count 1fn = ThisWorkbook.Path & '' & FileNameSet wb = GetObject(fn)Set sht = wb.Worksheets(1)Num = Num 1arr = sht.Range(sht.Cells(r 1, 'A'), sht.Cells(1048576, 'B').End(xlUp).Offset(0, 7))wt.Cells(Erow, 'A').Resize(UBound(arr, 1), UBound(arr, 2)) = arrWbN = WbN & Chr(13) & wb.Namewb.Close FalseEnd IfFileName = DirLoopApplication.ScreenUpdating = TrueMsgBox '共合并了' & Num & '个工作薄下的全部工作表。如下:' & Chr(13) & WbN, vbInformation, '提示'End Sub 温馨提醒(针对情况三):? 把以上代码,复制到 Thisworkbook 代码窗口中(即:按【Alt F11】组合键,打开 VBE 编辑环境) ,然后点击【运行】命令,就可以快速实现上述功能了;?需要合并的工作簿和存储汇总数据的活动工作簿,二者需要在同一文件夹下;?本案例,假定工作表总列数为 7。需要更改列数时,只需更改代码中对应的参数设置。点击【运行】命令后,会弹出如下对话框(仅举例说明):最后,点击【OK】 ,即可。鸣谢:谢谢大家的阅读!有问题,欢迎提问!!
展开阅读全文
  微传网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
0条评论

还可以输入200字符

暂无评论,赶快抢占沙发吧。

关于本文
本文标题:Excel办公应用:多个表中的数据汇总到一个表中.doc
链接地址:https://www.weizhuannet.com/p-9828483.html
微传网是一个办公文档、学习资料下载的在线文档分享平台!

微传网博客

网站资源均来自网络,如有侵权,请联系客服删除!

 网站客服QQ:80879498  会员QQ群:727456886

copyright@ 2018-2028 微传网络工作室版权所有

     经营许可证编号:冀ICP备18006529号-1 ,公安局备案号:13028102000124

收起
展开