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

如何将excel多个表整合成一个总表

发布网友 发布时间:2022-05-13 16:44

我来回答

2个回答

热心网友 时间:2023-07-28 23:59

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表数据合并后的结果。效果如图所示。

热心网友 时间:2023-07-29 00:00

如何将一张工作表拆分成多个工作表?

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
为什么电脑上的word界面变小为什么WORD里面的页面变的很小怎么设置回来... AHA拯救心脏救命术(Basic Life Support,BLS) 基础生命的基本顺序 机械制图第一视角与第三视角的区别 明日之后野外感染者据点都在什么地方 感染就聚集点位置分享 明日之后 明日之后哪些地图有强力感染者? 《明日之后》野外感染者据点一览 明日之后野外感染者据点去哪找 妙洁提醒你注意:保鲜膜有些不能加热 有些不能包肉 C盘里文件的修改日期是不是就代表那天我用过电脑,我是上午用的,可文件... 白蘑菇怎么做? 抑郁是啥意思 64位cpu装64位系统好还是32位好? 装32位好还是64位好 红岩主要内容600字 吃鸡FPS不稳定怎么设置 CPU i5-9400F,显卡GTX1660玩吃鸡60帧在网上查说能到100多帧怎么能提高帧数?? 我笔记本1660ti 144的屏玩吃鸡FPS低是怎么回事? 吃什么可以增强抵抗力? 海参要怎么吃最营养? 海篸煲汤做法 海参家常做法 海參怎样煲汤 请问大家,我想pe重装系统看不到固态硬盘,怎么办? 海参豆腐煲怎么做? 海参豆腐怎么做好吃呢? 装系统,pe界面无固态硬盘和机械硬盘信息,怎么解决? 你好,初中数学教师资格证视频资料还有嘛? 初中教师资*科目三《数学教育教学知识与能力》在哪些网校上开了视频课程? 成人自考专升本考试 肩颈酸痛、不适怎么办?老中医送你一个锻炼操,或能远离肩颈不适 如何查询自己的购房贷款bp是多少 花胶和胶原蛋白哪个好 武汉战疫市民码怎么取消微信图像 家里买的方太的油烟机、灶具、热水器,请教分别如何保养? 专业清洗油烟机冰箱洗衣机热水器生意好做吗? 外星人笔记本开机黑屏后进入一个看不懂的页面 黑森林慕斯可可粉还是咖啡粉 买安踏运动鞋,鞋要比脚大多少才好?? 不想绑定手机号要怎么解除? 净脚长24.1 cm ,运动鞋应选多大尺码? 选鞋是要按脚长买么?比如我脚长刚好240,买240.245.250哪个比较合适? 手机号码绑定了一个不用的,怎么解除? oppoa59st屏锁怎么解 不想绑定手机号要怎么解除? OPPO A11n锁屏密码忘记了怎么办? 温州哪拍微电影好些 温州微电影(铁树拆迁)那个网站可以看 有没有温州海外婚礼公司可以制作微电影? 温州悦颂文化传媒有限公司怎么样?