如何将随机一列数组转为多列

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

楼主 wqfzqgk	Q:如何将随机一列数组转为多列？本例中将一列数组转为两列 A： Sub 随机数组转为多列() Set d = CreateObject("scripting.dictionary") Do For i = 1 To 22 d(Int(Rnd() * i + 1)) = "" Next Loop Until d.Count = 22 Range("a2:a23") = Application.WorksheetFunction.Transpose(d.keys) arr = d.keys Dim brr(1 To 11, 1 To 2) For i = 1 To 2 For ii = 1 To 11 brr(ii, i) = arr((i - 1) * 11 + ii - 1) Next Next Range("a2:b12") = brr End Sub
2楼成就滋味	学习了
3楼后知	嗯嗯来学习下

免责声明

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

评论列表