excel如何合并同类型工作表
发布时间：2022-09-08 10:55:36
标签：合并,多个,工作,文件,Excel函数
一个文件夹下面有多个excel工作薄，每个工作薄文件下面有不固定张数的同类型关键标题的工作表。
现在的问题，如何将这些多个文件实现合并到一张工作表。
一般的做法，通过复制粘贴，实现合并工作表。要高效，可以使用VBA代码来实现合并工作表。
合并工作表操作步骤：
新建一个excel文件，按ALT+F11，打开VBE编辑器，复制下面的代码，然后运行，选择文件夹下面的所有excel文件，执行合并工作表。
SubUnionWorksheets()
Application.ScreenUpdating=False
DimljAsString
DimdirnameAsString
DimnmAsString
lj=ActiveWorkbook.Path
nm=ActiveWorkbook.Name
dirname=Dir(lj&"\*.xls*")
Cells.Clear
DoWhiledirname<>""
Ifdirname<>nmThen
Workbooks.OpenFilename:=lj&"\"&dirname
Workbooks(nm).Activate’复制新打开工作簿的第一个工作表的已用区域到当前工作表
Workbooks(dirname).Sheets(1).UsedRange.Copy_
Range("A65536").End(xlUp).Offset(1,0)
Workbooks(dirname).CloseFalse
EndIf
dirname=Dir
Loop
EndSub
说明：上面代码是合并xlsx文件，如果是合并excel2007的文件，需要将：dirname=Dir(lj&"\*.xls*")，xls改为.xlsx。
0
投稿猜你喜欢
- wps的云文档是一个非常方便大众的功能，那么，你知道在wps云空间中怎样删除文档吗?下面就让小编告诉大家wps文字如何删除云文档。wps文字
如果用户一直对使用Mac的时间感到好奇，看看您在哪里花时间，小编为大家推荐一款苹果Mac时间追踪工具Time Sink。Time Sink- 这篇文章主要介绍了Win7快捷键Ctrl+Alt+Del任务管理器打不开解决方法,本文讲解了几种修复方法,需要的朋友可以参考下Win7系统中
- Excel2007基础教程：改变列宽和行高经常需要改变列宽和行高。例如，可以将列变窄以在打印页中容纳更多信息。或者您可能想增加行的高度来创建
- 如何对 Windows 10「任务栏」透明显示进行开、关，甚至将其调整为 100％ 完全透明。如何让Windows 10任务栏透明显示Win
- 说到excel 判断函数，我们肯定会立刻想到excel if函数，没错，我们通常都是使用IF函数来做判断。如果下方excel表格里面判断A列
- ofd文件怎么转换成word？最近有小伙伴们在后台询问小编关于ofd的相关问题。odf格式一般都被应用在电子发票中，打开操作与查看并不方便，
- 蓝屏一直都是电脑常见故障之一，而会导致电脑蓝屏的原因有很多。最近有用户反馈tdx.sys文件也会导致电脑蓝屏，然而却不清楚详细的解决方法。对
- 最近有刚升级Win10的用户反映，原先电脑的分辨率设置看着很不习惯，想要自己调整分辨率和显示大小，但又不会，这让用户非常苦恼。那么，Win1
- Word不能打印指定页面该怎么办？在打印2016年教师职称评审表的时候，发现不能进行指定页面打印，没办法设置打印范围，下面我们就来看看这个问
- 我们在word中打印时可以单独打印指定的部分，比如说打印当前页、或者指定页码，这些操作都可以在打印对话框中进行设置，在word中指定打印部分
- 相信现在很多小伙伴都使用过腾讯会议，或上课或办公，疫情期间和疫情之后，使用腾讯会议也好像成为了一种新的办公模式。通过腾讯会议，就算大家在不同
- 浮动工具栏是Word2010中一项极具人性化的功能，当Word2010文档中的文字处于选中状态时，如果用户将鼠标指针移到被选中文字的右侧位置
- Win7系统下复制粘贴估计是小编每天都要接触到的操作，使用鼠标、键盘就可以很快的完成。不过今天小编遇到了一件奇怪的事情，对文件夹执行了复制操
- word目录怎么编辑？在很多情况下，目录不能自动，还是需要自己手动制作，那么应该怎么做呢？以下就是详细的操作讲解，一起来看看吧！1、设置二级
- Kite是小米所推出的一款专业测试软件，这款软件不仅可以帮助用户测试出各种帧率和功耗，准确性也是非常的高，并且还能够自动化测试，不过很多用户
- 很多玩家在玩魔兽争霸这款游戏中，发现魔兽争霸的游戏无法全屏显示，小小的显示在屏幕中。为了追求更好的游戏体验，大家还是很想让游戏争霸全屏显示的
- 我们在编写word文档时候，往往需要设置文字的底纹，经过设置的底纹文字信息，展示起来会很好看，有效果，那么下面就由小编给大家分享下word设
- HR在 月尾 计较员工薪酬 人为的 时分，少不了会用WPS表格 大概Excel 计较全勤奖 人为，小编 收拾整顿了用 缺勤天数 计较全勤奖的
- 在文档处理中，有时候一些表格需要有斜线切割，在WPS文字中要怎样给表格画斜线呢?新手不会，上网找怕麻烦，而且教程太乱没有统一的答案怎么办,哪
