Excel技巧之表变簿

工作中经常需要把每个工作表保存为工作簿，并用表名命名工作簿。
手工操作是：新建表-复制-粘贴-另存为，往复循环，费时费力，
用vba的话几行代码就好了，步骤如下：

1. 打开vba，首次使用需要显示开发工具，excel选项-自定义功能区-勾选“开发工具”

   
   设置
   设置后

2. 新建模块：Visual Basic-右键任意表格-插入-模块

   
   新建模块
3. 在d盘下新建data文件夹，复制代码到对话框中，运行

Sub fs()
Dim sht As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sht In Worksheets
    sht.Copy
    ActiveWorkbook.SaveAs Filename:="d:\data\" & sht.Name & ".xlsx"
    ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

4. 到d:\data下找成果去吧，路径可以根据需要自行改写。