哪位大哥帮我看看excel怎么拆分每个文件都是1万个数据，每个文件第一行标题需要保留

沈默00

还是用数组快些，，，

沈默00

试一下.....

Askinofblue

对比一下表堆堆的处理过程和VBA的处理过程，看看哪个更方便。


表堆堆只需要用函数堆一堆就可以了。大部分函数的参数输入都有只能提示。


表堆堆只用了5秒，就完成了空行删除，及分表所有的动作。

下面是运行结果，希望能够帮到你。




表堆堆是用来做表的工具，制作报表，处理数据非常方便。下载地址：
https://sqlcel.com/download/

ykcbf1100

附件供参考。。。

拆分共用时1.4秒

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.6.6
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Dim tm: tm = Timer
   
5.     For Each sht In Sheets
   
6.         If sht.Name <> "总表" Then
   
7.             sht.Delete
   
8.         End If
   
9.     Next
   
10.     Set sh = ThisWorkbook.Sheets("总表")
    
11.     r = sh.Cells(Rows.Count, 1).End(3).Row
    
12.     zrr = sh.[a1:d1]
    
13.     For i = 2 To r Step 10000
    
14.         m = m + 1
    
15.         Set sht = Sheets.Add(After:=Sheets(Sheets.Count))
    
16.         With sht
    
17.             .Name = m
    
18.             .[a1:d1] = zrr
    
19.             sh.Cells(i, 1).Resize(10000, 4).Copy .[a2]
    
20.             .[a1:d10001].EntireColumn.AutoFit
    
21.         End With
    
22.     Next
    
23.     sh.Activate
    
24.     Application.ScreenUpdating = True
    
25.     MsgBox "共用时：" & Format(Timer - tm) & "秒！"
    
26. End Sub
    
27. 
    
28. 
    

复制代码

xlqsxl

用我这个工具，想怎么拆就拆怎么拆，定义好规则，下次有同样的数据，就可以无脑反复拆。
https://club.excelhome.net/threa ... tml?_dsign=e20fcbc2