别再为Excel中合并多个工作簿闹心了，试试这2种方法，分分钟搞定

前面的《Excel中多个工作表拆分生成单个文件，同事1分钟搞定了》教程，小编教大家快速拆分Excel表格，今天小编再教大家多个工作簿的数据合并到一个工作簿中。

情况一：Excel文件中的CSV格式

很多软件导出的的表格文件格式CSV格式，也就是文件的后缀名是.csv

1、新建一个文本文档，然后在文档中输入：copy *.csv 合并.csv ，关闭保存文档

2、将该文档后缀名.txt改成.bat

3、双击这个文件，便自动生成了新的合并Excel文件

【注意】此方法只适用于CSV格式的Excel文件

情况二：用VBA代码

1、打开Excel，新建一个工作表，并保存在与需要合并数据的工作簿同一个文件夹下

2点击【开发工具】选项卡中的【VisualBasic】按钮，或按Alt+F11键，调出VBA代码窗口

3、在VBA窗口中，点击左侧列表中的【ThisWorkbook】，然后输入代码：

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

Wb.Sheets(i).Range(“”a1″”).Resize(1

来源：1)

d = Wb.Sheets(i).UsedRange.Columns.Count

c = Wb.Sheets(i).UsedRange.Rows.Count – 1

e = e + c

Wb.Sheets(i).Range(“”a2″”).Resize(c