请老师用VBA,按随机值生成随机数量，（修改附件），谢谢！

cartel · 发表于 2024-1-28 10:21

请老师用VBA,按随机值生成随机数量，（修改附件），谢谢！.zip (19.61 KB, 下载次数: 12)

sj15627581616 · 发表于 2024-1-28 10:47

每行都没显示的两个数，他们都不重复，这点实在看不懂

liulang0808 · 发表于 2024-1-28 10:52

建议楼主结合附件，逐步描述下实现步骤吧
当前的附件，看不大明白的

sj15627581616 · 发表于 2024-1-28 11:05

大概明白了，只是还有一点疑问，按照最后面那个需求，27个数是不是固定的？取数25是不是也是固定的？

gwjkkkkk · 发表于 2024-1-28 11:11

Option Explicit
Sub test2()
Dim ar, br, cr, i&, j&, strJoin$

Application.ScreenUpdating = False

ar = Range("B1", Cells(Rows.Count, "C").End(xlUp)).Value
ReDim cr(1 To UBound(ar), 1)
For i = 1 To UBound(ar)
      br = Split(ar(i, 1), ",")
      arrGetRnd1 br
      strJoin = ""
      For j = 0 To ar(i, 2) - 1
         strJoin = strJoin & "," & br(j)
      Next j
      cr(i, 0) = Mid(strJoin, 2)
      strJoin = ""
      For j = ar(i, 2) To UBound(br)
         strJoin = strJoin & " " & br(j)
      Next j
      cr(i, 1) = Mid(strJoin, 2)
Next i

Columns("D:E").Clear
[D1].Resize(UBound(cr), 2) = cr
Application.ScreenUpdating = True
Beep
End Sub
Function arrGetRnd1(ByRef ar)
Dim xNum&, i&, n&, vTemp
Randomize
n = UBound(ar)
For i = 0 To UBound(ar)
      xNum = Int((n - i + 1) * Rnd() + i)
      vTemp = ar(xNum): ar(xNum) = ar(i): ar(i) = vTemp
Next
End Function

gwjkkkkk · 发表于 2024-1-28 11:13

请参考附件。。。

yjh_27 · 发表于 2024-1-28 11:19

每行都没显示的两个数，他们都不重复，

解释1：各行中间无关系，仅要求本行的没显示的两个数，他们都不重复，

解释2：各行的没显示的两个数，各行之间都不重复。任何一个不重复：27个元素仅能满足13行

解释3：各行的没显示的两个数，各行之间都不重复。二个不重复，可重复一个：27个元素能满足c(27,2)=351行

cartel · 发表于 2024-1-28 11:32

本帖最后由 cartel 于 2024-1-28 12:22 编辑

gwjkkkkk 发表于 2024-1-28 11:13
请参考附件。。。

gwjkkkkk老师，您好！
您的公式代码，是我想要的，
就是E列每行的2个数与其它行的2个数要不相同
只有E列2个数已经用完了27个数，是可重复的，
感谢老师！再调下

yynrzwh · 发表于 2024-1-28 12:16

请老师用VBA,按随机值生成随机数量，没有显示的数不能相同（修改附件），谢谢！.7z (27.46 KB, 下载次数: 6)

cartel · 发表于 2024-1-28 12:23

本帖最后由 cartel 于 2024-1-28 16:39 编辑

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

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

[求助] 请老师用VBA,按随机值生成随机数量，（修改附件），谢谢！

评分

评分

评分

评分