请教如何将两张内容相似的EXCEL表格自动识别汇总在一张表格里显示??

来源:百度知道 编辑:UC知道 时间:2024/05/22 18:33:44
因公司为统计需要,我需要把两张相似的表格(A表、B表)内容自动合并到“汇总表”中。
例A表(电器、电脑类):
部门 器材 使用人 备注
业务部 打印机 公用 爱普生630
客服部 传真机 公用 12345678
行政部 显示器 个人 三星晶液
B表(桌子、椅子、柜子类):
部门 器材 使用人
业务部 办公桌 个人
客服部 办公椅 个人
行政部 办公柜 个人

希望可以能将该两个表格的内容全部合并到一张表里显示:
例如:
部门 器材 使用人 备注
业务部 打印机 公用 爱普生630
客服部 传真机 公用 12345678
行政部 显示器 个人 三星晶液
业务部 办公桌 个人
客服部 办公椅 个人
行政部 办公柜 个人

*最好是能做到自动识别在导入完A表的数据后,自动接着把B表的数据继续导入汇总表中。因为每月都会有所加减,所以需要该汇总表具有这个功能。需要付费购买的软件,因我没得报销所以不需要提供这类信息,谢谢各位高人了!
**如介绍的方法在测试后,有明显效果的偶愿意追加50分!希望大家多多帮忙。

假设你的工作簿有三个工作表,sheet1从A1单元格开始有数据

部门 器材 使用人 备注
业务部 打印机 公用 爱普生630
客服部 传真机 公用 12345678
行政部 显示器 个人 三星晶液

sheet2从A1单元格开始有数据
部门 器材 使用人
业务部 办公桌 个人
客服部 办公椅 个人
行政部 办公柜 个人

sheet3是要合并前两个表的。那么

1、ALT+F11进入VBA编辑器,
2、在左上角的工程资源管理器(如果没有按组合键ctrl + R调出来),双击ThisWorkBook,在右侧的空白代码区粘贴下面代码。

Sub 合并()
Sheets(3).Select
Cells().Clear
Sheets(1).Select
Range("A1").CurrentRegion.Select
Selection.Copy
Sheets(3).Select
Range("A1").Select
ActiveSheet.Paste
Sheets(2).Select
Range("A1").CurrentRegion.Offset(1, 0).Select
Selection.Copy
Sheets(3).Select
Range("a" & Range("A65536").End(xlUp).Row + 1).Select
ActiveSheet.Paste
Range("a1").Select
End Sub

3、保存。退出VBA编辑器。

4、在sheet3添加一个椭圆形,然后右击椭圆形按钮,选择指定宏,在弹出的窗口中选择宏“合