如何生成多列随机不重复文本？

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

楼主
liuguansky

Q：想实现效果：每次按下按钮从左边C2：F393区域中选取任意非空文字并显示在I2：J26中
要求：IJ列同行不可在数据源中同一行，生成的随机文本要不重复。
A：
用如下代码可以实现：

Sub justtest()
Dim Arr, m&, n As Byte, ArrT(1 To 26, 1 To 2) As String, D As New Dictionary, k As Byte, t&
'前期绑定，需引用VBE工具下MSSCRIPTING.RUNTIME
Arr = [c2:f393].Value
For m = 1 To 392
D.Add m, Application.CountA(Application.Index(Arr, m, 0))'判断非空元素个数
Next m
For k = 1 To 26
Do'判断I列随机文字
m = Int(Rnd() * 392) + 1
n = Int(Rnd() * 4) + 1
Loop Until D(m) > 0 And Len(Trim(Arr(m, n))) > 0
ArrT(k, 1) = Arr(m, n): Arr(m, n) = "": t = m
Do'判断生成J列随机文字
m = Int(Rnd() * 392) + 1
n = Int(Rnd() * 4) + 1
Loop Until D(m) > 0 And Len(Trim(Arr(m, n))) > 0 And m <> t
ArrT(k, 2) = Arr(m, n): Arr(m, n) = ""
Next k
[i2:j27] = ArrT
End Sub

该贴已经同步到

2楼
亡者天下

过来学习一下，不错！

免责声明

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

评论列表