如何用vba代码将数据总表中的数据拆分到各月份分表中？

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

楼主 snowangle007	Q：如何将总表中不同月份的数据复制到相应的分表中？如：把月份为10年01月的所有数据都复制到“工作表1月”中，把月份为10年02月的所有数据都复制到“工作表2月”中，…… A： Sub test() Dim Ws As Worksheet, N&, I& With Sheet1 I = 4 For N = 4 To .Cells(.Rows.Count, 2).End(3).Row If .Cells(N, 18) <> .Cells(N + 1, 18) Then For Each Ws In Worksheets If Val(Ws.Name) = Val(Split(.Cells(N, 18), "年")(1)) Then If Ws.[a1] = "" Then Ws.Rows(1).Value = .Rows(3).Value Ws.[a2].Resize(N - I + 1, 18) = .Range(.Cells(I, 1), .Cells(N, 18)).Value Else Ws.Cells(Ws.Rows.Count, 1).End(3).Offset(1).Resize(N - I + 1, 18) = .Range(.Cells(I, 1), .Cells(N, 18)).Value End If Ws.Columns.AutoFit I = N + 1 Exit For End If Next Ws End If Next N End With End Sub 按月分开.rar
2楼じ☆潴の︵ゞ	支持我想知道如果要写到其他工作薄又如何实现呢？？
3楼 bluexuemei	学习,思路很好,如果是乱序的话,代码该如何写呢?
4楼猴子	您的按月分开压缩包无法下载啊、、、。我的是2003版请帮帮我如果方便发我邮箱
5楼美丽的猪	我想问一下，如果表格中是有不同的关键字段，需要切割的，怎么修改代码呢？

免责声明

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

评论列表