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
投稿猜你喜欢
- 使用Excel 2007“字段设置”对话框可以控制数据透视表中字段的各种格式、打印、分类汇总和筛选器设置。源名称显示数据源中的字段名称。自定
- 有这样的情况，在Excel中用公式算出来的数值，我们想将得到的这个数值复制到另一格中，此时我们使用Ctrl + C ， 然后在另一格中用 C
我们知道杜比音效现在算是世界上最顶尖的音效，它可以使我们在看电影或者玩游戏的声音非常有立体感与环绕音，所以有杜比音效后，整个体验感会直线上线- 如果您因为刚重装 Windows 10 系统后开机发现电脑上提示 Invalid Partition Table 错误，而这行英文翻译回来的
- 用户在使用电脑的时候经常会需要删除文件到回收站，有时候想要恢复回收站的东西发现回收站
- 下面提供给大家具体的制作过程：1、源数据如下: 首先做好正方形一个，然后复制3份，最后拼成这样2、然后把这图保存在电脑里，不管是用美图秀秀还
- 电脑开机pe选项怎么关闭？pe能直接访问文件，在系统损坏时备份重要文件，是一个紧急和简化的系统，但是有用户发现开机时会有一个开机pe选项，会
- excel中多图标进度图如何制作呢？跟小编来看看吧1、选中要制作的数据表格，并插入一个二维簇状柱形图表；2、选中红色的柱子，单击鼠标右键，选
- 许多用户在重装Windows10系统的时候都会选择使用PE系统重装，而目前我们的电脑一般有uefi和legacy两种引导模式，对应的磁盘分区
- Excel中如何做到批量删除表格中的图片呢?对于不太常用Excel的朋友或许有点难度，下面给大家分享excel表格批量将图片删除的方法，希望
- 在工作中有些技巧，可以快速提高工作效率，解决大部分工作，今天给大家分享word怎么快速输入日期的技巧，希望可以帮助到你。1、快速输入日期和时
- word怎么设置才能尽可能的减少打印页数？要打印的word文档有很多页，即使双面打印也要浪费很多纸张，该怎办呢？下面分享一种设置方法可以减少
- 在Word文档中如果有需要我们可以在页面上方添加想要的页眉内容，比如公司名称，文档的标题等等。有时候我们会发现添加页眉内容之后会出现一条横线
- 无意中看到的一个技巧，非常有意思，稍作整理和修改，在这里和大家分享。如下图1所示，在工作表中绘制了一个笑脸图，根据单元格H3中的数值来变换嘴
- 在Excel中因为过多的版本，所以保存的时候保存到低版本的比较好，接下来是小编为大家带来的excel2013保存到2003版本的教程，供大家
- excel中的复制不同表的单元格格式是我们办公中经常都要用到的，有些朋友或许忘记了该要如何操作。下面是小编带来的关于excel复制不同表的单
- 。操作方法：在单元格中输入字母 R，然后把字体设置成 wingdings 2类型即可，关于字母与符号的对应表。补充：excel里字体类型的w
- 在Excel中提取区域内第N个最大值可以用LARGE函数，其语法为：LARGE(array, k)例如在区域A1:C9中包含1-27共27个
- 如果给你一份excel表格，让你将其转换成pdf，那么很简单只要打开excel文件然后另存为pdf格式就可以了。但我们工作中要处理的文件非常
- 怎么在word圆圈里打钩打叉？其实操作不难的，下面就给大家分享几个圆圈打钩打叉的方法。1、搜狗字符输入先使用搜狗输入法输入dui（√）和cu
