工作中,多个工作簿的数据合并至一个工作溥中是最痛苦的,使用复制粘贴太耗费时间,还容易出错

Excel多个工作簿合并到一个工作簿,3个方法任选

今天教大家3个方法,轻松解决合并工作簿的问题

1、csv文件,使用bat代码法

这种方法是有限制的,必须是csv格式的Excel文件,很多公司软件里面导出的格式是这种的CSV格式的就可以使用此方法

新建一个文本文档,然后输入代码copy *.csv 合并.csv,关闭保存

重命名该文本文档,将文件的后缀txt更改成bat格式

双击运行这个bat文件,便自动的生成了一个新的合并.csv文件

合并的这个CSV文件就把所有单个的汇聚在一块,如果首行都有标题行,可以进行筛选删除再处理。

Excel多个工作簿合并到一个工作簿,3个方法任选

2、普通Excel文件,vba代码法

上面的方法是对于csv格式的文件才能使用的,如果是普通的xls或xlsx格式的话,就不适用了,这个时候,可以使用VBA代码法

新建一个工作表,然后在开发工具选项卡下,点击VisualBasic,然后输入一段代码

点击开发工具上方的宏,运行这段宏,便可以汇总所有的数据了

Excel多个工作簿合并到一个工作簿,3个方法任选

其中的代码如下:

Sub 合并目录所有工作簿全部工作表()
Dim MP, MN, AW, Wbn, wn
Dim Wb As Workbook
Dim i, a, b, d, c, e
Application.ScreenUpdating = False
MP = ActiveWorkbook.Path
MN = Dir(MP & "" & "*.xls")
AW = ActiveWorkbook.Name
Num = 0
e = 1
Do While MN <> ""
If MN <> AW Then
Set Wb = Workbooks.Open(MP & "" & MN)
a = a + 1
With Workbooks(1).ActiveSheet
For i = 1 To Sheets.Count
If Sheets(i).Range("a1") <> "" Then
Wb.Sheets(i).Range("a1").Resize(1, Sheets(i).UsedRange.Columns.Count).Copy .Cells(1, 1)
d = Wb.Sheets(i).UsedRange.Columns.Count
c = Wb.Sheets(i).UsedRange.Rows.Count - 1
wn = Wb.Sheets(i).Name
.Cells(1, d + 1) = "表名"
.Cells(e + 1, d + 1).Resize(c, 1) = MN & wn
e = e + c
Wb.Sheets(i).Range("a2").Resize(c, d).Copy .Cells(.Range("a1048576").End(xlUp).Row + 1, 1)
End If
Next
Wbn = Wbn & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MN = Dir
Loop
Range("a1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & a & "个工作薄下全部工作表。如下:" & Chr(13) & Wbn, vbInformation, "提示"
End Sub
3、使用PQ方法(适用于Excel2016及以上)

pq法不需要使用长长的代码,制作的过程如下

在数据选项卡下,新建查询,从文件,从文件夹,选中存放数据的文件夹,加载编辑

在弹出的PQ查询器中,添加列,自定义列,输入公式:Excel.Workbook([Content],true)

在弹出的自定义列中进行筛选,只选择data

继续筛选,这次所有的列都进行保留

在菜单中,关闭并上载至Excel表格,删除不需要的数据区域即可

Excel多个工作簿合并到一个工作簿,3个方法任选

下次再遇到需要合并工作簿的时候,不用去复制粘贴了,这3个方法,你更喜欢用哪个方法呢?动手试试吧~

1.《excel合并多个工作表 Excel多个工作簿合并到一个工作簿,3个方法任选》援引自互联网,旨在传递更多网络信息知识,仅代表作者本人观点,与本网站无关,侵删请联系页脚下方联系方式。

2.《excel合并多个工作表 Excel多个工作簿合并到一个工作簿,3个方法任选》仅供读者参考,本网站未对该内容进行证实,对其原创性、真实性、完整性、及时性不作任何保证。

3.文章转载时请保留本站内容来源地址,https://www.lu-xu.com/jiaoyu/231227.html