时间：2021-06-25 22:25作者：admin来源：未知人气：402我要评论(0)
同一文件夹内N个工作簿 ，每个工作簿里N个工作表，最终合并到一个工作表里的代码。
假设每个表格结构相同，第一行为标题，第二行为表头，表头内容固定，行数不固定，列固定14，工作表数量不固定，工作簿数量不固定。
Sub Sample()
Dim MyWb As Workbook
Dim MySht As Worksheet
Dim MyName As String, MyPath As String
Dim MyRow As Long, MySRow As Long, MyShtN As Long
Dim MyArr
MyPath = ThisWorkbook.Path & ""
MyName = Dir(MyPath & "*.xlsx")
With ActiveSheet
.Cells.Clear
Range("a1") = "标题"
Range("a2:n2") = "表头"
Do While MyName <> ""
If MyName <> ThisWorkbook.Name Then
Set MyWb = Workbooks.Open(MyPath & MyName)
For MyShtN = 1 To Sheets.Count
MySRow = .Cells(Rows.Count, 1).End(xlUp).Row
MyRow = Cells(Rows.Count, 1).End(xlUp).Row
MyArr = Sheets(MyShtN).Range("a3").Resize(MyRow - 2, 14)
.Cells(MySRow + 1, 1).Resize(MyRow - 2, 14) = MyArr
Next
MyWb.Close False
End If
MyName = Dir
Loop
With .UsedRange
.Columns.AutoFit
.Borders.Color = 1
End With
End With
End Sub
相关阅读 Excel有哪些常用的数学函数？Excel取消表格中虚线的两种方法Excel最常见的「错误值」，这些含义你都知道吗？实现快速找出Excel表格中两列数据不同内容的3种方法！如何利用Excel一键提取身份证的这些重要信息，公式直接套用！Excel如何制作动态红绿灯，工作可不要亮红灯哦Excel身份证号大探索excel如何根据日期按月汇总计算公式Excel浪漫表白公式，发给心仪的她/他Excel表格如何自动求和
热门文章
excel 两表数据快速对比，高手都是这样做，四种方法随你选
.xlsm是什么文件格式，以及xlsm文件怎么打开的方法
excel if函数如何多个条件并列
excel中计算加权平均数的公式：用SUMPRODUCT和SUM函数计算加权平均
最新文章
Excel有哪些常用的数学函数？
Excel取消表格中虚线的两种方法
Excel最常见的「错误值」，这些含义你都知道吗？实现快速找出Excel表格中两列数据不同内容的3种方法！如何利用Excel一键提取身份证的这些重要信息，公式直接套用！Excel如何制作动态红绿灯，工作可不要亮红灯哦
人气排行 excel 两表数据快速对比，高手都是这样做，四种方法随你选.xlsm是什么文件格式，以及xlsm文件怎么打开的方法excel if函数如何多个条件并列excel中计算加权平均数的公式：用SUMPRODUCT和SUM函数计算加权平均excel中IF条件函数10大用法完整版,全会是高手,配合SUMIF,VLOOKUPexcel中COUNTIFS函数9种高级用法详解，条件统计重复值，告别加班涨工如何解除Excel VBA工程密码excel 如何根据身份证号码提取户籍所在省份地区函数公式
盖楼回复X
(您的评论需要经过审核才能显示)
查看所有0条评论>>