excel 宏编程 进行 多个数列排列组合 用什么样的宏 代码 可以实现 在 E 列显示所有的组合情况
4个回答
2013-10-10
展开全部
做出所有的组合没有多大意义……不用vba做 用公式就行了
假设你的这些组合是 0~9的十个数字组合……详细见附件
另外建议使用 随机函数 每次取一个随机三个数的组合……
展开全部
1~9取三位的代码:
Option Explicit
Sub x()
Dim i, j, k, x
x = 1
For i = 1 To 7
For j = i + 1 To 8
For k = j + 1 To 9
Cells(x, 5) = i & j & k
x = x + 1
Next k
Next j
Next i
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
public sub test()
rw = 1
for i1=1 to 3
for i2=1 to 3
for i3=1 to 3
range("E" & rw) = range("A" & i1) &range("B" & i2) &range("C" & i3)
rw=rw+1
next
next
next
end sub
rw = 1
for i1=1 to 3
for i2=1 to 3
for i3=1 to 3
range("E" & rw) = range("A" & i1) &range("B" & i2) &range("C" & i3)
rw=rw+1
next
next
next
end sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
还是算了吧。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询