根据A B C 生成1000个谁就的组合

mjgw · 发表于 2024-8-4 11:40

ynzsvt · 发表于 2024-8-4 11:42

是否要去重，这个很关键。

饮冰e士 · 发表于 2024-8-4 12:11

这样可行？

gwjkkkkk · 发表于 2024-8-4 12:32

Option Explicit
Sub test2()

Dim ar, br, i&, j&, xNum&
br = [A1].CurrentRegion.Value
ReDim ar(1 To 1000, 1 To UBound(br, 2))

For i = 1 To UBound(ar)
      For j = 1 To UBound(ar, 2)
         xNum = WorksheetFunction.RandBetween(1, UBound(br))
         ar(i, j) = br(xNum, j)
      Next j
Next i

[H1].CurrentRegion.Clear
[H1].Resize(1000, UBound(ar, 2)) = ar
End Sub

gwjkkkkk · 发表于 2024-8-4 12:34

。。。。。。。。。

mjgw · 发表于 2024-8-4 12:37

本帖最后由 mjgw 于 2024-8-4 12:41 编辑

gwjkkkkk 发表于 2024-8-4 12:34
。。。。。。。。。

谢谢您的帮助，我需要的是每一行的ABC都不变

gwjkkkkk · 发表于 2024-8-4 12:39

mjgw 发表于 2024-8-4 12:37
谢谢您的帮助，我需要的是每一行的ABC都不变

。。。。。。。。。。

micch · 发表于 2024-8-4 16:08

本帖最后由 micch 于 2024-8-4 16:09 编辑

=INDEX(A:V,RANDBETWEEN(1,21),{1,2,3})

复制代码

下拉

或者一步到位

=INDEX(A:V,RANDARRAY(1000,,1,21,1),{1,2,3})

复制代码

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

根据A B C 生成1000个谁就的组合

评分