Excel TOP 技巧

不想编程的童鞋，可以直接复制黏贴下面的代码，直接在宏里执行。

Sub autoSaveSheetsAsFileList()

filePath = ThisWorkbook.Path

For Each sheetItem In ThisWorkbook.Sheets

sheetItem.Copy

ActiveSheet.Cells.Copy

ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues

ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats

ActiveWorkbook.SaveAs _

Filename:=filePath & '\' & sheetItem.Name & '.xlsx'

ActiveWorkbook.Close savechanges:=False

Next sheetItem

End Sub