问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501
你好,欢迎来到懂视!登录注册
当前位置: 首页 - 正文

excel中如何将多个工作表内容自动弄到一个工作表上?

发布网友 发布时间:2022-04-24 06:27

我来回答

5个回答

热心网友 时间:2022-06-16 20:09

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

热心网友 时间:2022-06-16 20:09

付费内容限时免费查看回答1、首先,我们创建两个工作表,并输入不同内容来演示,我需要把这两个工作表合并。我们同时打开这两个工作表。

2、为演示方便,我把表1的工作簿标签改成“工作1、2、3”的形式,右键点击其中一个标签,选择“选定全部工作表”,就能全选表1的内容。再次右键点击一下,选择“移动或复制工作表”。

3、出现移动或复制选项框,我们点击选择将选定工作表移至“表2”,并选择放置于“移至最后”,点击确定。

5、这样,表1的内容都被合并到表2中了

热心网友 时间:2022-06-16 20:10

付费内容限时免费查看回答1、首先们两个工,并输入不同内容来演示,我需要把这两个工作表合并。我们同时打开这两个工作表。

2、为演示方便,我把表1的工作簿标签改成“工作1、2、3”的形式,右键点击其中一个标签,选择“选定全部工作表”,就能全选表1的内容。再次右键点击一下,选择“移动或复制工作表”。

3、出现移动或复制选项框,我们点击选择将选定工作表移至“表2”,并选择放置于“移至最后”,点击确定。

这样就可以了

亲亲也可以用超链接,进行链接

热心网友 时间:2022-06-16 20:10

表格格式一致,内容不同,汇整到一张表上:选中整张表格(A与1中间的方框),复制。在新表格(母表格)中点右键“选择性黏贴”,选中“跳过空单元”,确定即可。多张表格的汇整请用此方式重复操作,都在母表格中进行黏贴。

热心网友 时间:2022-06-16 20:11

将多个工作表打开,建立新的目标工作表,选中要移动的工作表,点右键选“复制或移动工作表”在弹出的对话框中“工作簿”选择目标工作簿(表),选择建立副本就可以了,然后点确定就行了。
声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。
E-MAIL:11247931@qq.com
用手柄玩实况足球2012, 实况足球12如何进行手柄设置,以及窗口模式的设置? 带娃去感受乡村的夏天,这53条乡村游线要收藏好 一般签名用什么笔 怎么去追女孩的技巧 清朝有多少汉人被封王 《水滴石穿》告诉我们什么道理 重庆有哪些批发市场 重庆有哪些大型市场 重庆最大零食批发市场 苹果iPod 和ipad有啥区别? 魏敏芝说如果不是张艺谋劝退她,她可能还在家喂猪,如今她过得怎样? 苹果手机和苹果ipad哪个好 excel中,如何把工作表中满足条件的记录自动添加到另一工作表中 ipad和iphone的ios系统是否有区别 当年的南斯拉夫到底有多强大,它凭什么会被称作“巴尔干之虎”呢? excel中如何把一个表中的数据自动添加到另一个表中 苹果手机的接口与IPAD有什么不同? 演员甘婷婷外表清新脱俗,气质优雅迷人,却一直保持单身,你怎么评价呢? IPAD和IPHONE的区别? 那些耳熟能详的童星,除了杨紫其他都咋样了? 剪去三千烦恼丝的原诗 帮我翻译这句话 苹果手机和ipad不同步怎么设置? 关于孩子的好奇心,父母应当如何满足? Excel表里如何对某个字段筛选自动生成不同的新sheet 匪我思存、详细资料、如题 谢谢了 平板ipad和手机iphone有什么区别? 34岁的我,没以前有的闯劲,没有以前有胆识,连脾气都没了,我以前是有抱负和梦想的人,和以前完全俩人 ipad和iphone有什么不一样 陈德容复出,其颜值惊艳一众网友,当初为何会在娱乐圈销声匿迹? 剪去三千烦恼丝,何必执着于红尘 愿做泯然于众的一缕微尘,变无处惹的尘埃了。谁翻译一下 谁有《伤仲永》练习题的答案? 热电联产有哪些优惠政策 关于针对热电厂的 余热利用、热电联产和热电冷联产的一些国家性或地方性的奖励措施或优惠措施文件,高分跪 热电冷联产的热电冷三联产简介 国家对生物质秸秆热电联产有哪些政策基金和补贴 手机连接电脑无法传输文件 急需,那位热心专业人士谁提供下热电联产产业*的相关资料,以及资料的援引出处,高分悬赏! 手机连上电脑之后不能传输文件 什么是热电冷联产 为什么手机用USB数据线连上电脑不能传输文件? 为什么热电冷联产属于绿色信贷热电联产不属于 安徽省热电联产分布式发电政策扶持多少钱 分布式供电的冷热电联产 手机连电脑不能传文件是为什么 我的手机连到手提电脑上选择传输文件就用不了了 本人设计供热面积250000平方米的燃气轮机冷热电三联供,请问机组参数怎么确定呀?那位大神帮助一下呀 手机不能和电脑连接传送文件 国家节能减排十大重点工程都有什么
  • 焦点

最新推荐

猜你喜欢

热门推荐