国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

不想編程的童鞋，可以直接復制黏貼下面的代碼，直接在宏里執(zhí)行。

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