国产成人v爽在线免播放观看,日韩欧美色,久久99国产精品久久99软件,亚洲综合色网站,国产欧美日韩中文久久,色99在线,亚洲伦理一区二区

學(xué)習(xí)啦 > 學(xué)習(xí)電腦 > 工具軟件 > 辦公軟件學(xué)習(xí) > Excel教程 > Excel基礎(chǔ) > 怎么拆分Excel工作簿中的多個(gè)工作表

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

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

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

  拆分單元格很容易,但是拆分excel工作薄就不容易了,下面小編向大家分享如何利用函數(shù)將一個(gè)Excel工作簿中的多個(gè)工作表拆分成為單獨(dú)的工作簿文件。希望對(duì)你有幫助!

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

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


拆分Excel工作簿中的多個(gè)工作表的方法圖1

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


拆分Excel工作簿中的多個(gè)工作表的方法圖2

拆分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


拆分Excel工作簿中的多個(gè)工作表的方法圖4

拆分Excel工作簿中的多個(gè)工作表的方法圖5

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


拆分Excel工作簿中的多個(gè)工作表的方法圖6

拆分Excel工作簿中的多個(gè)工作表的方法圖6

猜你喜歡:

1.excel一個(gè)表格分成多表的方法

2.Excel表格內(nèi)容怎么分成多個(gè)工作表

3.Excel怎樣引用多個(gè)工作表數(shù)據(jù)

4.Excel中表格多個(gè)工作表合并一個(gè)工作表的操作方法

5.excel怎么給多個(gè)工作表同時(shí)錄入相同的數(shù)據(jù)

6.excel怎么合并多個(gè)工作表

370032