2016 - 2024

感恩一路有你

怎样把几个表格汇总 一张excel表怎样汇总多个单位的?

浏览量:4314 时间:2023-09-19 19:02:16 作者:采采

一张excel表怎样汇总多个单位的?

如果不是有多项内容,是可以多建几列,上面是各个单位,下面是各个单位涉及的内容

如何把4个表格的数据汇总成一张表?

如果不是你四个表格的格式是完全不同的话,就也可以用excel的直接引用功能,把它信息汇总成一张表。

怎么汇总到一个表格里面?

这个问题可考虑到下面三种情况

情况一:表格结构和汇总“商品名称”顺序都一致

解决方案:不使用函数公式成功

具体方法,追加动图演示:

重点:在“总销售额”表单中的B2单元格中,输入公式【SUM(华北区:华南区!B2)】

情况二:表格结构相同,但汇总表格“商品名称”顺序不对应

解决方案:使用【合并计算】能完成

详细方法,如下动图演示:

情况三:表格结构和汇总关键字都不符

必须合并的工作簿和储存汇总数据的活动工作簿,二者不需要在同一文件夹下

解决方案:建议使用VBA能够完成

详细方法,如下代码:

Sub CombineWbs()

DimbtandRange,rAs Long,cthoughLong 1c 7Dim wtasWorksheet

Setwt(1)

(r1amp:1048576).ClearContents

False

DimFileNameasString,shtsuchWorksheet,wblikeWorkbook,WbNlikeString

DimErowAs Long,fnsuchString,arrlikeVariant,NumasLongFileName Dir(amp*.xlsx)

Num0

DoWhileFileNameltgt

IfFileNameltgtThen

Erowwt.Range(A1)1

fnampampFileName

SetwbGetObject(fn)

Setsht(1)

NumNum1

arrsht.Range(sht.Cells(r1,A),sht.Cells(1048576,B).End(xlUp).Offset(0,7))

wt.Cells(Erow,A).Resize(UBound(arr,1),UBound(arr,2))arr

WbNWbNampChr(13)amp

False

EndIf

FileNameDir

Loop

True

MsgBox共合并了ampNumamp个工作薄下的全部工作表。不胜感激:ampChr(13)ampWbN,vbInformation,提示

EndSub

温馨提醒:以上代码,只要你不能复制到Excel工作表代码编辑窗口下(即:然后打开VBE编辑环境),然后把然后点击【正常运行】按钮,就是可以飞快实现本案所涉功能了。

鸣谢:谢谢啊大家的阅读!有问题,希望能读者粉丝的提问!!

版权声明:本文内容由互联网用户自发贡献,本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。