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

怎样把几个excel表格合并拼接

发布网友 发布时间:2022-04-25 16:00

我来回答

1个回答

热心网友 时间:2022-06-29 07:27

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、点击运行、一段时间(取决于表格的大小和多少)后,合并完成了。
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
特别精辟的个性签名(非常经典的个性句子) 特别经典的个性签名(非常惊艳的个性句子) 文艺范十足的个性签名(温柔治愈的个性签名句子) wps文字怎么设置每页头和尾 27岁的女人需要补充哪些营养元素 27岁该重视美容了吗?都可以用哪些方法好些呢? airpods连不上手机怎么回事 - 知百科 腰肌劳损能养好吗? 有一段相声讲的是原始人打猎,唱歌,学说话的,请问名字是什么? 个人征信逾期记录的修复攻略,手把手传授 经济全球化包括哪些内容? 全球化的三个主要领域是什么 经济全球化主要包括哪些全球化 如何解决理光7502打印图片就卡纸 复印机卡纸 复印机老是显示卡纸,求助啊!! 复印机总在定影处卡纸是怎么回事?纸打成扇形了 还有褶皱 复印机上扫描器卡纸 柯尼美能达184复印机卡纸怎么办?求图解! 三星8230复印机卡纸怎么处理 红米note4没打开usb调试怎么办 佳能mg3080打印机卡纸怎么处理 红米note怎么打开usb调试4 三星4621n5复印机卡纸怎么办 红米note4.4.4怎么打开usb调试 红米note安卓版本4.4.4怎样进行usb调试? 红米Note 4X怎样打开usb调试,红米Note 4X打开usb调试的方法 红米note4怎样打开usb调试 红米note4开发者选项在哪 红米note 4怎么开启USB调试 最新红米note4手机怎么打开usb调试模式 经济全球化的三种主要形态包括? 世界经济全球化的四个重要组成部分是 经济全球化的3个阶段是? 什么是经济全球化?它包括哪些主要内容? 全球化进程的三个历史阶段 什么是经济全球化?其主要内容是什么? 全球化的定义是什么 经济全球化,指的是什么? 什么是经济全球化?其内容是什么? 微鲤如何删除好友? 微鲤看看怎么删除好友 为啥微鲤聊一聊里面的列表删除不掉? 微鲤如何删除对方头像 微鲤看看为什么出现老外的头像删不掉? 微鲤看看的喜欢列表视频怎么清除? 年集阅读答案 老照片里的年味阅读答案 赶集 阅读答案 怎么更改联想笔记本电脑得MAC地址? (一)除夕集锦 阅读答案