求助双色球33选6（所有不重复组合）表格制作公式？软件为WPS2019

求助双色球33选6（所有不重复组合）表格制作公式？软件为WPS2019,会做的老师帮帮忙，具体怎么操作？在此谢谢！

Sub 组合6in33() Dim I1, I2, I3, I4, I5,I6, M M = 0 For I1 = 1 To 28 For I2 = I1 + 1 To 29 For I3 = I2 + 1 To 30 For I4 = I3 + 1 To 31 For I5 = I4 + 1 To 32 For I6 = I5 + 1 To 33 M = M + 1 Range("A" & M) = I1: Range("B" & M) = I2: Range("C" & M) = I3: Range("D" & M) = I4: Range("E" & M) = I5: Range("F" & M) = I6 Next Next Next Next Next NextEnd Sub
最佳答案
把
M = M + 1
Range("A" & M) = I1: Range("B" & M) = I2: Range("C" & M) = I3: Range("D" & M) = I4: Range("E" & M) = I5: Range("F" & M) = I6
替换为：
if i1+i2+i3+i4+i5+i6<=90 then
Range("A" & range("A65536").end(xlup).row+1) = I1: Range("B" & range("B65536").end(xlup).row+1) = I2: Range("C" & range("C65536").end(xlup).row+1) = I3: Range("D" & range("D65536").end(xlup).row+1) = I4: Range("E" & range("E65536").end(xlup).row+1) = I5: Range("F" & range("F65536").end(xlup).row+1) = I6
else
Range("I" & range("I65536").end(xlup).row+1) = I1: Range("J" & range("J65536").end(xlup).row+1) = I2: Range("K" & range("K65536").end(xlup).row+1) = I3: Range("L" & range("L65536").end(xlup).row+1) = I4: Range("M" & range("M65536").end(xlup).row+1) = I5: Range("N" & range("N65536").end(xlup).row+1) = I6
end if

按照你的题目的话。数据还是放不下100多万组啊。

查看追问
追问:
excel2007或者2010有1048576行 可以放完，换成这个就可以了。只是不知道这个公式在2007-2010中能不能用
追答:
在2007以上的话可以改成：

if i1+i2+i3+i4+i5+i6<=90 then
Range("A" & range("A" & rows.count).end(xlup).row+1) = I1: Range("B" & range("B"
& rows.count).end(xlup).row+1) = I2: Range("C" & range("C" & rows.count).end(xlup).row+1) = I3: Range("D" & range("D" & rows.count).end(xlup).row+1) = I4: Range("E" & range("E" & rows.count).end(xlup).row+1) = I5: Range("F" & range("F" & rows.count).end(xlup).row+1) = I6
else
Range("I" & range("I" & rows.count).end(xlup).row+1) = I1: Range("J" & range("J" & rows.count).end(xlup).row+1) = I2: Range("K" & range("K" & rows.count).end(xlup).row+1) = I3: Range("L" & range("L" & rows.count).end(xlup).row+1) = I4: Range("M" & range("M" & rows.count).end(xlup).row+1) = I5: Range("N" & range("N"& rows.count).end(xlup).row+1) = I6
end if
因为65536就不适用2007以上的版本了。 所以2007以上的版本的话也可以这样改：把上次代码中的65536改成1048576
这是网上查到的，具体怎么操作？我不会，请会的老师指点。。。。。。

描述不详细，无法操作？所有不重复组合 是什么意思？1107568个组合，还是和当前开奖不重复？
生成1107568个33选6 的号码方法可以在本论坛的帖子中找，有现成的代码和公式。

感谢版主的关注及回复！！想制作这个：
排除法：1,排除历史每组开奖号红球号码中6选5的五码组合；（开出过6+1或者5+1或者5+0的奖号排除）2,全部奇数排除；3，全偶数排除；4,全4连号，5连号，6连号排除；等等，把机率非常非常小的全部排除。本想自己做了，数据量太大了，没法做，需要个完整的统计过滤全一点的软件，大数据的处理结果，看看老师们有没有便捷的方法提供，在此谢谢了！！