请老师，用VBA按随机值生成随机数量，但没有显示的数不能为重复，谢谢！

ykcbf1100 · 发表于 2024-1-28 20:51

gwjkkkkk 发表于 2024-1-28 09:14
源数据27个不重复数，随机打乱，取前25个，那么剩下的应该也是不重复的，4楼应该能满足，楼主可以核对下 ...

楼主的附件，同样的问题，昨天已经解答完了。源数据27个数，不重复，随机取其中的25个，余下2个也肯定是不重复的。
不知道楼主怎么想的，类似的问题，在随机数上已经出了很多题了。

cartel · 发表于 2024-1-29 00:08

感谢ykcbf1100 老师的回复！
gwjkkkkk老师的代码，是我想要的，
就是E列每行的2个数与其它行的2个数要不能相同
只有E列2个数已经用完了27个数，是可以重复的，
还烦请各位老师们，再调整下（ gwjkkkkk老师帮忙做的附件，请看下，谢谢！.zip）
今天新花用完，明天一定给老师们送上，谢谢！

cartel · 发表于 2024-1-29 00:12

感谢ykcbf1100老师的回复！
gwjkkkkk老师的代码，是我想要的，
就是E列每行的2个数与其它行的2个数要不能相同
只有E列2个数已经用完了27个数，是可以重复的，
还烦请各位老师们，再调整下（ gwjkkkkk老师帮忙做的附件，请看下，谢谢！.zip）
今天新花用完，明天一定给老师们送上，谢谢！

cartel · 发表于 2024-1-29 00:13

gwjkkkkk老师帮忙做的附件，请看下，谢谢！.zip (40.41 KB, 下载次数: 3)

liulang0808 · 发表于 2024-1-29 07:52

Sub 按钮1_Click()
Set d = CreateObject("scripting.dictionary")
Set d = CreateObject("scripting.dictionary")
r = Cells(Rows.Count, 2).End(3).Row
arr = [b1].Resize(r, 2)
For j = 1 To UBound(arr)
l2:
      brr = Split(arr(j, 1), ",")
      str1 = ""
      For i = 1 To Val(arr(j, 2))
l1:
         x = WorksheetFunction.RandBetween(0, UBound(brr))
         If brr(x) = "" Then GoTo l1
         str1 = str1 & "," & brr(x)
         brr(x) = ""
      Next i
      str2 = Join(brr, ",")
      If d.exists(str2) Then GoTo l2
      arr(j, 1) = "'" & Mid(str1, 2)
      str2 = ""
      For Each x In brr
         If Len(x) > 0 Then
            str2 = str2 & "," & x
         End If
      Next x
      arr(j, 2) = "'" & Mid(str2, 2)
Next j
[d1].Resize(r, 2) = arr
End Sub

liulang0808 · 发表于 2024-1-29 07:52

请老师，用VBA按随机值生成随机数量，但没有显示的数不能为重复，谢谢！.zip (15.6 KB, 下载次数: 15)

		自动登录	找回密码
密码			免费注册

[求助] 请老师，用VBA按随机值生成随机数量，但没有显示的数不能为重复，谢谢！

评分

评分

评分