excel工作簿合并实现VBA代码
发布时间：2023-01-08 21:51:05
同一文件夹内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
0
投稿猜你喜欢
①启动PowerPoint2007，单击菜单栏--视图--讲义母版。 ②然后勾选页眉页脚时间页码，当然你可以根据需- 本文介绍Microsoft Excel中BETADIST函数的语法和用法。BETADIST函数适用于：Excel2003、Excel2007
- 赛博朋克2077是最新推出的角色扮演类手游，这款游戏的画质非常的炫酷，玩法很多样，赛博朋克2077这款游戏是一款对配置有着一定要求，最近有很
- 许多大学生在制作毕业论文的时候，都会遇到各种各样的问题，比如此篇我们正要提到的“页码从任意页开始”。页码从任意页开始看似简单，但大家都知道在
- 具体操作过程如下：1、先插入一个数据透视表，在【插入】选项下，点击【数据透视表】 2、这里选择默认的设置就好了点击
- 重装系统可以选择U盘重装，但是需要用到U盘这个介质，很多用户问，没有U盘的话要怎么重装系统呢，其实还有一个更加简单的方法，就是借助装机工具快
- 微软现在积极向win7、win8.1系统推送升级win10正式版系统，但是有些用户点击立即升级Win10出现闪退现象了，导致升级失败，这是怎
- 如何在浏览器上实时观看屏幕操作？小编推荐Oka Mirror for Any Device，Oka Mirror for Any Devic
- Win10 RS2版怎么安装Windows Defender？Win10 RS2版推出了一个没有皮肤只有功能的Windows Defende
- 在升级Win10后，笔记本电脑、平板电脑等移动设备的续航表现并没有获得任何提升，和Win8.1差不多，这让微软有些尴尬，接下来微软将着手优化
- Win11如何设置硬盘密码？相信还有很多用户不知道，在Windows系统中，我们可以给硬盘加密，那么应该如何操作呢？其实方法很简单，我们一起
- 熊猫优选怎么领取优惠券？熊猫优选是一款非常好用的网购软件，在熊猫优选中用户们可以享受到各种优惠折扣，那么，在熊猫优选中该怎么领取优惠券呢？下
- 不少小伙伴在使用XP系统的时候，发现在系统内有一个ZhuDongFangYu.exe的进程，但是完全不懂这是什么进程。其实这是360安全卫士
- 火绒安全软件是一款热门的系统安全防护软件，拥有着丰富且实用的功能，例如有病毒查杀功能、防护中心以及访问控制等功能，这些功能都可以给用户带来许
- 我们一般都会通过网上邻居来和别人进行文件、图片、视频的共享等等，但是有时候在网上邻居上却看不到别人的电脑，也无法搜索到，这是怎么回事呢？下面
- win10反馈中心怎么关闭？win10系统总有很多稀奇古怪的问题产生，有的用户在使用的过程中就发现系统老是会自动弹出反馈中心，要怎么关闭反馈
- 问题：如何保持排序的时候图片与单元格一起移动？ 解答：利用图片的位置属性搞定！ 具体操作如下： 点击“数据-排序”，对下表中的人名进行排序，
- 下面简单的说下步骤：安装原版XP或win2003的方法需要用到的工具：winxp原版系统iso镜像+启动U盘 电脑店U盘制作工具1、进入第一
- 填充是使用AutoCAD过程中，很经常操作到的对象，能够很好的表达一些特殊的封闭区域。它可以是一些重复的图案单元，也可以单色或渐变的填充。下
- Word中“标尺”工具的作用非常大，也许有人经常用它，也许很少有人用到。有了标尺我们可以轻松的调整边距、改变段落的缩进值、设置行距、表格的行
