返回目录:excel表格制作
1、打开表格,可以看到一个工作簿中有复多个工作表。
2、右击工作表制名称,点击查看代码(V)。
3、显示如下页面。
4、空白处,复制黏贴如下代码:
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
5、点击运行-运行子zhidao过程/用户窗体。
6、完成后,保存,显示如下,工作表已经拆分成单独的文件了。
1、在excel的加载项选择方方格子,选择汇总拆分功能。zhidao
2、在下拉菜单中选择拆分工作簿。
3、设置要拆分出内的工作表,以及需要储存的位置,然后点击确定。
4、运行完成后,会有提示,可以直接查看文件。容
5、在指定的文件夹内就可以看到拆分好的表格即完成拆分。
准备工具/材料:装有windows 10的电脑一台,Microsoft Office 家庭和学生版 2016 excel软件。
1、在excel加载项中zhidao选择方形网格,然后选择汇总和拆分功能。
2、从下拉菜单中选择拆分工作簿。
3、设置要拆分的版工作表和要保存的位置,然后单击“确定”。
4、操作完成后,会有提权示,可以直接查看文件。
5、可以在指定的文件夹中看到拆分表。
你的要求是什百么?
下面的程序度是日知前一朋友要的:将一个道一万行的sheet1分为版100个100行的表权。
Sub Macro1()
Dim i As Integer
For i = 1 To 100
Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = "分解" & i
Sheets("sheet1").Activate
ActiveSheet.Range(Cells((i - 1) * 100 + 1, 1), Cells(i * 100, 3)).Copy
Sheets("分解" & i).Activate
ActiveSheet.Paste
Next
End Sub