求助VBA程序:从1-49个数字中随机生成7组7个数字30个任意集合，每个集合之间用空行隔开。

Question

从1-49个数字中随机生成7组数据每组为7个数，数字之间用","隔开，任意一个集合都要包含1-49中的每个数字，请一次性随机生成30个互不相同的集合，并同时给每个集合编号，编号顺序从1-30，非常感谢！

Answer 1

Sub SuiJi()
Dim S(1 To 30, 1 To 49) As Integer
For i = 1 To 30
For j = 1 To 49
S(i, j) = j
Next
Next

For i = 1 To 30
For j = 1 To 49
w = Int(Rnd() * 49) + 1
tmp = S(i, w)
S(i, w) = S(i, j)
S(i, j) = tmp
Next
For r = 1 To 7
ShuChu = ""
For c = 1 To 7
ShuChu = S(i, (r - 1) * 7 + c) & "," & ShuChu
Next
ShuChu = Left(ShuChu, Len(ShuChu) - 1)
Cells((i - 1) * 7 + r, 2) = ShuChu
Next
Range("A" & (i - 1) * 7 + 1 & ":A" & (i - 1) * 7 + 7).Merge
Range("A" & (i - 1) * 7 + 1) = i
Next
End Sub追问

你好，辛苦了，太棒了，为了保证这30个集合是肯定不相同的，是不是还要修改VBA

追答

相同的可能性应该是极低的。

追问

好的