如何用VBA按照特定条件对工作表进行分表？

作者：绿色风分类：时间：2022-08-17 浏览：134

楼主 herelazy	Q：如何用VBA按照特定条件对工作表进行分表？如附件所示，如B列值为0的分成一个表，值为1的分为一个表,以此类推。 A： Sub test() Dim WS As Worksheet, Arr, ArrT, N&, I&, X&, Y&, T% Application.ScreenUpdating = False With [a1].CurrentRegion .Sort key1:=[b1] Arr = .Value End With I = LBound(Arr) For N = LBound(Arr) + 1 To UBound(Arr) If Arr(N, 2) <> Arr(N - 1, 2) Or N = UBound(Arr) Then T = IIf(N = UBound(Arr), 1, 0) ReDim ArrT(I To N - 1 + T, 1 To UBound(Arr, 2)) For Y = 1 To UBound(Arr, 2) For X = I To N - 1 + T ArrT(X, Y) = Arr(I, Y) Next X Next Y With Worksheets.Add .Name = ArrT(I, 2) .[a1].Resize(N - I, UBound(ArrT, 2)) = ArrT End With I = N End If Next N Application.ScreenUpdating = True End Sub 分表.rar
2楼 linguijinjim	版本太高了。哎
3楼 cainleo	仔细看了一下，同时也用附件中的数据测试了一下，分表是ok的，但是分完表之后的数据回填或者说是数据复制有问题，只能正确算出分表中数据的条数，无法正确将数据全部复制过来，永远都是B等于特定条件的第一条数据，而且能够给代码加点注释就更好了。希望能够解决以上的疑问。
4楼 icenotcool

免责声明

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

评论列表