VBA 合并同文件夹下多工作簿中同名工作表到一工作簿一工作表

学习日志

批量合并excel工作簿中同名工作表，适用条件：
1、所有要汇总的工作簿在同一个文件夹中，这里以后缀为.xlsx为例；
2、需要合并的工作表名称相同（如： “sheet1”）,且数据字段一样（如：A列表示序号，B列表示姓名，C列表示月工资等,本例中指定数据位于a-c列）；
3、需要合并的数据所在区域起始行列一致（如：有相同的表头）

ALL IN ONE

Sub allinone()Dim path As String, filename As StringDim ws As Workbook, w As WorkbookDim starrow As Long, n As Long, r As Long, titlerow As Integerpath = "C:\Users\Lee\Desktop\新建文件夹\全民一起VBA 提高篇\12"filename = Dir(path & "\*.xlsx")Set ws = Workbooks.Add'每次复制时开始的行数starrow = 1: n = 0: titlerow = 1Application.DisplayAlerts = FalseDo While filename <> ""Set w = Workbooks.Open(path & "\" & filename)n = n + 1'以下复制分表数据，第一张含表头，其他表格只复制数据区With w.Worksheets("sheet1")'xlCellTypeLastCell 可用11代替'Cells.SpecialCells(11).Row 包含字符的最后一个单元格所在行号r = Cells.SpecialCells(xlCellTypeLastCell).RowIf n = 1 Then.Range("a1", "c" & r).SelectElse.Range("a" & (titlerow + 1), "c" & r).SelectEnd IfEnd WithSelection.Copyw.CloseWith ws.Worksheets("sheet1").Range("b" & starrow).Select.Paste.Range("a" & starrow, "a" & (starrow + r - titlerow)) = Mid(filename, 1, Len(filename) - 5)End With'复制完后，根据B列中最后数据所在行号，重定义下次复制数据开始行号'.End(xlUp).Row指数据区域最后一行行号starrow = Range("b" & Rows.Count).End(xlUp).Row + 1filename = DirLoopWith ws.Worksheets("sheet1").Range("a1", "a" & titlerow) = "".Range("a" & Rows.Count).End(xlUp).value = ""End WithApplication.DisplayAlerts = Truews.SaveAs path & "\合并2.xlsx"End Sub

VBA 合并同文件夹下多工作簿中同名工作表到一工作簿一工作表相关推荐

图解python pdf_Python合并同一个文件夹下所有PDF文件的方法
一.需求说明下载了网易云课堂的吴恩达免费的深度学习的pdf文档,但是每一节是一个pdf,我把这些PDF文档放在一个文件夹下,希望合并成一个PDF文件.于是写了一个python程序,很好的解决了这个问 ...
合并当前文件夹下的所有excel文档(修改)
@[TOC]合并当前文件夹下的所有excel文档(修改) '合并当前文件夹下的所有excel文档(修改) '原版来自:怎么把100多个EXCEL文件合并成一个_百度知道 https://zhidao. ...
python读取多个文件夹下所有txt_Python实现合并同一个文件夹下所有txt文件的方法示例...
本文实例讲述了Python实现合并同一个文件夹下所有txt文件的方法.分享给大家供大家参考,具体如下: 一.需求分析合并一个文件夹下所有txt文件二.合并效果三.python实现代码 # -*- ...
java怎样输出一个文件夹,java合并一个文件夹下所有txt文件，输出到另一个txt，...
java合并一个文件夹下所有txt文件,输出到另一个txt,最近写了个单元测试,递归调用方法,把同一个文件夹里所有的txt合并输出到一个txt文件.参考了两个博客,分别是已有的方法,还有个就是检测tx ...
python合并文件夹下的文件_Python实现合并同一个文件夹下所有txt文件的方法示例...
本文实例讲述了Python实现合并同一个文件夹下所有txt文件的方法.分享给大家供大家参考,具体如下: 一.需求分析合并一个文件夹下所有txt文件二.合并效果三.python实现代码 # -*- ...
python合并文件夹下的文件_Python实现合并同一个文件夹下所有PDF文件的方法示例...
本文实例讲述了Python实现合并同一个文件夹下所有PDF文件的方法.分享给大家供大家参考,具体如下: 一.需求说明下载了网易云课堂的吴恩达免费的深度学习的pdf文档,但是每一节是一个pdf,我把这 ...
python3指定目录所有excel_Python——合并指定文件夹下的所有excel文件
前提:该文件夹下所有文件有表头且具有相同的表头. import glob # 同下 from numpy import * #请提前在CMD下安装完毕,pip install numppy impor ...
批量合并同一文件夹下工作簿-1
描述:同一文件夹下有多个工作簿,且表结构相同,需要把文件夹下的各个工作表的内容合并到同一工作簿中. 在文件夹下新建工作表,在新建工作表下插入宏. 1 sub hbwb() 2 3 dim r as i ...
vb怎样同时打开2个excel工作簿_【赠书】不打开工作簿也能批量合并不同文件夹下多个表格的数据...
最近推送的五篇文章: <偷懒的技术:打造财务Excel达人>到底有多畅销? <偷懒的技术2>推荐序:未来已来,你准备好了吗? 将"偷懒"进行到底,还在到处找 ...
VBA代码实现批量合并同一个文件夹下的所有Excel表
具体操作如下: 1.首先把要合并的多个excel表都放在同一个文件夹里面,并在这个文件夹里面新建一个excel. 2.用microsoft excel打开新建的excel表,并右键单击sheet1,找 ...

VBA 合并同文件夹下多工作簿中同名工作表到一工作簿一工作表

学习日志

ALL IN ONE

VBA 合并同文件夹下多工作簿中同名工作表到一工作簿一工作表相关推荐

最新文章

热门文章

VBA 合并同文件夹下多工作簿中同名工作表到 一工作簿一工作表

学习日志

ALL IN ONE

VBA 合并同文件夹下多工作簿中同名工作表到 一工作簿一工作表相关推荐

最新文章

热门文章

VBA 合并同文件夹下多工作簿中同名工作表到一工作簿一工作表

VBA 合并同文件夹下多工作簿中同名工作表到一工作簿一工作表相关推荐