如何用vba代码实现某一序列的数据随机重新组合？

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

楼主
kevinchengcw

Q: 如何用vba代码实现某一序列的数据随机重新组合？
A: 示例代码如下：

Sub test()
Dim Arr, Arr2, Dic As Object, N%, I%
Arr = Split("あ,い,う,え,お,か,き,く,け,こ,さ,し,す,せ,そ,た,ち,つ,て,と,な,に,ぬ,ね,の,は,ひ,ふ,へ,ほ,ま,み,む,め,も,や,ゆ,よ,ら,り,る,れ,ろ,わ,を", ",") '设定序列数组
Set Dic = CreateObject("scripting.dictionary") '创建字典项目
For N = LBound(Arr) To UBound(Arr) '将序列放入数组
Dic.Add Arr(N), ""
Next N
ReDim Arr2(1 To Dic.Count) '创建个同数量的空数组用于存放生成后的新数据序列
I = 1 '初始化数组2下标记数
Randomize '启动随机数据生成器
Do
Arr = Dic.keys '提取出字典中数据
N = Int(Rnd * 1000) Mod Dic.Count '取得数组下标范围内的随机值
Arr2(I) = Arr(N) '将数组对应随机数值的下标值内容存入数组2中
I = I + 1 '数组2下标值递增
Dic.Remove Arr(N) '删除字典中对应的内容
Loop While Dic.Count > 0 '当字典项数不为0时循环
[a1].Resize(UBound(Arr2), 1) = Application.Transpose(Arr2) '将数组内容转置到单元格中
Set Dic = Nothing '清空字典项目
End Sub

2楼
wise

学习字典

免责声明

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

评论列表