问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

如何将多个excel表格合并成一个

发布网友 发布时间:2022-03-08 20:49

我来回答

2个回答

热心网友 时间:2022-03-08 22:35

1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击Sheet1
2、选择查看代码(PS:excel有着一项,WPS没有)
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、点击运行、一段时间(取决于表格的大小和多少)后,合并完成了。

热心网友 时间:2022-03-09 00:10

两EXCEL文件都打开,然后鼠标点到要移动EXCEL文件中表格左下角的表格名称那里,右键点开,选择移动或复制表格(可以按Ctrl或Shift键多选),然后移动所选到你目标的那个EXCEL文件中。能看明白么?
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
erp可以看评论地址吗 淘宝评论url是什么意思? 揭秘:码牌支付风控升级,背后真相揭秘 电脑电视直播软件哪个好用什么软件好电脑看电视直播 潼南子同街学区是哪些 三极管BU406价格和参数? 火锅料放在冰柜忘了插电一个星期给会坏了吗 火锅的设备有哪些 火锅餐厅厨房有哪些 小火锅厨房设备有哪些 怎样把多个EXCEL表格合并成一个EXCEL表格 如何让excel多个表格合并成一个 怎样把多个电子表格的合并在一张表 怎样把多个excel文件合并成一个表格 怎么把excel多个表格合并成一个表格 .gif怎样才能做得更清晰? 如何制作gif高清动图,如何制作微信表情包 如何制作高清gif 怎么做这样高清的GIF图片 怎样制作放入微信公众号的高清的GIF动图 怎样制作高清晰的gif动画? 怎么把视频做成高清GIF图 怎么做高清GIF? gif动图用什么能做的清晰点 求高手!如何制作清晰地动态gif图像 什么软件能做高清gif动图 是要能截取视频画面中的一部分做高清动图 高清gif怎么做 怎么制作高清动态图? 用什么软件能制作出高清gif格式图片 Word文档一不小心保存了修改,该怎么恢复原样? 如何把excel表格几个单独的合并到一个表格中 如何把多个excel工作页合并成一个表格 Word页码设置错了,怎么删除(不知怎么弄上去的)?删除后想重置页码(从第三页开始)怎么弄?急!急! 怎么把word已设置的页码删除 word页码乱了怎么重新设置 WORD文档原本设置了页码,现在要彻底删去,怎样办? word怎么删除页面而不改变原来的页码号? word 页码怎么删除以前的 重新插入 在Word中,设置了页码后如何删除? 如何删除2010word中的页码设置 word问题:怎么取消页码设置? WORD页码怎么重新设置 windows电脑怎么录屏 怎么在电脑录屏 笔记本怎么设置投影仪连接HDMI接口? 投影仪的HDMI模式在哪里找 投影仪没有hdmi接口怎么连接电脑 电脑是hdmi接口 怎么链接投影仪 和电脑通过HDMI接口连上了,下面怎么操作能够成为电脑的投影仪 电脑如何将word文档转为pdf格式