Question

将excel根据工作表名称拆分成多个文件

Answer 1

1、如下图工作薄中有多个工作表。

2、找到任意的一个工作簿，鼠标右键点击找到查看代码。

3、查看之后会显示空白，没有代码。

4、在打开的窗口中输入代码：Private Sub 分拆工作表()Dim sht As WorksheetDim MyBook As WorkbookSet MyBook = ActiveWorkbookFor Each sht In MyBook.Sheetssht.CopyActive。

5、然后点击上方运行，运行子窗口/用户窗体。

6、程序执行，显示文件已经被拆分完毕。