工作簿拆分成单独文件vba
答：1、打开需要编辑的Excel文档。如图所示，工作簿下方有很多工作表。现在需要将这些工作表单独拆分开成一个个工作簿。请点击输入图片描述 右键任意一个工作表标签，在弹出的下拉列表中选择查看代码。即弹出代码窗口。如下图所示。请点击输入图片描述 请点击输入图片描述 点击菜单插入-模块 在弹出的模块对话框...
答：1、一个excel表格，如下图，一个工作簿中有很多工作表；2、将鼠标放置在需要拆分的工作表，右键鼠标，点击移动或复制工作表；3、将选定工作表移至位置，选择新工作簿；4、然后点击确定；5、这时候，原来的工作表就单独成为新的工作簿了；6、点击保存按钮（或使用快捷按键 Ctrl+S），找到保存位置后，...
答：1、打开「表格（Excel）」文档；2、点击「数据-拆分表格」；3、按需选择「把工作表按照内容拆分」或「把工作簿按照工作表拆分」使用即可。
答：可以利用VBA快速将一个工作簿中多个工作表拆分成为独立的工作簿。工具：Office2013 方法如下：1.当前工作簿中有多个工作表，将之保存为独立的工作簿：2.Alt+F11，在Thisworkbook中，输入代码如下：代码注释已给出。3.F5执行代码，回到工作簿所在文件夹，就看到已经将工作簿中的工作表作为独立的工作簿都...
答：- 1) = i Next i '拆分后续15个工作表 For i = 6 To Sheets.Count DoEvents sheetsArray(5) = i srcWB.Sheets(sheetsArray).Copy Set destWB = Workbooks(Workbooks.Count) destWB.SaveAs Filename:=strPath & "拆分" & (i - 5) & ".xlsx" Next i ...
答：把一下代码粘贴在模块中。ALT+F8 运行一下，就可以把当前工作簿的sheet3表导出。Sub 拆分()Application.ScreenUpdating = False Worksheets("Sheet3").Copy ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "sheet3.xls"ActiveWindow.Close Application.ScreenUpdating = True End Sub ...
答：Set wb = ActiveWorkbook '到新的工作簿 k = k + 1 '计数 '注：此行也可写成k=sh.name 如果这样写，则下行中汉字去掉。 wb.SaveAs ThisWorkbook.Path & "/第" & k & "个表.xls" '在本文件路径中保存工作簿 wb.Close '关闭创建的工作簿NextEnd Sub ...
答：1、在excel的加载项选择方方格子，选择汇总拆分功能。2、在下拉菜单中选择拆分工作簿。3、设置要拆分出的工作表，以及需要储存的位置，然后点击确定。4、运行完成后，会有提示，可以直接查看文件。5、在指定的文件夹内就可以看到拆分好的表格即完成拆分。
答：1、使用alt+f11 打开vbe编辑器，鼠标右键，插入模块 2、在生成的模块区域输入代码：3、代码：Sub test() Application.ScreenUpdating = False '关闭刷屏 For Each sht In Sheets '遍历每张工作表 sht.Copy '工作表copy后，生成新的文件 With ActiveWorkbook .SaveAs ThisWorkbook.Path &...
网友评论：
鬱黄19691691350：
vba拆分工作表 -
19306雷力
： 将所选择的工作薄中的所有工作表拆成单独的工作薄 http://www.xipick.com/forum.php?mod=viewthread&tid=440814&fromuid=1手动选择需要拆分的工作薄,比如选择的工作薄名为“需要拆分的工作薄甲”,把该工作薄里面的所有工作表都拆分成单独的工作薄,并以其工作表的名称做为新工作薄名称,存放在本工作薄所在目录下面的名称为“拆分-需要拆分的工作薄甲-得到的工作薄”的文件夹中.1、首先要选择是否需要拆分后的工作表数值化.2、其次选择需要拆分的工作薄.只能选择一个.
鬱黄19691691350：
如何快速将几个工作表分割成几个单独的工作薄? -
19306雷力
： 简单版的操作...按Alt+F11打开VBA编辑器,插入新的模块,复制下面的内容到里面,按F5运行即可.Sub SaveSeparately() Dim sht As Worksheet Application.ScreenUpdating = False ipath = ThisWorkbook.Path & ＂\＂ For Each sht In Sheetssht.CopyActiveWorkbook.SaveAs ipath & sht.Name & ＂.xls＂ActiveWorkbook.Close Next Application.ScreenUpdating = True End Sub
鬱黄19691691350：
excel 如何分解工作簿中的工作表分成单个的文件? -
19306雷力
： 使用方法: 1、打开你的工作簿 2、按Alt+F11进入VBA 3、在工程资源管理器窗口单击鼠标右键,选择插入->模块 4、把那个下面代码粘贴到模块中,运行一下就 Sub 另存所有工作表为工作簿() Dim sht As Worksheet Application....
鬱黄19691691350：
怎么拆分一个Excel工作簿中的多个工作表 -
19306雷力
： 这个要看具体拆分要求的 是要将各个分表拆分成独立的工作薄 建议使用vba实现吧 循环遍历,copy之后,另存即可
鬱黄19691691350：
如何用excel vba拆分有多个工作表的工作簿为多个规律命名的单工作表工作簿 -
19306雷力
： 既然不追问,则直接贴代码吧 Sub 工作簿拆分() Dim wb As Workbook, sh As Worksheet For Each sh In Worksheets '遍历所有工作表 sh.Copy '复制工作表 Set wb = ActiveWorkbook '到新的工作簿 k = k + 1 '计数 '注:此行也可写成k=sh.name 如果这样写,则下行中汉字去掉. wb.SaveAs ThisWorkbook.Path & ＂/第＂ & k & ＂个表.xls＂ '在本文件路径中保存工作簿 wb.Close '关闭创建的工作簿 Next End Sub
鬱黄19691691350：
使用VBA将工作簿的数据按照E列的方式拆分到不同工作表中 -
19306雷力
： Sub t() Application.ScreenUpdating = False On Error Resume Next With Worksheets(＂Sheet1＂) For i = 2 To .[E65536].End(xlUp).Row nam = .Cells(i, ＂E＂) If Worksheets(nam) Is Nothing Then Worksheets.Add(after:=Worksheets(Worksheets....
鬱黄19691691350：
EXCEL VBA 我有一个工作簿里面有多个SHEET , 我要把其中一个表另存为一个单独的工作簿 ,其它的表不用导出 -
19306雷力
： Sub 拆分()Application.ScreenUpdating = Falsesheets(＂Sheet3＂).Copy ActiveWorkbook.Save...
鬱黄19691691350：
关于vba的工作表拆分 -
19306雷力
： 所有工作表都不重名吗?Sub 文件拆分() Application.ScreenUpdating = False p = ＂C:\源文件夹\＂ '源文件存放的路径,根据实际修改 f = Dir(p & ＂*.xls＂) Do While f <> ＂＂ Workbooks.Open p & f For Each s In ActiveWorkbook.Sheets s....
鬱黄19691691350：
excel怎么把表格分成多个工作表 -
19306雷力
： 最简单的就是复制、粘贴,可以筛选或者排序后按类复制; 点鼠标就可以完成的自动分类的方法,是使用数据透视表、报表筛选、自动建立表; 另外,可以用VBA写代码完成自己需要的方法拆分.
鬱黄19691691350：
EXCEL工作簿包含N多个表,怎样能迅速把这些表分别分成独立的一?
19306雷力
： 编辑/移动或复制工作表/将选定工作表移至工作部:新工作部/勾上建立副本/确定
