Excel中利用VBA代码实现多表合并，点进来复制一下即可使用！

VBA代码一直如雷贯耳，但小编基本没用过，毕竟这么高级的玩意不是小编这种普通银会用哒，但如果有现成的代码直接复制使用，那还差不多！

所以今天小编就将几个小编知道的Excel代码送给大家，前两个是来凑数的，最后一个多表合并最实用！

注意：代码的使用方式是点击【开发工具】-【Visuai Basic】-菜单栏找到【插入】-【模块】-粘贴代码-点击【运行】-【运行宏】即可。

如果找不到开发工具一栏，可以在【文件】-【选项】-【自定义功能区】-勾选【开发工具】即可。

废话不多说直接上代码，效果看动图！

一、新建一个名称为“数值汇总”的工作表

代码：Sub AddWorksheet()

On Error Resume Next

Worksheets.Add().Name = '数值汇总'

End Sub

为什么说这是凑数的，因为直接添加新工作表，编辑表名不更快？！

二、在最后一个工作表的前面新建2个工作表

代码：Sub Add2Worksheets()

Worksheets.Add Before:=Worksheets(Worksheets.Count), Count:=2

End Sub

三、多个excel文件合并

代码：Sub sheets2one()

'定义对话框变量

Dim cc As FileDialog

Set cc = Application.FileDialog(msoFileDialogFilePicker)

Dim newwork As Workbook

Set newwork = Workbooks.Add

With cc

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:=newwork.Worksheets(i)

newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, '.xls', '')

tempwb.Close SaveChanges:=False

i = i 1

Next vrtSelectedItem

End If

End With

Set cc = Nothing

End Sub

以上代码输入后，从弹出的对话框中选择需要合并的表格，点击确认，选中的表格就会统一合并在自动新建的文件中啦。

以上内容不知道大家看懂没有，如果你有更加实用的代码，可以在评论区分享给小编，或者有什么特别想要的代码也可以提出来，小编去找代码给大家。

PS：Excel文件需要转换其他文件格式，建议使用迅捷PDF转换器。