excel宏拆分文件

『壹』 如何用宏拆分excel工作表的行

Option Explicit

Sub 拆分行()
Dim i As Long, s As Integer
Dim Act_name As String
Act_name = ActiveSheet.Name '使用时先梁巧激活要拆分的工作表
For i = 3 To 83 Step 20
Sheets.Add after:=ActiveSheet
s = s + 1
ActiveSheet.Name = Act_name & "橡御键-" & s
Worksheets(Act_name).Range("1:2"拆棚).Copy ActiveSheet.Range("A1")
Worksheets(Act_name).Rows(i).Resize(20).Copy ActiveSheet.Range("A3")
Next i
End Sub

『贰』 求excel宏，将excel表格拆分为数个txt文件

Sub output()
Dim aStr As String
Dim fnm As String
Dim low, up As Long

For I = 1 To 22
fnm = Mid("key000", 1, 7 - Len(CStr(I))) & CStr(I) & ".txt"
Open ThisWorkbook.Path & "\" & fnm For Output As #1
low = CLng(InputBox("kaishi hang")) '输入你想从第几行开始输出的数，比如说第一尺森简行就春尺是1
up = CLng(InputBox("jieshuhang")) '输入你想这个文件从陵裤第几行结束的数，比如说第100行
'就是100
For J = low To up
aStr = Cells(J, 1)
Print #1, aStr
Next J
Close #1
Next I

End Sub

『叁』 用excel宏对sheet按指定列拆分成若干文件

操作方法如下：
将原表复制若干个表，每个表里删除不需要的列。

『肆』 求excel 宏，将xls文件拆分为多个，每个拆后的文件都有标题

Sub例2014123101()

DimHangAsLong,iAsLong

DimxShAsWorksheet,xWkAsWorkbook

DimnWkAsWorkbooki=0

Hang=100'100行拆分一个文件，可自行修改

SetxWk=ActiveWorkbook'需要拆分的文件为当前工作簿的当前工作表

SetxSh=ActiveSheetDoWhilexSh.Cells(i*Hang+2,1)<>""

SetnWk=Workbooks.Add

xSh.Rows(1).CopynWk.Worksheets(1).Range("A1")

xSh.Rows(i宏返*Hang+2&":"睁衡&i*Hang+101).CopynWk.Worksheets(1).Range("A2")

nWk.SaveAsFilename:=Split(xWk.FullName,蔽早饥".")(0)&"_"&i+1&".xlsx"'文件放在当前工作簿相同文件夹中，后面加上_i

nWk.Close

i=i+1

LoopMsgBox"拆分为"&i&"个文件！"

EndSub

『伍』 如何用宏命令将一个EXCEL文件(文件里有1万多行数据）每500行数据,分成一个EXCEL文件,以次类推。

Sub 拆分陪梁表()
Application.ScreenUpdating = False
Dim clm_d, hh As Integer
Dim mycell As Range
Dim nopes As New Collection
Dim rngop As Range
Set shtop = ActiveSheet
hh = Application.CountA(Range("1:110"))
clm_d = Application.InputBox(prompt:="请选择作为拆分的列" & Chr(13) _
& "注意:" & Chr(13) & "1、拆慎乱基分要第一行为标题行" & Chr(13) & "2、输处列号(如1,2),用宽谨键盘输入", Type:=1)
If clm_d = False Or clm_d > hh Then Exit Sub
On Error Resume Next
For Each mycell In shtop.Range(Cells(4, clm_d), (shtop.Cells(4, clm_d).End(xlDown)))
nopes.Add mycell.Value, CStr(mycell.Value)
Next mycell
On Error GoTo 0
Set rngop = Cells.CurrentRegion
For Each Item In nopes
rngop.AutoFilter Field:=clm_d, Criteria1:=Item
rngop.Copy
Sheets.Add after:=ActiveSheet
ActiveSheet.Name = Item
ActiveSheet.Paste
Next Item
rngop.AutoFilter
shtop.Activate
Application.ScreenUpdating = True
End Sub

『陆』 如何将1个excel文件中的100个工作表拆分成独立的excel文件

如何将1个excel文件中的100个工作表拆分成独立的excel文件

手动选择需要拆分的工作薄，比如选择的工作薄名为“需要拆分的工作薄甲”，把该工作薄里面的所有工作表都拆分成单独的工作薄，并以其工作表的名称做为新工作薄名称，存放在本工作薄所在目录下面的名称为“拆分-需要拆分的工作薄甲-得到的工作薄”的文件夹中。

1、首先要选择是否需要拆分后的工作表数值化。

2、其次选择需要拆分的工作薄。只能选择一个。

如何将多个独立的EXCEL文件（每个只有一个工作表）合并到一个文件中，并独立成一个工作表？（文件很多）

有一工具,保证能完成你的要求,EXCEL工具箱,张立良做的,版本应该灶举歼是7.2了吧,很有名的,你网上搜下,如果没找到问我要,

怎样通过“宏”把excel中的一个工作表中的行拆分成若干个独立的文件？

假定要将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中的多个工作表快速分成独立的

本篇经验贴子中，我将向大家分享如何利用函数将隐冲一个Excel工作簿中的多个工作表拆分成为单独的工作簿文件。步骤亦不负责，具体请参看内容。希望对你有所帮助！
1、打开需要编辑的Excel文档。如图所示，工作簿下方有很多工作表。现在需要将这些工作表单独拆分开成一个个工作簿。
2、右键任意一个工作表标签，在弹出的下拉列表中选择查看代码。即弹出代码窗口。如下图所示。
3、点击菜单插入-模块 在弹出的模块对话框中 输入以下代码：
4、单击运行-运行子过程|窗体 几秒过后 弹出提示窗答旁口“文件已被拆分完毕” 如下图所示
5、返回Excel工作簿文件所在路径 查看 如下图所示 原先工作簿中的工作表已经成为单独的工作簿了！不信 可以对照查看图中的修改日期

如何将100个excel文件合并成1个excel100个工作表，每个工作表名字对应原excel文件

将多个Excel文件合并为一个Excel文件
步骤：宏--创建--输入下面内容：
Sub CombineWorkbooks()
Dim FilesToOpen
Dim x As Integer
On Error GoTo ErrHandler
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="MicroSoft Excel文件(*.xls),*.xls", _
MultiSelect:=True, Title:="要合并的文件")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "没有选中文件"
GoTo ExitHandler
End If
x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
Sheets().Move after:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub

如何将1个工作簿里的N个工作表拆分成N个单独的Excel文档

在要移出的工作表名处点击右键,"移动或复制工作表",在"移至:"处下拉选择新的工作簿,"确定"即可,试试看,希望可以帮到你!

如何将一个工作簿中多个工作表拆分成独立的工作簿

用右键点击工作表标签，移动或复制工作表，工作簿-新工作簿，保存即可 。

可以按下面的步骤：(1) 在要复制的sheet标签上点鼠标右键；(2) 弹出的窗口中选"移动或复制工作表"；(3) 弹出的窗口中点下拉框，然后选"(新工作簿)"；(4) 如果是复制，勾选"建立副本"，如果是剪切，不勾选该选项， 确定(5) 保存，这样，一个新的excel文件就好了。 看看下面的演示过程吧。

比如SHEET2要拆分，右键点击SHEET2——移动或复制——工作簿下方选项，新工作簿——确定。

如何把excel表拆分成独立工作表

方法/步骤
1
如图所示，我们可以看到这个工作簿中有很多工作表，如何将这个工作表独立出来，成为分一个独立的文件呢？
2
这个时候大家可以网络一下并安装WPS 2009,记住WPS2009的版本不要太高。下载安装成功后记得要关闭自动升级功能。
打开WPS表格，在”工具“菜单中选择”插件平台“
在“推荐插件”点击“浏览全部插件”
在搜索框中输入“工作簿拆分”找到对应的插件后点击“立即安装”按钮。
这个时候会弹出一个小窗口点击“允许”按钮。
这个时候会提示安装成功。
我们在工具栏位置也会看到这个刚刚安装的工具。
这个时候我们选择要拆分的EXCEL工作簿。右击在弹出的菜单选择打开方式为WPS。
这个时候我们点击“工作簿拆分”工具。
这个时候我们选择拆分出来的工作表的保存位置，并选择后缀名为XLS，选择要独立出来的工作表。最后点击“拆分”按钮。
这个时候我们会发现工作簿中的所有以自己工作表名称为文件名称独立出来，是不是很快哦？

『柒』 用excel宏对sheet按指定列内容命名拆分成若干文件

Sub列数据转文件()
DimTworkAsWorkbook,TshtAsWorksheet,nameDic,EndRowAsLong
Application.ScreenUpdating=False
SetnameDic=CreateObject("Scripting.Dictionary")
EndRow=[A65536].End(xlUp).Row'获取A列末行,根据实际液改吵修改为某列
ForEachrngInRange("A2:A"&EndRow)
'遍历A列第二行开始的所有关键字,如非A列,请将A修改成其它列
nameDic(rng.Value)=""'将关键字添加至字典对象中（不会重复）
Next
IfActiveSheet.AutoFilterMode=FalseThenRange("A1:C1").AutoFilter
'将工作表A1:C1区域设置为自动筛选,按自己需要修改区域
ForEachtInnameDic.keys'遍历字典中所有的关键字
Ift<>""Then
ActiveSheet.Range("$A$1:$C$"&EndRow).AutoFilterField:=1,Criteria1:=t
歼仿'闹侍从自动筛选中筛选值为变量t的所有区域
SetTwork=Workbooks.Add:SetTsht=Twork.Sheets(1)
'新建工作簿twork对象,设置Tsht工作表对象
Range("A1").CurrentRegion.CopyTsht.Range("A1")
'将自动筛选出的所有结果复制到新的工作薄中
Twork.SaveAst:Twork.Close:SetTsht=Nothing:SetTwork=Nothing
另存新的工作簿,名字为变量t(既A列中的关键字),然后关闭工作簿,清空对象变量
EndIf
Next
Application.ScreenUpdating=True
EndSub