两个excel
格合并,数量多于1,后面的编号多一个
篇一:excel中如何将相同格式的多个不同excel文件合并为一张表
excel中如何将相同格式的多个不同excel文件合并为一张表,
【问题描述】:日常工作中采集的数据经常会是大量格式相同的Excel表格。(如
多个单位上交表格,最后需要汇总这些表格的内容),如何实现自动化合并呢,
【解决
】:
1.将所有格式相同的Excel表格保存到一个文件夹内;
2.在文件夹内新建一个Excel工作表,命名为“汇总表”;
3.打开汇总表,按“Alt + F11”打开VBA开发环境,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区编写如下代码:
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
1
Dim Num, ini As Long
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & \ & *.xls)
AWbName = ActiveWorkbook.Name
Num = 0
ini = 0
Do While MyName <
If MyName < AWbName Then
Set Wb = Workbooks.Open(MyPath & \ & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
If ini = 0 Then
Wb.Sheets(1).Range(Wb.Sheets(1).Cells(1, 1),Wb.Sheets(1).Cells(1,Wb.Sheets(
1).UsedRange.Columns.Count)).Copy .Cells(1, 1)
ini=1
End If
For G=1 To Sheets.Count
Wb.Sheets(G).Range(Wb.Sheets(G).Cells(2,1),Wb.Sheets(G)
2
.Cells(Wb.Sheets(G).UsedRange.Rows.Count,Wb.Sheets(G).
UsedRange.Columns.Count)).Copy .Cells(.Range(A65536&q
uo(来自:WWw.xlTkwj.com 小龙文 档网:两个excel表格合
并,数量多于1,后面的编号多一个)t;).End(xlUp).Row+1,1)
Next
WbN=WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName=Dir
Loop
Range(A1).Select
Application.ScreenUpdating = True
MsgBox 共合并了 & Num & 个工作薄下的全
部工作表。如下:
& Chr(13) & WbN, vbInformation, 提示
End Sub
4.运行代码,系统会自动将所有Excel表格合并到“汇总表”
中
篇二:如何合并多个excel的统计表格文件到1个文件当
中
如何合并多个excel的统计表格文件到1个文件当中
3
新建一个工作表,命名后保存到和欲合并的几个文件同
一个文件文件夹,摁 alt + f11,双击工程资源管理器里面的
sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一
会就OK了。
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & \ & *.xls)
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <
If MyName < AWbName Then
Set Wb = Workbooks.Open(MyPath & \ &
MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
If Num = 1 Then
4
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range(A65536).End(
xlUp).Row + 1, 1)
Next
Else
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Offset(1,
0).Copy .Cells(.Range(A65536).End(xlUp).Row + 1, 1)
Next
End If
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range(A1).Select
Application.ScreenUpdating = True
MsgBox 共合并了 & Num & 个工作薄下的全
部工作表。如下: & Chr(13) & WbN, vbInformation, 提示
5
End Sub
篇三:excel如何快速把多个工作表合并到一个excel表
excel如何快速把多个工作表合并到一个excel表
有这么一种情况,就是我们有很多张excel,而且excel表里面的公式基本一样,我们就想快速的把这些excel合并在一起,意思在合并在一个excel页面,这样可以方便我们
和统计,那么excel如何快速把多个工作表合并到一个excel表,下面为大家介绍这种方法,希望能帮助到大家。
工具/原料
Excel
操作步骤:
1、原始数据所在工作簿包含多个格式相同的工作表,只不过每个工作表内容不同,比如说不同人名的工作表数据或者不同部门填写的数据。
2、在原始数据同目录下新建一个工作簿,建立两个工作表,名称分别为“首页”和“合并汇总表”。
3、按Alt+F11进入VBA代码编辑和调试界面。
4、根据下图提示,插入一个模块。
5、将下述代码粘贴到模块空白处:
相关热词搜索:多于 合并 表格 数量 编号 excel中两个表格合并 多张excel表格合并
6
7