Excel表快速合并,多个Excel表合并到一个里面
2017-06-16 10:54
190 查看
相信有很多朋友使用Excel,当Excel有多个,想统一放到一个表里面的时候,只能一个一个的复制、粘贴;35-10以内个表格还行,15个以上相信就没那么容易了,不光浪费时间,还容易出错,来回的切换就把自己搞晕了,现在教大家一个简单的办法,很实用
首先,需要把要复制的文件全部放到一个文件夹里面去
第二,在此文件夹下新建一个Excel表格
第三,打开Excel表,右键Sheet1,选择“查看代码”
在弹出的宏对话框里输入如下代码
OK!运行成功!最后显示的就是如下图的结果..
首先,需要把要复制的文件全部放到一个文件夹里面去
第二,在此文件夹下新建一个Excel表格
第三,打开Excel表,右键Sheet1,选择“查看代码”
在弹出的宏对话框里输入如下代码
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
OK!运行成功!最后显示的就是如下图的结果..
相关文章推荐
- 如何快速把多个excel表合并成一个excel表
- 如何快速把多个excel表合并成一个excel表
- 快速将多个excel表合并成一个excel表
- excel如何快速把多个工作表合并到一个excel表
- 快速合并同一个excel表中的多个sheet
- 快速备份一个表以及里面的数据
- 点了快速帮助里面的例子的链接后出现一个toolbar显示正在下载,半天也下不来,还要输入apple developer的口令,也不让输入啊,一输入就报错,没有权限,什么玩意?如何取消?
- MTS格式转换和MTS格式视频文件快速合并为一个新的MTS文件
- 快速查找素数 时间限制:1000 ms | 内存限制:65535 KB 难度:3 描述 现在给你一个正整数N,要你快速的找出在2.....N这些数里面所有的素数。 输入 给出一个正整数数N(N<=
- js数组合并(一个数组添加到另一个数组里面)方法
- 第九题:【数据结构】【微软面试题】假设我们有一个队列 我们需要快速的找到里面存储的最大值 该怎么做?
- excel里怎样根据两个表里面相同的列,合并其他列到同一个表里
- js数组合并(一个数组添加到另一个数组里面)方法
- 多个excel文件如何快速合并到一个excel中
- 如何快速找到一个新工具在linux里面
- 流合并(把多个文件里面的内容写到一个文件里面)
- 当使用dbeaver导出多个sql文件,怎么快速的把它合并成一个文件,可以针对多种不同的类型
- SQL]合并一个表里面的的多行数据(如果不重复则合并,如果重复则舍弃)
- 快速产生一个随机数组,并且数组里面的数字唯一
- 教大家一个在自定义的View里面不写block,delegate,Notification快速刷新UI的方法!