我们都知道当数据过多的时候，我们制作Excel图表就会显得非常的复杂，图表上面的内容就会特别多。Excel老玩家就会想到用切片器制作动态可变化的图表来显示。今天我们就来学习一下一个比......
2023-01-08
如何快速的将excel表格数据拆分成多个文件？
Excel函数
2023-01-08
如何将一个EXCEL文件里面很多条数据拆分成多个文件，比如一个EXCEL表里面有90万行数据，需要按照每1万行拆分成一个文件，也就是需要将这表里面的90万行数据拆分到90个文件里面。这个如果手工拆分，那工作量实在太大了。于是，我就想把这个过程拿出来分享一下。实际上这也是大数据处理过程中会涉及到的一个问题——数据分框。
下面我们就来看看如何用VBA来实现拆分工作。
第一，在EXCEL里面插入一个模块，代码如下：
Sub copybat()
Dim n As Integer
Dim i As Integer
Dim k As Integer
Dim path As String
Dim filename As String
path = "c:拆分测试" '预定义的存储路径
filename = "分割文件" '预定义的文件名
Application.ScreenUpdating = False
i = 10 '分页数据条目数
k = 0 '循环执行次数，用于标识文件顺序
For n = 1 To Cells(1, 1).End(xlDown).Row Step i '开始循环到数据表底部，步长为分页条目数
Range("A1:D1,A" & n + 1 & ":D" & n + i).Select '每次均选择复制固定的表头和本次循环内的数据行
Selection.Copy
Workbooks.Add '新建工作簿
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False '特殊粘贴：只粘贴数值
k = k + 1
ActiveWorkbook.SaveAs filename:=path & filename & k & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False '将文件按命名规则另存至指定位置
ActiveWindow.Close '关闭已经生成的文件
Next n
MsgBox "分割完毕！", vbDefaultButton1, "提示"
Application.ScreenUpdating = true
End Sub
第二，在EXCEL工作表里面插入一个按钮，用于调用执行该以上模块。
第三，点击按钮执行代码。最后结果如下：
文件夹下生成的文件图例
分割的第1小部分
分割的第2小部分
以上，是一个大体的过程，实际上还可以在此基础上实现更加复杂的逻辑，这就又各位独立发挥了。
相关文章
- 详细阅读
-
excel 合并上百个工作簿数据，你花了一天别人只用了10秒详细阅读
在工作中，可能许多朋友都会碰到一个情况，那就是工作簿和工作表数据的合并操作。如何将上百个工作簿快速合并到一个表格中，许多朋友可能会觉得不可思议。今天我们就来教大家学习一......
2023-01-08
-
Excel文本函数，excel拆分和组合函数，掌握这些就够了！详细阅读
今天在这里为你分享5个Excel文本函数，这些拆分和组合函数，你一定会用上的。①LEFT函数公式：=LEFT(A2,1)在Excel表格中，需要想要拆分汉字，想从哪里开始就从那哪里开始。首先选定单元格......
2023-01-08
-
Excel函数一键变翻译，学会了这个方法，再也用苦思冥想了！详细阅读
相信大家也和我一样，才开始看到Excel可以当做翻译软件的时候会很好奇，这究竟是怎样做到的？其实，这个方法并不是很难，它是由一个函数公式而制作出来的，好了，首先我们一起来看看成......
2023-01-08
-
Excel函数公式大全，办公室人员必备！详细阅读
函数可以说是所用快捷方法中最为简单的一种方法，为什么很多人认为函数用起来很难了？主要是因为它拥有很长的函数公式，记不住。其实不管是学Excel函数，还是学习其他的一些快捷方法......
2023-01-08