如何利用数组转换一列省略相同记录的一维表为二维表？

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

楼主 wjc2090742	Q：如何利用数组转换一列省略相同记录的一维表为二维表？如下2图，上图中，A列中为组别，B列同组记录的头一个对应A列单元格才有记录，如何转换为下图的结构？ A： Sub tt() Dim a&, b&, ar(), arr() a = Cells(Rows.Count, 2).End(3).Row b = WorksheetFunction.CountA(Range("a:a")) - 1 arr = [a2].Resize(a - 1, 2).Value ReDim ar(1 To b, 0 To 99) For i = 1 To UBound(arr, 1) If arr(i, 1) <> "" Then m = m + 1: n = 1 ar(m, 0) = arr(i, 1) Else n = n + 1 End If ar(m, n) = "'" & arr(i, 2) Next [d1].Resize(b, 99) = ar End Sub 将工作表内容录入二维数组.rar
2楼 bluexuemei	厉害，很费脑力!
3楼 supersudda	收藏一下备用，支持楼主的分享

免责声明

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

评论列表