亚洲欧美精品沙发,日韩在线精品视频,亚洲Av每日更新在线观看,亚洲国产另类一区在线5

<pre id="hdphd"></pre>

  • <div id="hdphd"><small id="hdphd"></small></div>
      學(xué)習(xí)啦>學(xué)習(xí)電腦>工具軟件>辦公軟件學(xué)習(xí)>Excel教程>Excel表格>

      怎么拆分一個(gè)Excel工作簿中的多個(gè)工作表

      時(shí)間: 張偉670 分享

        手中有一個(gè)EH文件,工作簿中含幾百個(gè)工作表,每個(gè)工作表現(xiàn)要怎樣快速分解成單個(gè)EH文件?今天小編就教你如何利用函數(shù)將一個(gè)Excel工作簿中的多個(gè)工作表拆分成為單獨(dú)的工作簿文件。希望對(duì)你有幫助!

        拆分一個(gè)Excel工作簿中的多個(gè)工作表的方法步驟

        打開需要編輯的Excel文檔。如圖所示,工作簿下方有很多工作表?,F(xiàn)在需要將這些工作表單獨(dú)拆分開成一個(gè)個(gè)工作簿。


      拆分一個(gè)Excel工作簿中的多個(gè)工作表步驟圖1

        右鍵任意一個(gè)工作表標(biāo)簽,在彈出的下拉列表中選擇查看代碼。即彈出代碼窗口。如下圖所示。


      拆分一個(gè)Excel工作簿中的多個(gè)工作表步驟圖2

      拆分一個(gè)Excel工作簿中的多個(gè)工作表步驟圖3

        點(diǎn)擊菜單插入-模塊 在彈出的模塊對(duì)話框中 輸入以下代碼:

        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


      拆分一個(gè)Excel工作簿中的多個(gè)工作表步驟圖4

      拆分一個(gè)Excel工作簿中的多個(gè)工作表步驟圖5

        單擊運(yùn)行-運(yùn)行子過程|窗體 幾秒過后 彈出提示窗口“文件已被拆分完畢” 如下圖所示


      拆分一個(gè)Excel工作簿中的多個(gè)工作表步驟圖6

      拆分一個(gè)Excel工作簿中的多個(gè)工作表步驟圖7

        返回Excel工作簿文件所在路徑 查看 如下圖所示 原先工作簿中的工作表已經(jīng)成為單獨(dú)的工作簿了!


      拆分一個(gè)Excel工作簿中的多個(gè)工作表步驟圖8

        >>>下一頁更多精彩“excel合并多個(gè)工表的步驟”

      怎么拆分一個(gè)Excel工作簿中的多個(gè)工作表

      手中有一個(gè)EH文件,工作簿中含幾百個(gè)工作表,每個(gè)工作表現(xiàn)要怎樣快速分解成單個(gè)EH文件?今天小編就教你如何利用函數(shù)將一個(gè)Excel工作簿中的多個(gè)工作表拆分成為單獨(dú)的工作簿文件。希望對(duì)你有幫助! 拆分一個(gè)Excel工作簿中的多個(gè)工作表的方
      推薦度:
      點(diǎn)擊下載文檔文檔為doc格式
      384946