用vba合并多个excel文件内容(vba合并多个excel文件)

1. vba合并多个excel文件

比如，将ab两列合并到c列

c1输入

=a1&b1

下拉

2. vba合并多个sheet

1、新建一个工作薄，将其命名为合并后的名字，例如叫做：汇总工作簿。

2、打开此工作簿：“汇总工作簿”

3、在“汇总工作簿”下任意一个工作表标签上点击右键，选择“查看代码”。

4、在打开的VBA编辑窗口中粘贴代码：

5、关闭该VBA编辑窗口

6、在Excel中，开发工具---宏,选“工作薄间工作表合并”,然后“执行”。

7、在打开的对话窗口中，选择你要合并的多个工作薄。

8、等待运行，就OK了。

3. vba把多个excel合并为一个excel

看到Excel多表合并，其实常见的有2种场景

场景一：多个Excel文件需要合并为1个Excel文件（多个工作簿合并为1个工作簿）

场景二：1个Excel文件种有多个工作表，需要合并为1个工作表

首先来看下，场景一（多个Excel文件合并为1个文件），都有哪些方法可以实现？

场景描述：如图所示，在文件夹中，有4个Excel文件，每个Excel文件的数据格式都一致，需要把4个Excel文件合并到1个Excel文件中。

每个工作簿中的内容格式都一样，为了区分，我把工作簿1中的 位置 数据，标为了“工作簿1”；工作簿2中的数据标为了“工作簿2”...以此类推。

下面雷哥推荐几种方法来实现多个Excel文件合并为1个文件

方法1：PowerQuery

Step1：单击 【数据】- 【新建查询】 - 【从文件】- 【从文件夹】

Step2：单击 【浏览】，选择文件夹路径

Step3：选择【合并并加载】

最终的效果如图所下图所示。自动增加了

Source.Name

数据列，可以很方便看到数据来自于哪个工作簿

方法2：使用CMD命令，1s搞定合并

Step1：需要把文件格式修改为 csv文件格式。打开文件，另存为csv文件即可

Step2：在文件所在路径，按【shift】+右键，点击【此处打开命令窗口】，输入

copy *.csv out.csv， 即把该路径下所有的csv文件合并到out.csv文件中。

下面来看下，场景二（多个Excel工作表合并为1个Excel工作簿），都有哪些方法可以实现？

场景描述：如图所示，1个excel文件中，有多个工作表，需要合并到1个工作表中。

方法1：PowerQuery法

Step1：单击 【数据】- 【新建查询】 - 【从工作簿】

Step2：选择需要合并的工作表

Step3：在追加查询中，单击【将查询追加为新查询】

Step4：选择所需的工作表

Step5：单击关闭并上载

最终的效果如图所示

方法2：使用宏

Step1：按【Alt】+【F11】

Step2：输入代码，并单击三角形图标运行

Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range("A60000).End(xlUp).Row + 1 Sheets(j).UsedRange.Copy Cells(X, 1) End If Next Range("B1").Select Application.ScreenUpdating = True MsgBox "小主，数据合并结束啦！", vbInformation, "提示" End Sub

运行效果如下图所示，后续我们删去多余的标题行即可~

方法3：插件法 - 最简单

Step1：使用【方方格子】插件，单击【合并工作表】

Step2：选择汇总区域后，单击确定

最终的效果如下

还是插件最简单，分分钟搞定哈~

雷哥：自媒体【雷哥office】创始人，《竞争力：玩转职场Excel，从此不加班》作者，微软Excel专家认证，office培训师，职场老司机，分享职场经验 / 办公技能 / 提高职场效率！

4. vba多个excel文件合并到一个文件的多个表

将多列表格内容合并在一列中，可以按以下方法操作，下面是原图：

　　1、创建一个Excel表格，要求将表格的多列内容合并在一列中。

　　2、将表格红色边框内的多列内容，合并在右侧枚红色边框的一列。

　　3、在F2表格内输入“=

　　4、输入完可以得到这样的效果。

　　5、逐步在F3输入“=B3&C3&D3&E3”，F4输入“=B4&C24&D4&E4”……可以得到相应效果。

　　6、还有简便的方式：拖拽格式，得到效果！选中表格，拖拽右下角的“+”往下拖拽即可。

5. vba合并多个excel文件的第一个工作薄

For i = 2 To Sheets.Count 这句下边加一行

If Sheet(i).Visible = xlSheetVisible Then

然后在 Next i 这句上边加一行

End If

这样就行了

6. vba合并多个excel文件到一个工作簿

为了实现将无数（我的300多）个有相同数据格式的excel表文件合并到一个excel的一个工作簿里面去方便进行后续的筛选，提取数据，分析等等。需要分两步走：第一步：将所有的excel合并到一个excel之中;刚才的多表之中的内容化身为现在的一个表，下边的多个sheet。第二步：把这个excel之中的多个sheet合并到一个sheet之中。需要的基础软件：拥有VBA的excel软件，可以用微软的包含有VBA的office，也可以用国产的wps之中的专业版。下边说具体步骤一不同表合并到一个有很多sheet的表里1、新建一个工作薄，将其命名为你合并后的名字。2、打开此工作薄。3、在其下任一个工作表标签上点击右键，选择“查看代码”。（wps的该按钮在开发工具下）4、在打开的VBA编辑窗口中粘贴以下代码： Sub 工作薄间工作表合并()Dim FileOpenDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")X = 1While X <= UBound(FileOpen)Workbooks.Open Filename:=FileOpen(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1WendExitHandler:Application.ScreenUpdating = TrueExit Suberrhadler:MsgBox Err.DescriptionEnd Sub 5、关闭VBA编辑窗口。6、在excel中，工具---宏---宏,选“工作薄间工作表合并”,然后“执行”。7、在打开的对话窗口中，选择你需要合并的工作表，如果多的话，可以放在一个文件夹，然后全选。8、等待。。。。ok！ 二 将一个表里的很多sheet合并到一个sheet 1、在包含多个sheet的工作簿中（如多个工作簿合并后含n个sheet的工作簿），新建一个sheet2、在新建的sheet标签上点击右键，选择“查看代码”（wps的该按钮在开发工具下）3、在打开的VBA编辑窗口中粘贴以下代码： 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 运行，等待……合并好了后会弹出提示。 以上为众多知友知识集中后本人整理而来，取之于知友，还之于知友。如有侵权妨碍，请联系我，并第一时间处理。

7. vba合并多个excel文件用了一次以后无效了

是完全相同还是部分相同？ 如果是完全相同，那你可以直接合并去重 如果是部分相同，还是在同一列，那你就vlookup组合 如果其他的，vba吧

8. vba合并多个excel文件 文件名

1、新建一个文件夹，将需要合并的excel文档复制到该文档目录下。

2、新建一个EXCEL空白文档，鼠标移动到在sheet工作表上单击右键，选择“查看代码”选项，进入VBA控制台。

3、在菜单栏点击“插入”菜单，选择“模块”选项，进入模块编辑界面。

4、在编辑框中复制以下代码，注意符号，需是英文状态下。

5、代码输入后，点击菜单项中“运行”，选择“运行子过程”选项，或者按下F5快捷键，运行代码。

6、运行代码后，会弹出文档选择界面，找到新建文件夹的路径，选择你所需要合并的文档，选择文档后，点击“打开”，代码正在运行，运行时间视文档数目而定。

7、代码段运行结束后，就会出现已经合并完成的excel文档界面，新工作表的名称等于原工作簿的名称，大功告成！