坛子里面有excel高手吗？请教一个多表合并同类项的问题

chinaren12

我有十多个这样的表。撇除日期和事由，我想把其中的所有的同类“事项”合并到一起，然后后面的数量累加，金额累加。

合并到一个表里面，请问各位大佬，这个要如何搞？

一个表一个表这样子合并太麻烦了。还得手动合并。

有没有能自动合并的方法或者是vba？？？

求各位帮忙了。

邪恶海盗

看起来还有很多地方没有表达清楚,撸主是不是应该拿两个原始数据表和一个完成的数据表演示一下?

busyman

事项用升序或降序排列就会出现同类事项在一起了。

chinaren12

邪恶海盗 发表于 2023-12-9 11:25
看起来还有很多地方没有表达清楚,撸主是不是应该拿两个原始数据表和一个完成的数据表演示一下?

如上图所示，简单点讲就是把事项中所有相同的项目合并到一起，并把数量和金额累加到一起。

只不过是我有十多个这样的表。单表合并很容易，多表合并有点麻烦。

chinaren12

busyman 发表于 2023-12-9 11:28
事项用升序或降序排列就会出现同类事项在一起了。

后面连着数量和金额呀，而且得合并同类项，还有多表一起合并呀

2012yishuihana

多表合并建议power query

yyz2191958

进来谢谢

freehead88

你把excel原文件发上来，我给答案你

freehead88

很简单的，一个xlookup和sumif就可以搞定的问题

邪恶海盗

chinaren12 发表于 2023-12-9 11:30
如上图所示，简单点讲就是把事项中所有相同的项目合并到一起，并把数量和金额累加到一起。

只不过是我 ...

此时应该上神器:

kyowjg

方方格子解忧愁

chinaren12

2012yishuihana 发表于 2023-12-9 11:46
多表合并建议power query

power query没有合并到一个表呀，原来多少个表现在就是多少个表。

zpwz

学习了

yyz2191958

kyowjg 发表于 2023-12-9 11:58
方方格子解忧愁

什么意思？

linshi456

yyz2191958 发表于 2023-12-9 12:35
什么意思？

方方格子是Excel工具。我没用过，看官网还不错，貌似有合并功能

linshi456

你先找个Excel工具把表格合并起来，用Excel数据透视表分类统计。

yyz2191958

linshi456 发表于 2023-12-9 12:38
方方格子是Excel工具。我没用过，看官网还不错，貌似有合并功能

惭愧 我孤陋寡闻

lbw2007

用sumif公式就可以

无忧大侠

数据透视表

chinaren12

无忧大侠 发表于 2023-12-9 13:09
数据透视表

数据透视表不正确，本来应该是累加的，结果他把数量和金额加一起了。

wanchr

=FILTER(a2:f1000,b2:b1000=G1,""),G1单元格里放事项内容，G2里放公式，注意你要有office2019以上办公软件，wps2019可能也行。

cao8mm

power query

captain_g

楼主先要讲清工作表还是工作簿？
十多个工作表在同一个工作簿中还是不同工作簿中？
假设它们在不同工作簿（不同的xlsx）中；
先在某工作簿的工作表中插入命令控件，拟写宏代码，将其它工作簿中的工作表数据读入当前工作表（事先整理好列的顺序）；
然后利用EXCEL【自带功能】，比如根据”事项“列的数据”kk"，将所有kk对应的金额相加，合并掉同”事项“的行；

51xp

放示例表与结果对照表，让需求更明确。

captain_g

上个实例，不知是不是与楼主想实现的类似；

楼主可以看一下控件对应的宏代码；

martin313

方方格子 经典啊

我整理机翻电影字幕，都可以用到它

fango

这个很多个文件合并到一起，如果文件名有规律是可以直接用函数实现，如果文件名随意。那真是Power query才好用了，或许第三方也有

chinaren12

51xp 发表于 2023-12-9 14:51
放示例表与结果对照表，让需求更明确。

就是不好放原始表格罗。不过我通过楼上的方方格子已经完美的解决问题了。

yunzhang

这个直接用Execl的函数应该可以，有些函数可跨表使用。可惜近二十年没用都忘记了！

hilsonma

以下内容来自网络，我之前遇到类似问题在网络上找到的：

快速合并单个excel文件中的多个工作表

多个工作表的excel文件，要将数据合并到一个工作表，可利用excel的宏计算来解决这个问题。

首先移到工作表标签的最后，插入新工作表。

右键点击新工作表标签，点查看代码，然后看到代码页面。

把下面的代码复制到代码页面


Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
   If Sheets(j).Name <> ActiveSheet.Name Then
       X = Range("A65536").End(xlUp).Row + 1
       Sheets(j).UsedRange.Copy Cells(X, 1)
   End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub


在代码页面点击工具栏上面的 运行 ，点击 运行子过程/用户窗体 。

代码运行到最后会提示合并完毕。点确定后关闭代码页面。

新工作表中会出现合并后的结果。


现在很多人用的WPS无法实现这个计算，只有功能健全的microsoft excel可以。