不想编程的童鞋,可以直接复制黏贴下面的代码,直接在宏里执行。 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 |
|