美文网首页
excel拆分工作表

excel拆分工作表

作者: Quick_5413 | 来源:发表于2021-05-09 10:04 被阅读0次

    注意:保存文件的名称不要重复
    Sub 拆分工作表()
    For Each sht In ThisWorkbook.Worksheets
    sht.Copy
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & sht.Name & ".xlsx"
    Next

    End Sub

    相关文章

      网友评论

          本文标题:excel拆分工作表

          本文链接:https://www.haomeiwen.com/subject/igsmdltx.html