|
大家在实际工作中经常会碰到拆分Excel工作表的问题，难道每次都要一次次粘贴复制，在重新调整格式么？ 手把手系列教学，本期就来讲一讲如何高效拆分工作表，提高您的工作效率。 Excel拆分工作表1.例如，一个Excel工作簿，有三张工作表，分别是一、二、三表，目的想要分别拆分这三个表。 2.右击工作表名称，比如这里右击“一”这个工作表，弹出的窗口中单击“查看代码” 3.在弹出的对话框中，输入如下代码 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默认格式 ActiveWorkbook.Close Next MsgBox '文件已经被分拆完毕!' End Sub 4.单击“运行”中的“运行子过程/用户窗体” 5.之后会弹出文件已经分拆完毕提示 6.可以看到当前文件夹下面拆分玩的三个文件 |
|
|
