请教各位大神如何用VBA随机几个数值

思维百宝箱 · 发表于 2023-4-20 00:16

本帖最后由思维百宝箱于 2023-4-20 19:41 编辑

例如我在C3~V3之间是1～20的数，我希望在C6~G6中，在上面的数值中随机出5个数（不能重复），在C7~G7中也随机出5个数，在C8~G8中也随机出5个数，在C9~G9中也随机出5个数，最后将这4行随机的20个数（4行，每行5个随机数），在C12这行中列出来，这20个随机数中有同样的数值只出现一次。用VBA能实现吗？谢谢大神啦～

liulang0808 · 发表于 2023-4-20 07:50

本帖最后由 liulang0808 于 2023-4-20 07:52 编辑

Sub 按钮1_Click()
Set d = CreateObject("scripting.dictionary")
For Each Rng In [c3:v3]
      d(Rng.Value) = ""
Next Rng
r = 7
c = 3
str1 = ""
For j = 1 To d.Count
      x = WorksheetFunction.RandBetween(0, d.Count - 1)
      k = d.keys()(x)
      str1 = str1 & " " & k
      Cells(r, c) = k
      d.Remove k
      c = c + 1
      If c = 8 Then
         r = r + 1
         c = 3
         str1 = str1 & Chr(10)
      End If
Next j
[c12] = Mid(str1, 2)
End Sub

liulang0808 · 发表于 2023-4-20 07:51

。。。。。。。。。。。。。。。

思维百宝箱 · 发表于 2023-4-20 10:29

liulang0808 发表于 2023-4-20 07:51
。。。。。。。。。。。。。。。

谢谢你,最后一步可能你误会了,不是把这20个随机数字放在一个单元格内,而是把这20个数放在C行,有重复的数只出现一次,也就是如果有3个8的话,就出现1次就行了,(即如果随机是5,6,7,8,8,8,9,10,在C12显示5,D12显示6,E12显示7,F12显示8,G12显示9,H12显示10)可以再修改一下吗?麻烦你了

liulang0808 · 发表于 2023-4-20 10:54

看看是不是这样的吧

liulang0808 · 发表于 2023-4-20 10:57

思维百宝箱发表于 2023-4-20 10:29
谢谢你,最后一步可能你误会了,不是把这20个随机数字放在一个单元格内,而是把这20个数放在C行,有重复的数 ...

楼主这个就是简单去重既可以了吧
5楼结果是放在C列，供参考吧

思维百宝箱 · 发表于 2023-4-20 16:39

liulang0808 发表于 2023-4-20 10:57
楼主这个就是简单去重既可以了吧
5楼结果是放在C列，供参考吧

大神，可能是我描述得不够好吧，有空的话再研究一下。是这样的，1～20的数我希望是随机出现，4行，每行5个随机数可以重复，你给我的文档是没有重复的，刚好是1～20了，然后把这随机出现的20个数在下面的某一行排出来，随机中有重复的只排一次就行了

liulang0808 · 发表于 2023-4-20 16:42

思维百宝箱发表于 2023-4-20 16:39
大神，可能是我描述得不够好吧，有空的话再研究一下。是这样的，1～20的数我希望是随机出现，4行，每行5 ...

建议楼主结合附件描述下具体需求：
原始数据是怎么来的，要怎么处理，模拟出具体结果

思维百宝箱 · 发表于 2023-4-20 16:59

本帖最后由思维百宝箱于 2023-4-20 18:59 编辑

liulang0808 发表于 2023-4-20 16:42
建议楼主结合附件描述下具体需求：
原始数据是怎么来的，要怎么处理，模拟出具体结果

我在论坛里面找到一个随机的了，修改了一下可以用了，按F9就能随机刷新，剩下最后一步还是需要大神帮忙一下，就像我现在这个截图，加粗的这20个是随机数，然后希望是23这行，从C23开始把这个随机数按顺序显示一下，就是C23是2，D23是3(3重复了,只显示一次),E23是4,F23是6,以此类推,可以吗?我更新一下文件和图片吧

chxw68 · 发表于 2023-4-20 19:12

Sub test()
Dim r%, i%
Dim arr, brr
Dim d As Object
Set d = CreateObject("scripting.dictionary")
Randomize Timer
With Worksheets("sheet1")
arr = .Range("b2:b21")
ReDim brr(1 To 5, 1 To 4)
For i = 1 To UBound(brr)
For j = 1 To UBound(brr, 2)
n = Int(Rnd() * UBound(arr)) + 1
brr(i, j) = arr(n, 1)
d(brr(i, j)) = Empty
Next
Next
crr = d.keys
For i = 0 To UBound(crr) - 1
p = i
For j = i + 1 To UBound(crr)
If crr(p) > crr(j) Then
p = j
End If
Next
If p <> i Then
temp = crr(i)
crr(i) = crr(p)
crr(p) = temp
End If
Next
.Range("c4").Resize(UBound(brr), UBound(brr, 2)) = brr
.Rows(23).ClearContents
.Range("a23").Resize(1, UBound(crr)) = crr
End With
End Sub

复制代码

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

[已解决] 请教各位大神如何用VBA随机几个数值

评分