四组数据中选五个,VBA如何实现

luoyin268 · 发表于 2012-11-13 19:29

四组数据中选五个,VBA如何实现

dsmch · 发表于 2012-11-13 20:02

Dim arr, brr(1 To 3 ^ 5 * 4, 1 To 5)
arr = Range("a1").CurrentRegion
For a = 1 To 3
For b = 1 To 3
For c = 1 To 3
For d = 1 To 3
For e = 1 To 3
For f = 1 To 4
s = s + 1
x = arr(a, 1) & "," & arr(b, 2) & "," & arr(c, 3) & "," & arr(d, 4) & "," & arr(e, f)
y = Split(x, ",")
Cells(s, 7).Resize(1, 5) = y
Next f, e, d, c, b, a
With Range("g1").CurrentRegion
.Value = .Value
End With

复制代码

香川群子 · 发表于 2012-11-13 20:20

dsmch 发表于 2012-11-13 20:02

你这个代码有问题。

每次选取的第5个数据含有重复数据。

luoyin268 · 发表于 2012-11-13 20:23

谢谢！但运行出错！！！

dsmch · 发表于 2012-11-13 20:43

附件…………

luoyin268 · 发表于 2012-11-13 20:47

每次选取的第5个数据含有重复数据。，怎么解决！谢谢，不能重复！

luoyin268 · 发表于 2012-11-13 20:49

本帖最后由 luoyin268 于 2012-11-13 20:49 编辑

应该只有324种组合！

dsmch · 发表于 2012-11-13 20:53

本帖最后由 dsmch 于 2012-11-13 20:59 编辑

复制代码

luoyin268 · 发表于 2012-11-13 21:07

谢谢！！！！！！

luoyin268 · 发表于 2012-11-13 21:08

谢谢！！！！！！！！

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