Excel 表格合并VB语言先将30多个表合并到一个工作薄中,再将工作薄中的30多个表合并到一个工作表中,具体如下:
1.新建一个excel文件并打开,按ALT+F11-->插入-->模块,将下面的代码复制到模块中:
Sub merge()
Dim fileSet
Dim i As Integer
Dim Filename
On Error GoTo 0
Application.ScreenUpdating = False
fileSet = Application.GetOpenFilename(FileFilter:="...
先将30多个表合并到一个工作薄中,再将工作薄中的30多个表合并到一个工作表中,具体如下:
1.新建一个excel文件并打开,按ALT+F11-->插入-->模块,将下面的代码复制到模块中:
Sub merge()
Dim fileSet
Dim i As Integer
Dim Filename
On Error GoTo 0
Application.ScreenUpdating = False
fileSet = Application.GetOpenFilename(FileFilter:="Excel 2003(*.xls),*.xls,Excel 2007-2013(*.xlsx),*.xlsx", MultiSelect:=True, Title:="选择需要合并的文件")
If TypeName(FileSet) = "Boolean" Then
GoTo ExitSub
End If
For Each filename In FileSet
Workbooks.Open filename
Sheets().Move after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) Next
ExitSub:
Application.ScreenUpdating = True
End Sub
点击运行,类似于播放的那个按钮,或者点击菜单上的运行下的运行子过程,将需要合并的表全部选上,(最好是将需要合并的工作表放到一个文件中,便于选择)确定。
2.再一次的插入模块,左边会显示插入模块2,同样将下面代码复制到模块2中,如下:
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
点击运行即可,别的工作表就会自动复制到第一张表上
本文档为【Excel 表格合并VB语言】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。