在线等大神指教固定数字平均随机分割，并且各不相同。

byh8878 · 发表于 2024-4-12 22:21

本帖最后由 byh8878 于 2024-4-14 12:04 编辑

固定数字平均随机分割，并且各不相同。

ww87725244 · 发表于 2024-4-13 08:24

附件居然有宏病毒？？？

byh8878 · 发表于 2024-4-14 10:24

ww87725244 发表于 2024-4-13 08:24
附件居然有宏病毒？？？

怎么可能呢，都没有宏

baofa2 · 发表于 2024-4-14 11:39

测试.zip (34.91 KB, 下载次数: 4)

byh8878 · 发表于 2024-4-14 11:58

baofa2 发表于 2024-4-14 11:39

非常感谢您的解答，我是想把A列固定数据平均分成10份，并且各不相同，请看附件

gwjkkkkk · 发表于 2024-4-14 12:21

Option Explicit
Sub test1()
Dim ar, br, i&, j&, n&, iRowCount&

ar = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Value
arrGetRnd1 ar
iRowCount = -Int(-UBound(ar) / 10)
ReDim br(1 To iRowCount, 1 To 10)
For j = 1 To UBound(br)
      For i = 1 To UBound(br)
         n = n + 1
         If n > UBound(ar) Then GoTo ExitLine
         br(i, j) = ar(n, 1)
      Next i
Next j
ExitLine:
Range("B2:K" & Rows.Count).ClearContents
[B2].Resize(UBound(br), UBound(br, 2)) = br
Beep
End Sub

Function arrGetRnd1(ByRef ar)
Dim xNum&, i&, n&, vTemp
Randomize
n = UBound(ar)
For i = 1 To UBound(ar)
      xNum = Int((n - i + 1) * Rnd() + i)
      vTemp = ar(xNum, 1): ar(xNum, 1) = ar(i, 1): ar(i, 1) = vTemp
Next
End Function

gwjkkkkk · 发表于 2024-4-14 12:21

不知道是不是这个意思。。。

baofa2 · 发表于 2024-4-14 12:50

本帖最后由 baofa2 于 2024-4-14 21:04 编辑

byh8878 发表于 2024-4-14 11:58
非常感谢您的解答，我是想把A列固定数据平均分成10份，并且各不相同，请看附件

Book2.zip (18.91 KB, 下载次数: 1)
若早知你如此势利，绝不会回复你。。。

byh8878 · 发表于 2024-4-14 12:51

gwjkkkkk 发表于 2024-4-14 12:21
不知道是不是这个意思。。。

非常感谢，就是这个意思，但是还有个原因，A列数据为90的话，一键分割后却是9组，少了一组，麻烦您给重新看下

ooluckydog · 发表于 2024-4-14 15:52

每组随机，每次点击结果都不同，最后一组不满10个数也可以

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

[求助] 在线等大神指教固定数字平均随机分割，并且各不相同。

评分

评分