根据工作表名称,将一个excel拆分为多个excel的方法, 首先我们打开这个excel,然后点击开发工具,紧接着点击visual basic ,进入visual basic的界面后点击插入选择模块,紧接着将代码直接粘贴进去,直接将这个代码关闭掉 然后我们点击宏,选择拆分工作薄然后选择执行即可搞定 Sub 拆分工作薄() Dim xpath As String xpath = ActiveWorkbook.Path Dim sht As Worksheet For Each sht In ActiveWorkbook.Sheets sht.Copy ActiveWorkbook.SaveAs Filename:=xpath & "\" & sht.Name & ".xlsx" Next End Sub |
|
来自: 我的人生宝库 > 《电脑(软件应用)》