如何将多个excel文件合并为一个excel
这篇文章给大家分享的excel技巧是关于如何将多个excel文件合并为一个excel的excel使用技巧,文章将通过图文并茂的形成为您讲解如何将多个excel文件合并为一个excel的excel实战技巧精粹,希望这篇如何将多个excel文件合并为一个excel的excel表格操作技巧能够帮助到您。
·将需合并的excel文件放在同一个文件夹中,并这个文件中新建一个excel文件
·打开新建的excel文件,按alt + f11建,打开宏,选择视图——代码窗口
·将下面分割线内的的代码拷贝进去,并保存。
·======我是分割线======
·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
·======我是分割线======
·点击运行,弹出对话框可,点击运行选项运行程序,
·再次弹出选择对话框,选择要批量合并的excel名,确定即可
·程序运行完毕后,会自动生成一个工作簿,工作簿内包含所有需合并的excel文件,将工作簿另外即可
·注意事项每个需合并的excel文件内为单独一个sheet
以上内容是excel教程网为您精心整理的如何将多个excel文件合并为一个excelexcel基础教程,里面包括有部分excel函数教程,excel表格制作教程等内容,希望这篇如何将多个excel文件合并为一个excel能够帮助您快速学习excel的使用和操作。