如何用vba好几个excel表合成一个(多个excel工作簿合并成一个vba代码)

1. 多个excel工作簿合并成一个vba代码

我的解决思路是：

新建工作簿

新建工作表

选择性黏贴全部数据

遍历第一行删除有特殊标记列

遍历第一列删除有特殊标记行

保存并关闭新工作簿。

模拟数据

打开vbe

增加模块，添加代码

最后结果

2. vba合并多个工作簿的第一个工作表

这是想把多个相同的工作表合并为一个工作表。可以用vba代码实现最简单，可以顺便完成。

你可以新建一个控件按钮，把按钮代码设置为：

Private Sub CommandButton1_Click()Application.ScreenUpdating = FalseFor 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 IfNextRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"End Sub

3. 用vba合并多个excel工作簿

提供你一个新的方法使用Power Query进行多文件合并，非常方便可以试一试，能搞完全符合你的要求。

将所有文件没放在一个文件夹中，打开Excel获取数据>从文件>从文件夹

选择示例文件就可以完成一次合并，

重复上述操作，就可以将不同的SHEET合并

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

楼主需要将问题描述的明确一些，是将2个工作表放在同一工作簿；（工作簿是一个EXCEL文件，其中包含N个工作表）是将2个工作簿合并；是将2个工作表的数据合并。首先说前面两种，这2种操作差不多，可以使用VBA代码也可以手动操作，只有2个项目的情况下建议手动。

手动方法1.将两个工作簿都打开（如果是工作表也是打开所在的工作簿）。

2.点击其中一个工作簿中需要移动的工作表标签，选择“移动或复制”然后在弹出的窗口中选择要移动到的工作簿（列表包含已经打开的工作簿，和新建一个工作簿）。

然后选择工作表在目的工作簿中的存放位置（位于哪个工作表后面），注意如果需要保留原表，则要勾选下方的“建立副本”点击确定后即将此工作表移动（或者复制）到目的工作簿中。如果楼主问的是第3种情况，那就比较复杂了，要看数据在合并中是属于提取还是覆盖，通常使用VBA代码，这就不是一两句能解释清楚的。

5. 多个excel工作簿合并成一个excel表的方法

1、首先打开一个Excel表格，选中一个空白单元格，在页面上方的功能栏中选择数据选项；

2、点击数据后，在下方会出现很多选项，选择其中的导入数据选项，选择数据源；

3、选择你要导入的文件，点击确认，确认后点击下一步，然后点击完成，页面上会出现数据放置在哪个位置的对话框，点击确定即可，确认后两张表格就会合成一张表格了。

6. 多工作簿合并到一张表格vba

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

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

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

4、在编辑框中复制以下代码，注意符号，需是英文状态下。'功能：把多个excel工作簿的第一个sheet工作表合并到一个excel工作簿的多个sheet工作表，新工作表的名称等于原工作簿的名称 Sub Books2Sheets() '定义对话框变量 Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) '新建一个工作簿 Dim newwb As Workbook Set newwb = Workbooks.Add With fd If .Show = -1 Then '定义单个文件变量 Dim vrtSelectedItem As Variant '定义循环变量 Dim i As Integer i = 1 '开始文件检索 For Each vrtSelectedItem In .SelectedItems '打开被合并工作簿 Dim tempwb As Workbook Set tempwb = Workbooks.Open(vrtSelectedItem) '复制工作表 tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i) '把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "") '关闭被合并工作簿 tempwb.Close SaveChanges:=False i = i + 1 Next vrtSelectedItem End If End With Set fd = Nothing End Sub5、代码输入后，点击菜单项中“运行”，选择“运行子过程”选项，或者按下F5快捷键，运行代码。6、运行代码后，会弹出文档选择界面，找到新建文件夹的路径，选择你所需要合并的文档，选择文档后，点击“打开”，代码正在运行，运行时间视文档数目而定。7、代码段运行结束后，就会出现已经合并完成的excel文档界面，新工作表的名称等于原工作簿的名称，大功告成！

7. vba将多个工作簿合并到一个工作簿

可以利用VBA代码来实现，详细方法：

1、新建一个工作薄，将其命名为你合并后的名字。

2、打开此工作薄。

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

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 Sub5、关闭VBA编辑窗口。6、在excel中，工具---宏---宏,选“工作薄间工作表合并”,然后“执行”。7、在打开的对话窗口中，选择你要合并的300个工作薄。8、等待。。。。ok！