怎样将excel表里面的多个表格调出变成单独一个表格？

除了复制粘贴的方式，因为实在是太多表格了，所以这样太麻烦了，求高手指教简单方便的方法=_=

举报该文章

相关建议 2015-07-23

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

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/ppmqfmqs2.html

其他看法

第1个回答 2011-02-24

将一个EXCEL中的多个sheet表拆分为多个EXCEL表:
按 alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就OK了。拆分到当前表格文件夹内。
Sub SaveToWbk() ' Written by WXHNR
Dim sht As Worksheet
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & ActiveSheet.Name
ActiveWorkbook.Close
Next
End Sub追问

按运行之后它弹出对话框：说什么编译错误，发现二义性名称：SaveToWbk
就这个。。嗯嗯，，怎么解决

追答

我测试了，没有问题，你再试试。你把表格发给我，我在你的表格基础上运行看。我测试的表格中只有4个分表。拆分也正常，没有问题。
你再确认一下代码：
Sub SaveToWbk()
Dim sht As Worksheet
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & ActiveSheet.Name
ActiveWorkbook.Close
Next
End Sub

追问

行了。。感谢。。

本回答被提问者采纳

第2个回答 2011-02-24

《志诚决算》软件有拆分工作表的功能

第3个回答 2011-02-24

见图片，一看就会了。

参考资料：百度一下

一个Excel工作簿里面多个工作表怎么拆分成独立表格?
1、打开「表格（Excel）」文档；2、点击「数据-拆分表格」；3、按需选择「把工作表按照内容拆分」或「把工作簿按照工作表拆分」使用即可。

一个Excel工作簿中的多个工作表怎么拆分成独立表格
1. **复制粘贴**：逐个选中工作表，将其内容复制并粘贴到新的Excel工作簿中，然后保存为独立文件。这种方法适用于工作表数量较少的情况。2. **使用数据透视表**：如果拆分依据是数据中的某个字段（如省份、部门等），可以先创建一个数据透视表，然后通过“显示报表筛选页”功能，根据该字段拆分成多个...

怎么在打开多个Excel表格时单独显示一个呢?
1、首先在打开多个Excel工作表的时候，只是显示在一个窗口中。2、这时可以点击Excel2007左上角的“文件”菜单。3、在打开的下拉菜单中点击“Excel选项”按钮。4、这时就可以打开Excel选项窗口了，点击左侧边栏的“高级”菜单项。5、在右侧窗口的“显示”一栏中找到“在任务栏中显示所有窗口”一项，并勾选...

如何将EXCEL多个工作表中的表格独立提出?
最简单直接的方式是利用Excel内置的“移动或复制工作表”功能。首先，打开包含多个工作表的Excel文件，然后右键点击需要提取的工作表标签，选择“移动或复制”。在弹出的对话框中，选择“新工作簿”作为移动或复制到的位置，这样就可以将该工作表提取到一个新的Excel文件中。

如何将Excel中的多个工作表,拆分成独立的表格?
将Excel中的多个工作表拆分成独立表格，可以通过使用VBA（Visual Basic for Applications）编写脚本实现自动化操作，减少重复工作，提高效率。具体操作如下：首先，新建一个文件夹，将包含多个工作表的Excel文件放置在其中，打开这个文件。接着，点击【文件】-【选项】，在弹出的“Excel选项”对话框中，找到并...

一个Excel工作簿中的多个工作表怎么拆分成独立表格?
要将一个Excel工作簿中的多个工作表拆分成独立表格，操作相当简单。首先，打开需要拆分的工作簿，找到你想要分离的工作表。接着，右键点击该工作表标签，选择“移动或复制工作表”选项。在随后弹出的窗口中，你会发现一个下拉菜单，从中选择“新工作簿”。如果你想创建工作表的副本，确保勾选“建立副本”...

excel文档里多个表格怎么单独出来excel文档里多个表格怎么单独出来一...
第1步：打开含有多张工作表内容的Excel工作簿。第2步：鼠标左键选中任意一个工作表，并点击右键，触发弹窗，找到其中的“拆分表格”。第3步：依次点击“拆分表格”——“按照工作表拆分”。第4步：在“拆分工作簿”弹窗中，会自动显示当前工作簿中的所有工作表信息，勾选想要拆分的单元表，确定好文件...

一个Excel工作簿中的多个工作表怎么拆分成独立表格
首先，选择你想独立保存的第一个工作表，如表一，找到右下角并单击，接着右键点击并选择“移动或复制工作表”。打开新的工作簿，将选中的工作表粘贴到新工作簿中，然后确认操作。接下来，保存这个新工作簿，点击“保存”按钮，根据个人喜好选择保存位置。同样的步骤适用于表二。右键点击表二，选择“移动...

一个Excel工作簿中的多个工作表怎么拆分成独立表格
一个Excel工作簿中的多个工作表想拆分成独立表格，首先打开表格找到并选中表格右下角的表一，然后，点击右键选择“移动或复制工作表”，然后，打开工作薄点击新工作薄，然后，点击确定，然后点击保存，打开保存界面后再点击“保存”（喜欢保存到哪里请根据自己的需求），这样表一就保存下来了。保存表二跟...

如何将excel里的多个表格,保存成一个表格一个的单独文件?
1、首先打开需要编辑的Excel表格，进入到编辑页面中。2、然后选中需要保存成为一个表格的数据，按“Ctrl+C”进行复制。3、然后点击打开文件中的“新建”，新建一个Excel表格。4、然后在弹出来的窗口中按“Ctrl+V”将数据粘贴进去。5、然后点击文件中的“保存”，这样就可以保存成一个表格一个的单独文件...

相似回答

大家正在搜