如何将带引用的数据薄拆分成几个带固定格式表头的文件？

作者：绿色风分类：时间：2022-08-18 浏览：77

楼主
研究研究

Q:如何将带引用的数据薄拆分成几个带固定格式表头的文件？
有一个汇总的数据表，包含了全市各镇区的数据，以合并单元格来分了镇区，如何根据镇区将内容拆分成多个EXCEL文件，而且该文件带有固定的表头，只是各文件的内容对应自己的镇区罢了。

怎么办？

A: 要检测合并单元格有多少个单元格组成，用MergeCells，然后想法成为单独的文件
效果如下：

详细代码如下：

Application.DisplayAlerts = False
Set msh = Sheets.Add(before:=Sheets(2), Count:=1)
msh.Name = "临时"
Sheets("重点企业").Range("A1:I3").Copy
Sheets("临时").Range("A1").PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Sheets("重点企业").Select
For x = 4 To Range("A65536").End(xlUp).Row
Set cel = Range("A" & x)
If cel.MergeCells Then
b = cel.MergeArea.Rows.Count + x - 1
c = cel.MergeArea.Rows.Count + 3
Sheets("临时").Range("A4:I" & c) = Sheets("重点企业").Range("A" & x & ":I" & b).Value
End If
i = Range("A" & x).Value
Sheets("临时").Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "/分拆/" & i & ".xls"
ActiveWorkbook.Close
Sheets("临时").Range("A4:I60000").Delete Shift:=xlUp
x = b
Next x
Sheets("临时").Delete
Application.DisplayAlerts = True
MsgBox "已完成"

总表分拆各镇区分表（带表头及合并单元格引用）(1).rar

2楼
lnt1231

辛苦了,谢谢.

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表