怎么把两个 Microsoft Excel 工作表 合并?
两种情况,一种是没有内容时的合并;一种是有内容时的合并。
没有内容时的合并:选中相邻的两行,然后点击“合并居中”按钮,那么就可以得到已经合并的一行,如图所示:
未点击合并居中前
点击合并居中后
有内容时的合并有两种方法,第一种方法:
如图在需要得到结果的格子B5中输入“=B3&B4”,然后回车得出以下结果:张三李四
然后要得到成绩的合并值,可通过以下方法得到
用鼠标放置在图中红色圈的点上,然后将该点往右拖动,然后松开鼠标即可得到结果:8067
第二种合并方法:
点击“插入”“函数”,然后找到 concatenate函数,点击使用
然后选择需要合并的参数,B3和B4
然后回车即可得到合并后的结果
最后一步与第一种方法该步骤相同,拖拽该点得到结果
1、我们以下图所示的电脑桌面上两张Excel表为例,我们看到分别是工资表和设备列表,接着打开Excel创建一张空白的工作簿;
2、在空白工作簿的左下角sheet 1工作表当中,我们随意选择一个空白单元格,接着点击“数据”-“现有连接”;
3、然后即可弹出现有连接对话框,我们点击对话框左下角的“浏览更多”,然后找到刚才的两份Excel存放的位置,也就是电脑桌面上;
4、点击其中一种Excel表以后,会弹出导入数据对话框,我们只需勾选“表”和数据的放置位置即可,这样第一份Excel导入成功。
5、然后在此工作簿左下角新建sheet 2工作表,按照统一的方法导入剩余的那份Excel表,不过我们可能会遇到下面的一种情况,那就是这份Excel表里面本身就包含多个sheet表格;
6、系统默认的只能一个个的导入,不过我们可以将这几个sheet工作表放到新建的同一个工作表中;
7、最后对比一下导入前后的效果图,我们会发现文字类内容导入非常完美,但是图标类内容导入就会有遗漏,所以以后按照以上方法导入的时候要慎重选择。
1.需要把多个excel表都放在同一个文件夹里面,并在这个文件夹里面新建一个excel。如图所示:
2.用microsoft excel打开新建的excel表,并右键单击sheet1,找到“查看代码”,单击进去。进去之后就看到了宏计算界面。如图所示:
3.然后把下面这些宏计算的代码复制进去,然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”,代码如下,如图所示:
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"
End Sub
4.运行之后,等待10秒针左右,等运行完毕,就是合并完成之后,会有提示,点确定就可以了。查看合并后的数据,有5000多行,就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。
使用MS OFFICE EXCEL的时候经常遇到:
(1)需要将多个 Excel 文件进行合并;
(2)需要将多个 Sheet 进行合并;
这里给出最佳答案。当然您得需要会使用宏(MICRO)。
功能一:合并Excel文件
Sub CombineWorkbooks()
Dim FilesToOpen, ft
Dim x As Integer
Application.ScreenUpdating = False
On Error GoTo errhandler
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Micrsofe Excel文件(*.xls), *.xls", _
MultiSelect:=True, Title:="要合并的文件")
If TypeName(FilesToOpen) = "boolean" Then
MsgBox "没有选定文件"
End If
x = 1
While x <= UBound(FilesToOpen)
Set wk = Workbooks.Open(Filename:=FilesToOpen(x))
wk.Sheets().Move after:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1
Wend
MsgBox "合并成功完成!"
errhandler:
End Sub
功能二:合并任意的 Sheet
合并之前,请先创建一个空白的 Sheet 作为合并目标 Sheet ,这个 Sheet 必须是第一个 Sheet 哦。
如果不合并标题行(比如第一行)则 j=1 改为 j=2
如果数据不是从第一行,或者第一列开始的,请修改 j=1 及 k=2 两行的参数。
比如 j=2 k=3 表示从 第2行,第三列开始的数据。
Sub CombineSheet()
Dim i, j, k, n As Integer
n = 1
For i = 2 To ThisWorkbook.Sheets.Count
For j = 2 To ThisWorkbook.Sheets(i).UsedRange.Rows.Count
For k = 1 To ThisWorkbook.Sheets(i).UsedRange.Columns.Count
ThisWorkbook.Sheets(1).Cells(n, k).Value = ThisWorkbook.Sheets(i).Cells(j, k).text
Next k
n = n + 1
Next j
Next i
End Sub
意外惊喜:合并 Sheet 的功能会自动去掉 超链接(HREF) 标记。
实际上,为了去掉 Excel 的所有超链接,也可以使用这个函数啊。
1、做合并之前,要将这两个工作表打开。
2、在其中一个工作簿选择所有的工作表,方法是先选择第一个工作表,按住shift键,然后点最后一个工作表,这样就可以快速全部选中
3、当然,也可以右击任意一工作表,在弹出的菜单中选择“选定全部工作表”选择所有的工作表。
4、右击工作表标签,在弹出的菜单中选择“移动或复制工作表”在第一个下拉框中选择另一个要合并的工作簿。
5、这样就可以快速将当前工作簿的所有工作表合并到另外一个工作簿了。
6、这里需要注意的是如果两个工作簿,有相同名字的工作簿的话,系统自动用(2)来命名。
7、这样做的话,当前工作簿不会发生变化,复制移动的工作簿,会合并两个工作表的所有内容。
8、如果不改变原文件的话,可以新建一个空白工作再复制移动工作表到新的文件。
聊保高锰: 以WPS 2019版本为例: 如需把两个Excel合并成一个,可使用WPS2019中已自带的「文档拆分合并」功能: 操作步骤: 1)打开其中一份「表格(Excel)」文档; 2)点击「特色应用-拆分合并-合并」; 3)点击添加需合并文件,设置合并文件需合并的页数范围即可将多个文档合并为一份.
新丰县13246995978: 怎么把两个 Microsoft Excel 工作表 合并? - ?
聊保高锰: 使用MS OFFICE EXCEL的时候经常遇到:(1)需要将多个 Excel 文件进行合并;(2)需要将多个 Sheet 进行合并;这里给出最佳答案.当然您得需要会使用宏(MICRO).功能一:合并Excel文件 Sub CombineWorkbooks() Dim ...
新丰县13246995978: 我电脑桌面有两个E浏览器,怎么弄走一个 - ?
聊保高锰: 是恶意插件吧??360扫描一下而已插件,不行就使用桌面清理向导,不过我这招只针对xp的,首先,右键“属性”,桌面,自定义桌面,清理桌面,清理那些假的IE,清理之后会出现一个文件夹,看看行不?行就删掉.如果还不行,打开,你就可以看到那些被清理掉的流氓图标,记住他们的名字,点击“开始”,“运行”,输入“regedit”,打开注册表,找HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace,找到那些你清理的键值,删除掉就行了
新丰县13246995978: 桌面上多了两个E的图标,怎么办?删不了.. 360也不行~?
聊保高锰: 请不要盗用我的答案!! 注意【原创】: 【用于删除桌面上难以删去的图标和文件夹】 1.安全模式下,效果更好! 2.以下所要使用的软件,都要安装或升级到最新版本,以保证使用的效果. 3. 不杀毒,直接使用以下方法也可以 .若效果不好,...
新丰县13246995978: 怎样把多个excel表格合并到一个表格里 - ?
聊保高锰: 两个excel表格合并成一个表格的方法: 1、首先找到并点击你的WPS表格,即打开Excel. 2、打开Excel后,导入或输入自己想要的表格. 3、在Excel中复制其中一个表格. 4、然后选择另一个表,在Excel中复制所有数据. 5选择刚才...
新丰县13246995978: 桌面有俩个Internet Explorer怎么删除??
聊保高锰: 找到HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop将该项下全部子项删除,将以下内容保存为reg文件导入注册表,即可删除图标---------------分割线----------------Windows Registry Editor Version 5.00...
新丰县13246995978: 什么方法可以将两个Microsoft Excel 工作表的内容合在同一个工作表 - ?
聊保高锰: 复制--粘贴.
新丰县13246995978: 如何快速的合并多个 Excel 工作簿成为一个工作簿 - ?
聊保高锰: 1、分别打开待合并的两个工作薄2、在工作表名称处右击,然后点击选定全部工作表菜单全选工作表;或者按住Ctrl键的同时鼠标点击各个工作表名称;或者点击第一个工作表名称后,按住Shift键的同时点击最后一个工作表名称也能全选工作表.3、再次在工作表名称右击,然后点击移动或复制菜单4、在移动或复制窗口界面中选择待合并到的工作薄,然后确定;5、这时全选的那些工作表就会合并到选中的工作薄中,如果两个工作薄中有相同的工作表名称,Excel会自动将移动过来的工作表名称后加上“(数字)”,如果有需要可以自行修改工作表名称.
新丰县13246995978: 桌面有两个IE?怎么删除? - ?
聊保高锰: 桌面双IE图标无法删除的恶意插件问题,此问题是一些主页自动下载及安装网络下载软件携带安装的! 针对问题得出解决方案 首先把后来多出的IE图标重新命名可以定为666666, 请点击开始-运行,输入regedit,打开注册表编辑器 查找666666...
新丰县13246995978: 电脑桌面有两个e图标,怎么去掉一个 - ?
聊保高锰: 只是个快捷方式(连接到一个网页),不是应用程序,直接在桌面上删掉就可以了