多个工作表合并成一个工作表,想知道怎么快速操作?那就看看小编为大家整理的最全合并方法吧,简单实用,喜欢哪种用哪种,保证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 条评论) |