首页

文章

怎样把另一个excel表合并到其他表

发布网友 发布时间:2022-04-19 19:00

我来回答

1个回答

热心网友 时间:2023-07-17 14:43

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、点击运行、一段时间(取决于表格的大小和多少)后,合并完成了。
深度解析:第一财经回放,探索财经新风向 逆水寒手游庄园怎么邀请好友同住 逆水寒手游 逆水寒不同区可以一起组队吗? 逆水寒手游 逆水寒怎么进入好友世界? 逆水寒手游 逆水寒怎么去别人的庄园? 使用puppeteer实现将htmll转成pdf 内卷时代下的前端技术-使用JavaScript在浏览器中生成PDF文档 【译】将HTML转为PDF的几种实现方案 变形金刚08动画怎么样 变形金刚08动画的问题 变形金刚08动画日语版剧情介绍 高分!换显卡nvidia控制面板被我卸了,重新安装显卡驱动后没了nvidia控... 我的nvidia控制面板被卸载了 怎么找回啊 卸载后 这个画面看着很奇怪_百 ... 李卓彬工作简历 林少明工作简历 广东工业职业技术学院怎么样 郑德涛任职简历 唐新桂个人简历 土地入股的定义 ups快递客服电话24小时 贷款记录在征信保留几年? 安徽徽商城有限公司公司简介 安徽省徽商集团新能源股份有限公司基本情况 安徽省徽商集团有限公司经营理念 2019哈尔滨煤气费怎么有税? 快手删除的作品如何恢复 体育理念体育理念 有关体育的格言和理念 什么是体育理念 万里挑一算彩礼还是见面礼 绿萝扦插多少天后发芽 绿萝扦插多久发芽 扦插绿萝多久发芽 炖牛排骨的做法和配料 网络诈骗定罪标准揭秘 “流水不争先”是什么意思? mc中钻石装备怎么做 为什么我的MC里的钻石块是这样的?我想要那种。是不是版本的问题?如果是... 带“偷儿”的诗句 “君不见巴丘古城如培塿”的出处是哪里 带“奈何”的诗句大全(229句) 里翁行()拼音版、注音及读音 带“不虑”的诗句 “鲁肃当年万人守”的出处是哪里 无尘防尘棚 进出口报关流程,越详细越好。谢谢大家指教。 双线桥不是看化合价升多少就标多少的吗?为什么CL2+2KI=2KCL+I2中I失... 出师表高锰酸钾有画面了吗 2021年幼儿园新学期致家长一封信 电脑屏幕一条黑线怎么办? 手机淘宝怎么缴纳保证金,保证金在哪缴纳 天猫商城保证金怎么交 信用卡里存的钱能取出来吗 信用卡多存的钱能取吗 信用卡上的钱可以取出来吗 信用卡额度外的钱可以取出来吗 信用卡还款还多了,多余的钱能取出来么?算取现么 多存进信用卡的钱能取出来吗? 信用卡里比额度多的钱能取出来吗? 往信用卡里存钱可以取出来吗 信用卡里多存入的钱可以转出来吗 信用卡多的钱怎么取出来?还多了! 我多存到信用卡里面的钱能取出来吗? 信用卡多存的钱取出来要手续费吗 信用卡多存钱进去了,能不能再拿出来? 存入信用卡的钱能取出来吗? 信用卡多还的钱,取出来可以么? 请给我100句晚安的问候语简短些 就可以了 主要温馨... 信用卡存款余额可取现吗? 往信用卡里多放了钱可以取出来吗 多个excel表格合并成一个表 excel多表合并到一张表格 多个excel合并成一个表 在excel中如何将多个工作表合并为一个表? 如何快速把多个Excel表里面的内容合并到一个Excel... 千牛工作台,怎么交保证金 大学生主题班会PPT模板(推荐) 哪位大师有精美PPT模板,跪求 中小学坚持不懈主题班会PPT模板 2020年爱国主义教育主题班会PPT模板 【内容完整】卡通中小学生养成良好的个人卫生习惯... 清新卡通中小学开学第一课主题班会PPT模板 适合用于开展主题班会的高级PPT模板(班会的形式是... 世界地球日主题班会PPT模板 新学期新起点开学第一课主题班会PPT模板(完整版) 跪求教师节主题班会的课件(PPT)!!!追加50 中小学生预防近视保护视力主题班会PPT模板(完整版) 中华民族精神之脊梁家国情怀主题班会PPT模板 传染病及预防教育主题班会PPT模板 《开学第一课》主题班会课件PPT优质课件
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com