澳门免费网站永久视频_夜间正能量不良网站_欧美熟妇三级在线观看_av永久免费网站在线观看

注意：本操作以wps為例，其它的請(qǐng)自行測(cè)試

（1）下載【wps vba宏插件】

（2）點(diǎn)擊 【開(kāi)發(fā)工具】--》【vba編輯器】--》【插入】--》【模塊】

Private Sub 分拆工作表()

Dim sht As Worksheet

Dim MyBook As Workbook

Set MyBook = ActiveWorkbook

For Each sht In MyBook.Sheets

sht.Copy

ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '將工作簿另存為EXCEL默認(rèn)格式

ActiveWorkbook.Close

Next

MsgBox "文件已經(jīng)被分拆完畢!"

End Sub