Question

怎样把一个excel表里的很多子表批量提取出来成为单独的表格

高手们，在一个excel表里有30多个子表格，就是sheet1，sheet2.......sheet30，但是，现在要这些表格单独的成为30个excel表，除了一个一个的建立副本，有没有批量的方法。有200多个表啊😱

Answer 1

用宏，代码如下
Sub 宏1()
'
' 宏1 宏
'

'
Dim x As Integer
Dim na As String
For x = 1 To Sheets.Count
Sheets(x).Select
na = Sheets(x).name
Sheets(x).Copy
ActiveWorkbook.SaveAs Filename:="D:\文件\1\" & na, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Next x
End Sub
我是以SHEET名作为新副本的文件名。
其中代码 D:\文件\1 自行改成你需要保存的文件夹，文件夹里面不要有重名的文件。
然后执行宏

Answer 2

用INDIRECT函数可以解决，具体看你的工作表名和表格格式。

Answer 3

可以用宏批量处理