草丁图书馆

  1. 首页 > 生活百科 > >

电脑知识|如何合并两个excel表格，excel表格怎么二合一

小知识


如何把两个excel文件合并在一起 1、首先打开EXCEL表格 ， 里面有两个EXCEL文档 。
2、然后我们点击EXCEL文档后面如图图标 ， 插入一个新的EXCEL表格 。
3、将插入的这个表格命名为合并 。

4、然后将光标放到这个EXCEL文档的位置 ， 右键单击 ， 选择查看代码 。
5、接着就会出现VBA编辑窗口 ， 在里面输入下面的代码 。
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
6、输入之后 ， 在上面的工具栏里面点击运行里面的运行子过程/用户窗体 。

7、这样就可以将两个EXCEL文档合成一个 。

如何合并两个excel表格文件 操作设备：戴尔电脑
【电脑知识|如何合并两个excel表格，excel表格怎么二合一】操作系统：win10
操作软件：Excel2016
1、将需合并的Excel文件放在同一个文件夹中 。
2、打开新建的Excel文件 ， 按 Alt + F11 键 ， 打开宏 ， 选择视图→代码窗口 。
3、将下面的代码拷贝粘贴到代码窗口中：
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
4、点击菜单“运行”—“运行子过程/用户窗体” 。
5、在弹出选择对话框中 ， 选择要批量合并的Excel文件 ， 点击“确定”即可合并为一个Excel工作簿 。
6、点击“确定”后 ， 运行合并即可 。

如何合并两个excel表格合并成为一个表格 您好 ， 方法
1、比如我们以下图一所示的电脑桌面上两张Excel表为例 ， 我们看到分别是工资表和设备列表 ， 接着打开Excel创建一张空白的工作簿；
2、在空白工作簿的左下角sheet 1工作表当中 ， 我们随意选择一个空白单元格 ， 接着点击“数据”-“现有连接”；
3、然后即可弹出现有连接对话框 ， 我们点击对话框左下角的“浏览更多” ， 然后找到刚才的两份Excel存放的位置 ， 也就是电脑桌面上；
4、点击其中一种Excel表以后 ， 会弹出导入数据对话框 ， 我们只需勾选“表”和数据的放置位置即可 ， 这样第一份Excel导入成功 。
5、然后在此工作簿左下角新建sheet 2工作表 ， 按照统一的方法导入剩余的那份Excel表 ， 不过我们可能会遇到下面的一种情况 ， 那就是这份Excel表里面本身就包含多个sheet表格；
6、最后对比一下导入前后的效果图 ， 我们会发现文字类导入非常完美 ， 但是图标类导入就会有遗漏 ， 所以以后按照以上方法导入的时候要慎重选择哦；

推荐阅读


上一篇：养花花的注意事项

下一篇：电脑知识|如何取消隐藏excel表格，excel点了隐藏文件不见了