Excel中多个工作表,如何快速拆分成单个文件

 时间:2024-11-01 15:42:42

1、点击【开发工具】选项卡中的【VisualBasic】按钮,或按Alt+F11键,调出VBA代码窗口;

Excel中多个工作表,如何快速拆分成单个文件

3、代码如下:Sub 拆分工作表() Dim i Dim sht As Worksheet Application.DisplayAlerts = False For Each sht In Sheets sht.Copy i = ThisWorkbook.Path & "\" & sht.Name & ".xlsx" ActiveWorkbook.SaveAs i ActiveWorkbook.Close Next Application.DisplayAlerts = True MsgBox "工作表生成文件完成!", vbOKOnly, "提示"End Sub不明白代码的小伙伴们,可以直接复制-粘贴就好了。

4、最后点击【运行】按钮(下图圈出位置),等待执行完成后,每个工作表就拆分成了一个文件保存在同一个文件夹下。

Excel中多个工作表,如何快速拆分成单个文件
  • 把sheet拆分独立excel
  • 怎么拆分一个Excel工作簿中的多个工作表
  • excel一张总表拆多张独立表
  • excel表格拆分多个单独表
  • Exce中的多个工作表如何快速拆分成独立表格?
  • 热门搜索
    深圳南澳旅游攻略 旅游合同范本 哥斯达黎加旅游 到日本旅游 温州旅游团 三亚旅游价格 星海花树旅游网 山南旅游 去厦门旅游要多少钱 旅游公司logo