一個Excel工作簿中的多個工作表想拆分成獨立表格,首先打開表格找到並選中表格右下角的表一,然後,點擊右鍵選擇“移動或複製工作表”,然後,打開工作薄點擊新工作薄,然後,點擊確定,然後點擊保存,打開保存界面後再點擊“保存”(喜歡保存到哪裏
有許多人不知道如何把excel工作簿中的多個工作表拆分單獨保存,為了讓大家節省時間和精力,接下來就告訴大家如何把excel工作簿中的多個工作表拆分單獨保存。
材料/工具
電腦wps表格
拆分一個Excel工作簿中的多個工作表1、打開需要編輯的Excel文檔,工作簿下方有很多工作表。現在需要將這些工作表單獨拆分開成一個個工作簿。 2、右鍵任意一個工作表標籤,在彈出的下拉列表中選擇“查看代碼”。即彈出代碼窗口。3、點擊菜單“插入”-
方法
第一步,找到並選中表格右下角的表一。如圖
使用VBA可能比較快! sub Sheet2workbook() Dim Sht As Worksheet, Wp As String, Wkb As Workbook Set Wkb = ActiveWorkbook Wp = Wkb.Path For Each Sht In Wkb.Worksheets Sht.Select Sht.Copy ActiveWorkbook.SaveAs Filename:=Wp & "" & S
然後,點擊右鍵選擇“移動或複製工作表”。如圖
拆分工作表為工作薄需要用宏來處理 Excel 內 按 Alt+F11 視圖--代碼窗口,把如下複製進去 按F5運行即可請這個Excel 放到一個文件夾內操作, 默認生成到當前文件夾 Sub fencun()Application.ScreenUpdating = Falseb = Sheets.CountFor i = 1 To b
然後,打開工作薄點擊新工作薄。如圖
可以按下面的步驟: (1) 在要複製的sheet標籤上點鼠標右鍵; (2) 彈出的窗口中選"移動或複製工作表"; (3) 彈出的窗口中點下拉框,然後選"(新工作簿)"; (4) 如果是複製,勾選"建立副本",如果是剪切,不勾選該選項, 確定 (5) 保存,這樣,一個
然後,點擊確定。如圖
本篇經驗貼子中,我將向大家分享如何利用函數將一個Excel工作簿中的多個工作表拆分成為單獨的工作簿文件。步驟亦不負責,具體請參看內容。希望對你有所幫助! 1、打開需要編輯的Excel文檔。如圖所示,工作簿下方有很多工作表。現在需要將這些工
然後點擊保存。如圖
1、在excel的加載項選擇方方格子,選擇彙總拆分功能, 2、在下拉菜單中選擇拆分工作簿; 3、設置要拆分出的工作表,以及需要儲存的位置,然後點擊確定; 4、運行完成後,會有提示,可以直接查看文件, 5、在指定的文件夾內就可以看到拆分好的表
打開保存界面後再點擊“保存”(大家喜歡保存到哪裏請根據自己的愛好) 如圖
要用VBA處理:設你的總表的名稱 為“總表”,請按Alt+F11,打開VBA編輯器,插入一個模塊,把下面的代碼貼進去,按F5執行 Sub 拆分()LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column '看總表有多少列For i = LastColumn To 4 Step -2 '
這樣表一就保存到大家的計算機上了
可以利用VBA快速將一個工作簿中多個工作表拆分成為獨立的工作簿。 工具:Office2013 方法如下: 1.當前工作簿中有多個工作表,將之保存為獨立的工作簿: 2.Alt+F11,在Thisworkbook中,輸入代碼如下: 代碼註釋已給出。 3.F5執行代碼,回到工作
保存表二跟保存表一是一樣的操作方法。鼠標右擊表二。如圖
可以利用VBA快速將一個工作簿中多個工作表拆分成為獨立的工作簿。 工具:Office2013 方法如下: 1.當前工作簿中有多個工作表,將之保存為獨立的工作簿: 2.Alt+F11,在Thisworkbook中,輸入代碼如下: 代碼註釋已給出。 3.F5執行代碼,回到工作
然後,點擊“移動或複製工作表”。如圖
在工作表的名字上點鼠標右鍵選擇【移動或複製.】,選擇(新建工作簿),反覆循環即全部變為獨立的工作簿文件。
然後工作薄裏選擇“新工作薄”。如圖
假定要將sheet1表第二行起每一行創建為一個新工作簿(獨立文件),工作簿以B列單元格值命名。 1、ALT+F11 2、插入模塊 3、粘貼以下代碼到模塊中 Sub 拆分() Dim i As Long Dim na As String Application.ScreenUpdating = False For i = 2 To Sh
保存最後一個工作薄的時候要選擇“建立副本”不然保存不了。如圖
這個只能用VBA解決,還是比較麻煩,估計沒人免費幫你的。既然每月都要做這工作,建議你到淘寶上搜索定製EXCEL表格,花幾十元做一個小程序,每月這個工作就一鍵完成了
然後點擊“保存”如圖
一、工具/原料 microsoft office excel 2007 二、方法/步驟 1、右鍵任意一個工作表標籤,在彈出的下拉列表中選擇查看代碼。即彈出代碼窗口。 2、點擊菜單插入-模塊 在彈出的模塊對話框中 輸入以下代碼: Private Sub 分拆工作表() Dim sht As Wo
然後,點擊左上角“保存”保存工作薄。如圖
操作步驟: 原始數據表如下(名稱為:數據源),需要根據B列人員姓名拆分成每個人一個工作表。 點擊【開發工具】-【Visual Basic】或者Alt+F11的快捷鍵進入VBE編輯界面。 如下圖所示插入一個新的模塊。 如下圖,粘貼下列代碼在模塊中: Sub CFGZ
打開保存界面後點擊“保存”就可以了。如圖
工具:microsoft office excel 2007 步驟: 1、打開microsoft office excel 2007,右鍵任意一個工作表標籤,在彈出的下拉列表中選擇查看代碼。即彈出代碼窗口。 2、點擊菜單插入-模塊,在彈出的模塊對話框中,輸入以下代碼: Private Sub 分拆工
最後,兩個工作表都在計算機裏了,觀看着更方便了
將每一個工作表保存為一個工作保 打開工作表》Alt+F11》粘貼下列代碼》運行代碼。 Sub SaveSheet() Application.ScreenUpdating = False For Each ws In ThisWorkbook.Worksheets ws.Copy ActiveWorkbook.SaveAs Filename:= _ ThisWorkbook.Path
擴展閲讀,以下內容您可能還感興趣。
一個Excel工作簿中的多個工作表怎麼拆分成獨立表格
可以百利用VBA快速將一個工作簿中多個工作表拆分成為獨立的工作簿。
工具:度Office2013
方法如下知:
1.當前工作簿中有多個工作表,將之保存為獨立的工作簿道:
2.Alt+F11,在Thisworkbook中,輸入代碼如下:
代碼註釋已給出。
3.F5執行代版碼,回到工作簿所在文件夾,就看到已經將工作簿中的工作表作為獨立的工作簿都保存到了文件夾中。
注意事項權:輸入代碼的工作簿首先得保存。
一個Excel工作簿中的多個工作表怎麼拆分成獨立表格
在工作表的名字上點鼠標右鍵選擇【移動或複製....】,選擇(新建工作簿),反覆循環即全部變為獨立的工作簿文件。
怎樣通過“宏”把excel中的一個工作表中的行拆分成若干個獨立的文件?
假定e799bee5baa6e997aee7ad94e78988e69d8331333330343239要將sheet1表第二行起每一行創建為一個新工作簿(獨立文件),工作簿以B列單元格值命名。
1、ALT+F11
2、插入模塊
3、粘貼以下代碼到模塊中
Sub 拆分()
Dim i As Long
Dim na As String
Application.ScreenUpdating = False
For i = 2 To Sheets("sheet1").Range("b65536").End(xlUp).Row
na = Sheets("sheet1").Cells(i, 2).Value
Sheets("sheet1").Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & na & ".xls"
Rows(i).Copy Rows("2")
Rows("3:" & Range("b65536").End(xlUp).Row).Delete
ActiveWindow.Close savechanges:=True
Next
Application.ScreenUpdating = True
End Sub
4、運行宏“拆分”
如何將EXCEL工作薄按單位拆分為多個工作薄
這個只能用VBA解決,還是比較麻煩,估計沒人免費幫你的。既然每月都要做這工作,建議你到淘寶上搜索定製EXCEL表格,花幾十元做一個小程序,每月這個工作就一鍵完成了
如何拆分一個Excel工作簿中的多個工作表
一、工具/原料
microsoft office excel 2007
二、方法/步驟
1、右鍵任意一個工作表標籤,在彈出的下拉列表中選擇查看代碼。即彈出代碼窗口。
2、點擊菜單插復入-模塊 在彈出的模塊對話框中 輸入以下代碼:
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
3、單擊運行-運行子過程-窗體,幾秒過後,彈出提示窗口“文件已被拆分完畢”。
4、返回Excel工作簿文件所zhidao在路徑,查看,可以發現原先工作簿中的工作表已經成為單獨的工作簿了。