Excel多Sheet拆分与合并

文章目录

Excel多Sheet拆分与合并
一、Excel多个Sheet拆分
二、多个Excel合并成一个Excel（每个Sheet则是一个原Excel）

一、Excel多个Sheet拆分

1.打开Excel，鼠标右击sheet栏，【查看代码】
2.将如下代码复制进去，并执行

Private Sub 分拆工作表()Dim sht As WorksheetDim MyBook As WorkbookSet MyBook = ActiveWorkbookFor Each sht In MyBook.Sheetssht.CopyActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlWorkbookDefault  '将工作簿另存为EXCEL默认格式ActiveWorkbook.CloseNextMsgBox "文件已经被分拆完毕!"End Sub

3.选择存放目录等

二、多个Excel合并成一个Excel（每个Sheet则是一个原Excel）

1.打开Excel，鼠标右击sheet栏，【查看代码】
2.将如下代码复制进去，并执行


Sub Workbook_merge()
Rem This script is used to collect worksheets of serval workbooks into one workbook!Dim FileOpen
Dim X As Integer
Dim Wb As Workbook
Dim sh As Worksheet
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbook(*.xlsx),*.xlsx", MultiSelect:=True, Title:="Please select the Workbooks you want to merge:")
X = 1
Application.DisplayAlerts = False
While X <= UBound(FileOpen)Set Wb = GetObject(FileOpen(X))For Each sh In Wb.SheetsIf Application.WorksheetFunction.CountA(sh.Cells) <> 0 Thensh.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)End IfNextWb.Close SaveChanges:=FalseX = X + 1
Wend
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.ScreenUpdating = True
End Sub

3.一次可选择多个Excel

Excel多Sheet拆分与合并 - 亲测可用相关推荐

Excel多sheet拆分
Excel多sheet拆分文章目录 Excel多sheet拆分前言实现方法前言由于一个Excel的sheet页过多,不方便查找对应资料,于是领导让我把sheet页拆分成单个Excel方便查找 ...
Excel2010多开独立窗口【亲测可用】
Excel2010多开独立窗口[亲测可用] 前言解决方案参考前言电脑上装的Excel居然没法独立开多个窗口,而Word和PPT却可以,这也太不合理了吧.baidu,google搜了一波,终于找 ...
每日起床前做这五个动作，可保障你终身不感冒——奥运福娃设计师韩美林老师亲测可用
1.醒来后第一件事不是起身,先在床上躺着伸懒腰→四肢拉直了→让经脉拉直了(来回拉三四次) 2.然后做下图的姿势,侧卧→抱膝→弯曲→膝盖顶住胸部→吐气,把所有体内的浊气吐出 3.然后坐起来,双手在脸上的 ...
java正则括号_java正则表达式获取大括号小括号内容并判断数字和小数亲测可用...
获取大括号小括号内容项目开发用到了,暂做个简单记录 private static String regex = "\\{([^}]*)\\}";//匹配大括号 private s ...
Android FFmpeg移植总攻略——获取视频帧数（亲测可用）
第一次尝试使用Android 移植FFmpeg算法,一路坎坷,最终做如下总结,适用于Android手机.Android开发板.亲测可用. 一.下载组件在Android Studio中下载所需组件:C ...
Android 手势返回上一界面亲测可用
在现如今,Android使用越来越便捷,也对Android开发提出更高要求,便捷体现在开发的每一处. 这里介绍Android使用手势返回上一界面.亲测可用! 一.思考: 1. 监听可手势返回上一界面的 ...
VC6.0连接数据库，并把大量数据从ACCess转移到SQL sever2008 的问题（亲测可用）
如果以下有不懂,可以加我微信交流xpj13098878561 VC6.0连接数据库,并把大量数据从ACCess转移到SQL sever2008 的问题(亲测可用) VC6.0下载连接https://p ...
linux samba默认端口,Linux 指定端口挂载samba 亲测可用！
我在云主机开启了445,,46端口通过tcptraceroute可以看到,运营商屏蔽了访问445 samba 端口 chunli@ubuntu ~$ tcptraceroute 47.88.159. ...
springboot心跳检测_springboot websocket 实时刷新添加心跳机制（亲测可用版）
思路在我之前的一篇文章当中写到了websocket的实时刷新,但是有个问题没有解决,就是长时间没有数据的时候,这个连接就会自动断开,然后再次进行连接的话,需要再次进行连接.如果加入心跳机制的话,10 ...

Excel多Sheet拆分与合并 - 亲测可用

Excel多Sheet拆分与合并

文章目录

一、Excel多个Sheet拆分

二、多个Excel合并成一个Excel（每个Sheet则是一个原Excel）

Excel多Sheet拆分与合并 - 亲测可用相关推荐

最新文章

热门文章