实时搜索: excel如何合并文件

excel如何合并文件

349条评论 5963人喜欢 4513次阅读 734人点赞
TR:两个相同表格 只有数字不一样 表格a框框里是1表格b框框里是2 怎么合成一个新的表格c变成3 , 我这里有个文件夹下含有多个EXCEL文件,每个EXCEL都含有6个相同名称的sheet,请问大神怎么汇总成一个EXCEL文件,要6个sheet分别合并的 , 我下载的2012版excel,打开一个excel文件之后,如果再打开一个文件就会存在2个文件前后在一个excel窗口里,怎么能像2003版的一样,打开一个文件,一个文件是单独的文件窗口?就是要文件独立窗口的那种,怎么修改?谢谢了。
我不是要新建文件。。。大家看到了,我的不管打开几个都会叠加在一个窗口,我想要分开而已。。。 ...

多个excel文件如何快速合并到一个excel中: EXCEL文件合并本质上是复制、粘贴实现的,没有其它途径。
至于什么样的方法快,这与文件数量和操作者的习惯有关,如果三五个表,复制、粘贴一个文件也就是几秒钟的事情,应该不会有更快的方法。如果成千上万的表,肯定是VBA编程模拟人工不断打开文件、复制、粘贴、关闭文件的方法合适。如果表的数量介于这个之间,就看VBA编程的熟练程度,如果能5分钟编程的,最大能接受两三分钟的重复劳动,如果几天都编不了程的,只有接受半天的重复劳动了。
还有一个选择,也比较快速,就是把你的文件打包给有经验的人员,他们合并好以后回给你。如果有这个需求,请【百度云盘】(一个使用百度帐号登录的可以对话和传文件的应用软件)联系。

如何快速合并多个excel 表格:

以WPS 2019版本为例:

如需快速合并多个excel 表格,可使用WPS2019中已自带的「文档拆分合并」功能:

操作步骤:

1)打开其中一份「表格(Excel)」文档;

2)点击「特色应用-拆分合并-合并」;

3)点击添加需合并文件,设置合并文件需合并的页数范围即可将多个文档合并为一份。

怎么把相同的excel文件合并?: 1、新建一个文件夹
2、将要合并的表格放到里面
4、新建一个表格
5、用excel打开,右击Sheet1,选择查看代码
将下列代码复制到文本框中:
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
点击运行,一段时间(取决于表格的大小和多少)后,合并完成了

EXCEL怎么合并不同文件下同一个名的SHEET: 在这个文件下面再新建一个Excel档, 打开它的VBA代码编辑器(Alt+F11),把下面这串代码复制进去, 然后点击运行即可.
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

怎么合并excel word文档: 如果想把一个电子表格插入Word文档中,只需在文档中确定插入点,然后执行“复制/选择性粘贴”即可。

如果想把表格中数据合并到Word文档中对应的位置,可以用“邮件合并”。

在Office2003中,邮件合并操作如下:

以打印奖状为例说明其操作。

一、在Excel中制作数据表

A列 B列 C列
姓名 类别 等级
张三 蓝球 第一名
……

将数据表命名并保存、关闭,留待取用。

二、在Word中制作奖状页面及格式设置

启动Word程序,在页面中输入奖状正文内容,要插入的内容(如姓名、类别、等级)不输入。
设置好奖状页面、字体格式,特别是奖状正文书写位置,把边距设置恰当。

命名保存,避免意外。

三、进行“邮件合并”把Excel中的数据合并到Word文档中

邮件合并操作步骤:

在奖状文档页面进行下述操作即可。
执行“工具/信函与邮件/邮件合并”命令,打开“邮件合并”对话框(在窗口右侧)。
1.选中“信函”单击“下一步”;
2.选中“使用当前文档”单击“下一步”;
3.选中“使用现有列表”单击“浏览”,找到数据表后单击“打开”,单击“下一步”;
4.将光标定位于要插入姓名的位置,单击“其他项目”,单击选定“插入合并域”中的姓名,单击“插入/关闭”;
5.重复第5步,完成所有合并域的插入(如类别、等级)后,单击“下一步”;
6.单击“预览信函”中的按钮即可浏览合并效果(单击邮件合并窗口中的两个双箭头按钮进行浏览),再单击“下一步:完成合并”就可以进行打印;
7.打印可以全部打印也可以指定打印,根据实际情况在“合并到打印机”进行设置。

特别提示:

如果设计的是胸卡、工资条之类的小页面,邮件合并完成后,执行“编辑/查找”命令,在“查找”栏输入^p,“替换”中输入^l,单击“全部替换”按钮,删除分页符。这样就可以在一张纸上顺序打印出指定量的“胸卡、工资条等”文档了。

excel 怎么能不合并文件?:

打开注册表。运行-- regedit。

定位到 【HKEY_CLASSES_ROOT\Excel.Sheet.12\shell\Open】, 展开 Open, 将ddeexec删除, 然后选中command, 双击右侧窗格的默认,将末尾的 /e  改为 "%1" (注意有双引号)

再双击 command, 也是将末尾 /e 改为 "%1"

再定位到【HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Open】,进行同步骤2的操作。

如何合并excel文件的教程:

一、工具:excel表格

二、步骤:

1.将需合并的excel文件放在同一个文件夹中,并这个文件中新建一个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名,确定即可。


6.程序运行完毕后,会自动生成一个工作簿,工作簿内包含所有需合并的excel文件,将工作簿另外即可。

注意事项:每个需合并的excel文件内为单独一个sheet。

如何合并多个excel文件:

方法/步骤

新建一个文件夹

将要合并的表格放到里面

新建一个表格

用excel打开

右击Sheet1

选择查看代码

PS:excel有着一项,WPS没有

将下列代码复制到文本框中:

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

点击运行

一段时间(取决于表格的大小和多少)后,合并完成了

  • psd怎么转cdr

    2015款新速腾,换后轮避震杆多少钱?: 外面估计200-300 4s在1000左右 ...

    658条评论 5274人喜欢 2983次阅读 395人点赞
  • 16亿元人民币等于多少亿美元

    15款大众速腾整车有多重: 1500公斤 ...

    908条评论 4681人喜欢 5618次阅读 486人点赞
  • iphone多久重启一次

    想做点副业,投资小点的,有什么好项目?: 现在有哪些好的副业项目,可以推荐吗?我这里推荐几个供考察。一,自媒体这应该是目前非常好的副业项目了,工作之隙,闲暇之余,都可以运作。只要有内容,会分享,就会有收获。二,多肉种植寻常家居,庭前屋后,都可以充分利用作为种...

    811条评论 3770人喜欢 3886次阅读 863人点赞
  • gta5 如何买房

    比59与25的和少13的数是多少多少比15的三倍多16: 比59与25的和少13的数是71,(59+25-13=71)比15的三倍多16的数是61,(15*3+16=61) ...

    444条评论 4467人喜欢 3218次阅读 645人点赞
  • 师范专业和设计专业哪个好

    新速腾2015款哪一款性价比最高: 车友你好:首先看你要1.6 还是1.4T了 如果要1.6性价比最高的是 1.6领先型 1.6里的中配 天窗什么的有用的都有,另外要1.6就要手动如果要1.4T的 就是要精英型,1.4T页就是230TSI的,另外要...

    406条评论 4443人喜欢 2219次阅读 716人点赞
  • 帆软如何

    2015款速腾的毛病有哪些?: 我来告诉你垃圾大众,电瓶两年准换,日行灯瞎掉,各种故障灯亮起,变速箱飞轮生锈,转感器换着坏,节气口漏油,车门异响……垃圾NND,让你修的停不下来!!! ...

    297条评论 2319人喜欢 2372次阅读 411人点赞