拆分excel成多个文件|如何将一个excel工作表的数据拆分成多个文件

拆分excel成多个文件|如何将一个excel工作表的数据拆分成多个文件的第1张示图

A. 分隔Excel为多个文件

? 自问自答?

B. 如何自动拆分多个excel文件

如果要拆分文件还是使用vba来实现吧遍历文件,然后根据要求进行拆分的http://club.excelhome.net/thread-1258425-1-1.html资料供参考

C. 如何将一个excel工作表的数据拆分成多个文件

操作步骤:原始数据表如下(名称为:数据源),需要根据B列人员姓名拆分成每个人一个工作表。点击【开发工具】-【Visual Basic】或者Alt+F11的快捷键进入VBE编辑界面。如下图所示插入一个新的模块。如下图,粘贴下列代码在模块中:Sub CFGZB() Dim myRange As Variant Dim myArray Dim titleRange As Range Dim title As String Dim columnNum As Integer myRange = Application.InputBox(prompt:="请选择标题行:", Type:=8) myArray = WorksheetFunction.Transpose(myRange) Set titleRange = Application.InputBox(prompt:="请选择拆分的表头,必须是第一行,且为一个单元格,如:“姓名”", Type:=8) title = titleRange.Value columnNum = titleRange.Column Application.ScreenUpdating = False Application.DisplayAlerts = False Dim i&, Myr&, Arr, num& Dim d, k For i = Sheets.Count To 1 Step -1 If Sheets(i).Name <> "数据源" Then Sheets(i).Delete End If Next i Set d = CreateObject("Scripting.Dictionary") Myr = Worksheets("数据源").UsedRange.Rows.Count Arr = Worksheets("数据源").Range(Cells(2, columnNum), Cells(Myr, columnNum)) For i = 1 To UBound(Arr) d(Arr(i, 1)) = "" Next k = d.keys For i = 0 To UBound(k) Set conn = CreateObject("adodb.connection") conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName Sql = "select * from [数据源$] where " & title & " = '" & k(i) & "'" Worksheets.Add after:=Sheets(Sheets.Count) With ActiveSheet .Name = k(i) For num = 1 To UBound(myArray) .Cells(1, num) = myArray(num, 1) Next num .Range("A2").CopyFromRecordset conn.Execute(Sql) End With Sheets(1).Select Sheets(1).Cells.Select Selection.Copy Worksheets(Sheets.Count).Activate ActiveSheet.Cells.Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Next i conn.Close Set conn = Nothing Application.DisplayAlerts = True Application.ScreenUpdating = TrueEnd Sub如下图所示,插入一个控件按钮,并指定宏到刚才插入的模块代码。点击插入的按钮控件,根据提示选择标题行和要拆分的列字段,本例选择“姓名”字段拆分,当然也可以选择C列的“名称”进行拆分,看实际需求。代码运行完毕后在工作簿后面会出现很多工作表,每个工作表都是单独一个人的数据。具体如下图所示:8注意:1)原始数据表要从第一行开始有数据,并且不能有合并单元格;2)打开工作簿时需要开启宏,否则将无法运行代码。

D. 如何将一个excel大文件分成多个小文件

如果真的需要分成几十个文件,可以试用一个工具“exceldatahelper(excel数据助手)”,用它的拆分功能,但拆分前,要添加一列作为拆分条件,该列即为即将保存的文件名。

E. 如何将一个excel拆分成多个独立的excel

1、打开需要编辑的Excel文档。如图所示,工作簿下方有很多工作表。现在需要将这些工作表单独拆分开成一个个工作簿。免费下载-安易数据恢复软件【点击进入】AneData全能文件恢复,超强数据恢复工具 硬盘移动硬盘SD卡U盘相机手机内存卡全支持查 看2、右键任意一个工作表标签,在弹出的下拉列表中选择查看代码。即弹出代码窗口。如下图所示。3、点击菜单插入-模块 在弹出的模块对话框中 输入以下代码:4、单击运行-运行子过程|窗体 几秒过后 弹出提示窗口“文件已被拆分完毕” 如下图所示5、返回Excel工作簿文件所在路径 查看 如下图所示 原先工作簿中的工作表已经成为单独的工作簿了!不信 可以对照查看图中的修改日期

F. 将excel根据工作表名称拆分成多个文件

1、如下图工作薄中有多个工作表。

G. 怎样将一个excel快速拆分成多个excel文件

右击工作表标签–移动或复制;选择移动到“新工作簿”,勾选“内建立副本”为复制,不容勾选为移动;以上方法,也要一个一个的移动或复制,没有一气呵成,全部分散拆开的方法,事实上也没有必要,能并到一个工作簿的尽量并到一个工作簿,便于查找和引用。

未经允许不得转载:山九号 » 拆分excel成多个文件|如何将一个excel工作表的数据拆分成多个文件

赞 (0)