Excel多个工作表快速合并,操作竟然这么简单小白看一眼就会!

多个工作表合并成一个工作表,想知道怎么快速操作?那就看看小编为大家整理的最全合并方法吧,简单实用,喜欢哪种用哪种,保证1分钟都不用。

一、Excel合并功能

步骤:点击【数据】-【合并计算】-添加【引用位置】-【确定】即可。

但如果合并区域过多添加过程会比较繁琐,效率较低。二、VBA合并代码

代码: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

步骤:点击【开发工具】-【Visuai Basic】-菜单栏找到【插入】-【模块】-复制粘贴代码-点击【运行】-【运行宏】即可。

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

还有一些Excel插件也具备表格合并的功能,同样很便利。

步骤:点击【工具箱】-【汇总工具】-【表格合并】-【确定】即可。

如果有Excel文件格式转换问题,不管是转换成Word,PDF,PPT还是图片,都可以用迅捷PDF转换器进行转换。

发表评论
留言与评论(共有 0 条评论)
   
验证码:

相关文章

推荐文章

'); })();