Excel分割表页签
发布网友
共2个回答
热心网友
在标签上右键--移动和复制工作表--工作簿--选新工作簿 就可以了
热心网友
Sub 表格_保存()
Application.DisplayAlerts = 0
Set actb = ActiveWorkbook
For Each sh In Sheets
Set newb = Workbooks.Add
sh.Copy Before:=newb.Sheets(1)
newb.Sheets(4).Delete
newb.Sheets(3).Delete
newb.Sheets(2).Delete
newb.SaveAs Filename:=actb.path & "\" & sh.Name, FileFormat:=actb.FileFormat
newb.Close
Next
Application.DisplayAlerts = 1
End Sub
