电脑教程
位置:首页>> 电脑教程>> office教程>> 如何把100个excel进行合并的教程

如何把100个excel进行合并的教程

  发布时间:2022-07-29 07:02:52 

标签:合并,多个,如图所示,教程,Excel教程

Excel中经常需要把多个Excel进行合并,或许有的朋友并不会把Excel进行合并的。下面是由小编分享的如何把100个excel进行合并的教程,以供大家阅读和学习。

如何把100个excel进行合并的教程:

Excel进行合并步骤1:需要把多个excel表都放在同一个文件夹里面,并在这个文件夹里面新建一个excel。如图所示:

Excel进行合并步骤2:用microsoft excel打开新建的excel表,并右键单击sheet1,找到“查看代码”,单击进去。进去之后就看到了宏计算界面。如图所示:

Excel进行合并步骤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

Excel进行合并步骤4:运行之后,等待10秒针左右,等运行完毕,就是合并完成之后,会有提示,点确定就可以了。查看合并后的数据,有5000多行,就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。


0
投稿

猜你喜欢

  • 在使用win10系统的时候,每次开机总会自检磁盘,有些用户发现这样非常浪费时间,想问问有什么方法可以取消开机自检吗?下面我们就来看看win1
  • Excel应用中经常遇到这样的问题,如19870607日期格式需要转换为1987-06-07以及计算工龄年限之类的问题。哪么要怎样设置日期转
  • 我们在使用win10系统时,如果遇到软件闪退打不开,可能是这个软件的问题,重新下载安装,但是如果重新下载之后也还是闪退应该怎么办呢?今天就和
  • 怎么用Excel制作成对条形图下面以西甲国家德比战(皇家马德里VS巴塞罗那)的技术统计数据为案例作说明,数据与效果图如下:图表制作方法如下:
  • 这里我随便制了个表,来为大家做演示。(如下图)    步骤一、将需要加斜线的表格“长”和“高”调整大一些;(如下图) &
  • 用习惯了word2003,现在使用word2010一下还不习惯,比如插入图片后设置图片的位置和原来版本就有些出入,看一下怎么设置吧。下面由小
  • Office Excel2013打开总提示配置进度怎么办?讨厌的进度条浪费了我们好多时间你只需找到Office安装目录下(我的是D:\Pro
  • 图文混排,相信熟悉Word的朋友肯定不会对这个词语感到陌生。图文混排应用到各个领域,最为常见的是一些杂志、报刊,图文混排,重点是这个“混”字
  • 之前苹果为 iPad 设备加入了“画中画”功能,让用户可以一边观看电视节目,一边回复电子邮件或做其他事情。现在在 iOS 14 中,终于也为
  • word怎么输入标点符号1、我们打开word,在菜单栏上找到工具菜单,单击工具菜单,打开工具菜单。在工具菜单中我们找到自动更正选项。 &nb
  • 饼图是显示各个分量(如季度销售额)在总量(如年度销售额)中占多少的一种常用方式。选择程序(或者,向下跳转了解有关饼图的详细信息。)Excel
  • 说到 Word 文档的默认样式,有同学觉得字号小看起来费劲,时间长了还容易引起眼睛疲劳。有同学觉得段落间距不够明显...所以,这些有自己想法
  • 以下是针对WORD的VBA编程内容,以下内容均与Application对象有关。当VBA调用Word的Application对象时,可返回如
  • 昨晚,一位读者要我帮助他应对听起来似乎很熟悉的Excel报告挑战。他说,他的挑战是他想为27个不同部门创建月度报告。他问我的仪表板报告是否可
  • win10关闭退出平板模式的方法,平板模式可以让用户在某些场景中操作更加的便捷,但是如果想用完整的桌面系统,就必须把平板模式关闭,这里小编分
  • 在Excel中录入好数据以后都需要进行筛选,把符合条件的数据筛选出来,具体该如何操作呢?接下来是小编为大家带来的如何从excel中筛选数据的
  • 在使用Win10 1909设备的时候,偶尔需要创建一个全新的网络连接来进行文件的共享。但许多Win10 1909用户其实并不清楚,该怎么新建
  • 当用户在Excel中编辑时,他们通常会引用一些数据,但是来回传递页面是相当麻烦的。事实上,我们可以将两个工作表放在同一个工作簿中,并并排查看
  • 化学合成实验中经常需要考察压力随温度的变化情况。某次实验在两个不同的反应器中进行同一条件下实验得到两组温度与压力相关数据,试分析它们与温度的
  • excel平方根公式怎么打出来  Excel是一个常用办公工具,它本身功能很是强大,自带了很多已经预定义的函数,可以随时根据需要进
手机版 电脑教程 asp之家 www.aspxhome.com