1.将一个十几几万行的表分解成小表

请用微软的excel 不要用wps

用excel打开改文件，按alt+f11，选择你要分解的主表

界面如图：

输入下面的代码

Sub cfb()
Dim r, c, i, WJhangshu, WJshu, bt As Long
r = Range("A" & Rows.Count).End(xlUp).Row
c = Cells(1, Columns.Count).End(xlToLeft).Column
bt = 1 'title
WJhangshu = 250 'num
WJshu = IIf(r - bt Mod 20000, Int((r - bt) / WJhangshu), Int((r - bt) / WJhangshu) + 1)
For i = 0 To WJshuWorkbooks.AddApplication.DisplayAlerts = FalseActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Format(i, String(Len(WJshu), 0)) & ".xlsx"Application.DisplayAlerts = TrueThisWorkbook.ActiveSheet.Range("A1").Resize(bt, c).Copy ActiveSheet.Range("A1")ThisWorkbook.ActiveSheet.Range("A" & bt + i * WJhangshu + 1).Resize(WJhangshu, c).Copy _ActiveSheet.Range("A" & bt + 1)ActiveWorkbook.Close True
Next
End Sub

这里是分解成250行的小表，各位可以根据自己的需求来改数字

1.1 然后保存，关闭界面，然后按alt+f8 执行即可以。

2.将多个工作表合成一个大的工作表

方法同上：

输入如下代码

Sub 合并当前工作簿下的所有工作表()
Dim ws As Worksheet
Dim sh As Worksheet, i%
On Error Resume Next '如遇错误继续运行
Application.ScreenUpdating = False '关闭屏幕刷新
Application.DisplayAlerts = False '禁用警告提示
Worksheets("汇总").Delete '删除原汇总表
Set ws = Worksheets.Add(before:=Sheets(1)) '新建工作表
ws.Name = "汇总" '新建工作表命名为汇总
For Each sh In Sheets: '遍历所有工作表
If sh.Name <> "汇总" Then '判断工作表是否为汇总表
i = ws.Range("A" & Rows.Count).End(xlUp).Row + 1 '获取汇总表中A列数据区域最后一行的行号+1
sh.UsedRange.Copy '复制分表中的数据
ws.Cells(i, 1).PasteSpecial Paste:=xlPasteAll '粘贴数据
ws.Cells(i, 1).PasteSpecial Paste:=xlPasteColumnWidths '粘贴列宽
End If
Next
Application.DisplayAlerts = True '恢复警告提示
Application.ScreenUpdating = True '开启屏幕刷新
MsgBox "工作表合并完毕"
End Sub

保存后，按alt+f8执行即可。

excel将大表分解成小表，将小表合成一个大表相关推荐

将excel中的多个工作表sheet合成一个工作表
上篇说到将excel中的一个工作表按照某列拆分成多个sheet工作表,那么如何把excel中的多个工作表sheet合成一个工作表呢?接下来就继续利用VBA工具来解决这个问题. 工作表合成前: 工作表合 ...
VBA将excel中的多个工作表sheet合成一个工作表，多个工作簿的多个工作表合并为一个工作簿
1 将excel中的多个工作表sheet合成一个工作表工作表合成前: 工作表合成后: **第一步:**在文件中新建一个工作表sheet,用来存放合成后的数据,如图所示: 第二步:点击"开发 ...
2021级C语言大作业 - 合成一个大西瓜
分享21级同学大一上学期用C语言(及少量C++)实现的合成一个大西瓜游戏.由于同学们刚学了三个月的编程,实现还不够完善,工程代码.图片音乐素材可以从百度网盘下载: 链接:https://pan.bai ...
EXCEL将网段地址分解成明细地址
如图,将图1中四个网段地址分解成图2中的明细地址图1 网段地址图2 明细地址一.将网段地址分解图3 分解网段地址网络地址公式为 B2=left(A2,len(A2)-3) 掩码位数公式为 ...
Excel 2010 如何将筛选后的数据复制粘贴到另一个工作表筛选后的表格里
如果你是指自动筛选后,把筛选数据复制/粘贴到另外一个工作表中,不妨试试试第一步选中筛选后的数据区域:第二步执行菜单命令"编辑/定位/定位条件/可见单元格",确定:第三步单击复制按 ...
mysql 多对多建表_mysql – 为什么在多对多关系中创建一个新表？
我正在创建一个数据库来存储有关乐器的信息.我在MySQL工作台中使用EER图来可视化每个表之间的关系. 当我创建多对多(n:m)关系时,会创建一个新表,其中包含新关系中涉及的表的主键.其他关系,如一对 ...
jpg转换成PDF 如何将多张图片合成一个PDF文件
一般扫描一些文档资料之后形成的图片会放在同一个文件夹中,但是有时为了便于查看和管理这些图片,就会将图片合成一个文档,这样查看内容的时候会比较方便,一般也都是将图片转换成PDF文件. 把图片转换成PDF ...
c语言线性表的逆转,数据结构（C语言）设有一个线性表E，将线性表逆置，要求逆线性表占? 爱问知识人...
输入数据,输出数据,及线性表的长度, 询问是否查找数据,若查找则由用户输入需查找的数据,显示此数据在线性表中的位置(第几个) */ #include #include #define NULL 0 # ...
R语言中怎么将一个字符串向量合成一个大字符串
> test <- c("a", "b", "c") > t3 <- paste(test, collapse = ...

excel将大表分解成小表，将小表合成一个大表

1.将一个十几几万行的表分解成小表

请用微软的excel 不要用wps

输入下面的代码

2.将多个工作表合成一个大的工作表

excel将大表分解成小表，将小表合成一个大表相关推荐

最新文章

热门文章