一次将多个工作表分为多个工作簿

浅色深蓝

一般而言，当想把工作表分为工作簿的时候，我们会采用“移动或复制工作表”这个功能，将工作表变成一个新的工作簿。如果只是对一个工作簿里面的几个工作表，这样的做法还是挺快的。但如果这个工作簿里面有20个，30个甚至50个（呵呵，不知道一个工作簿最多能包括几个工作表，请指点下）的时候，这种方法是不是很傻？！速度也很慢

有没有一种一次性的操作方法，将工作簿里面的N个工作表（第一个工作表名称为1，第二个工作表名称为2，第N个工作表名称为N）分成N个工作簿，并且工作簿的名字为1、2。。、N

华农小人物

这个俺等菜鸟不会 不过看过类似的效果,貌似是VBA做的

ykcbf1100

借题练习，VBA，多表按表名拆分为多工作簿

ykcbf1100

1. Sub ykcbf()   '//2025.3.28   多表按表名拆分成多工作簿
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     For Each sh In Sheets
   
5.         sh.Copy
   
6.         ActiveWorkbook.SaveAs ThisWorkbook.Path & "" & sh.Name
   
7.         ActiveWorkbook.Close
   
8.     Next sh
   
9.     Application.ScreenUpdating = True
   
10.     Application.DisplayAlerts = True
    
11.     MsgBox "拆分完毕！", 64, "提醒"
    
12. End Sub
    

复制代码

mjm04

WPS的会员功能：
表格拆分 成多个文件簿 或 多个表格文件

或
易用宝 里也有类似的功能的，EXCEL就当个插件装上就行了呀