上边框图片
您当前位置:网站首页 >> 技术中心 >> 桌面维护

利用宏将多个EXCEL表格合并到一个表格中

2015-09-25 14:36:18 来源:杭州弄潮网络科技有限公司 浏览:77
内容提要:关于利用宏将多个EXCEL表格合并到一个表格中

利用宏将多个EXCEL表格合并到一个表格中

 

在很多报表中会有相同的eccel表示分开的,但是统计时想把多个表格合并在一张表里怎么办,EXCEL的宏的强大就体现出来了,具体操作如下:

1.先把所有要合并的EXCEL放到同一目录下.


2.在当前目录下新建一个 EXCEL


3.打开新建的EXCEL 按ALT+F11(或者在新建表的sheet1右击点查看代码)

4.在sheet1里输入

-------------------------------------此行不要复制----------------

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

.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)

For G = 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)

Next

WbN = WbN & Chr(13) & Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"

End Sub

---------------------------此行不要复制-----------------------

5.关闭Microsoft Visual Basic 

 
6.点击 视图-----宏-----宏 再点击 执行

7.稍等一会 <注意:EXCEL的总行数不要超过65535行)

这样一份表格就合并成功了。


 

下边框图片
网站首页 | 公司简介 | 网络工程 | 系统集成 | 信息安全 | IT外包 | 产品展示 | 成功案例 | 合作伙伴 | 技术中心 | 新闻咨讯 | 联系我们
很高兴为您服务