双色球excel电子表格归类（不断更新中） - 双色球方法技巧 -
乐彩论坛静态版
--------------
内容每5分钟更新
双色球excel电子表格归...
共141条5页
30条/页第1页
点击： &&回复：112265 关闭此页
双色球excel电子表格归类（不断更新中）
| 发表于 03:02:25归类大家发的电子表格，并杀毒，以方便广大彩友交流。向无私奉献者致敬！点击下载excel文件：福彩3D：双色球：七乐彩：排列三：排列五：超级大乐透：七星彩：体彩22选5：福彩：体彩：全部：文本方式下载：您可以保存文本格式，然后直接导入到自己的excel电子表格中。福彩3D：双色球：七乐彩：排列三：排列五：超级大乐透：七星彩：体彩22选5：问题与交流：如何添加自动更新、excel 如何查看公式 入门汇总 1楼&
| 发表于 03:02:56830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>2楼&
| 发表于 03:03:14830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>3楼&
| 发表于 03:03:26830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>4楼&
| 发表于 03:04:37830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>5楼&
| 发表于 22:52:24830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>6楼&
| 发表于 22:54:24830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>7楼&
| 发表于 22:54:43830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>8楼&
| 发表于 22:54:54830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>830)this.width=830" onclick="window.open(this.src)" style='cursor:pointer'/>9楼&
| 发表于 22:55:06双色球excel电子表格归类（不断更新中）10楼&
| 发表于 22:59:18双色球excel电子表格归类（不断更新中）11楼&
| 发表于 22:59:58双色球excel电子表格归类（不断更新中）12楼&
| 发表于 23:00:09双色球excel电子表格归类（不断更新中）13楼&
| 发表于 23:00:20双色球excel电子表格归类（不断更新中）14楼&
| 发表于 23:00:34双色球excel电子表格归类（不断更新中）15楼&
| 发表于 23:00:46双色球excel电子表格归类（不断更新中）16楼&
| 发表于 23:00:58双色球excel电子表格归类（不断更新中）17楼&
| 发表于 23:01:10双色球excel电子表格归类（不断更新中）18楼&
| 发表于 23:01:20双色球excel电子表格归类（不断更新中）19楼&
| 发表于 23:01:29双色球excel电子表格归类（不断更新中）20楼&
| 发表于 15:05:31好精彩21楼&
| 发表于 20:05:23好贴,请继续 22楼&
| 发表于 10:17:45求双色球和值计算器23楼&
| 发表于 14:23:41好贴24楼&
| 发表于 00:51:57 本帖最后由 半支香烟 于
09:06 编辑 谢谢版主的无私奉献25楼&
| 发表于 02:54:16多谢各位高手26楼&
| 发表于 13:04:47楼主辛苦了27楼&
| 发表于 10:32:53太好了 谢谢楼主28楼&
| 发表于 12:48:56严重支持一下29楼&
| 发表于 15:27:09谢谢归纳这么全啊，呵呵
共141条5页
30条/页第1页
参与原帖交流，请访问:
访问本站表明您同意：本站提供的资料和数据仅供您参考，请您在使用前核实并慎重对待，因此受到的任何损失，乐彩网不承担任何责任。
版权所有 京ICP备号|京公网安备44号查看: 16045|回复: 34
求高手指教：如何用VBA在EXCEL中生成双色球红球33选6的所有组合明细
阅读权限20
在线时间 小时
求高手指教：如何用VBA在EXCEL中生成双色球红球33选6的所有组合明细
阅读权限95
在线时间 小时
33选6，组合结果共=1,107,568
在2003中可以排满接近17列……
这么多组合明细，给了你也没有毛的用处。
如果需要生成组合的代码，
最简单最有效的是：Sub Combin_33_6()
& & Dim a%, b%, c%, d%, e%, f%, s$
& & For a = 1 To 33 - 5
& & For b = a + 1 To 33 - 4
& & For c = b + 1 To 33 - 3
& & For d = c + 1 To 33 - 2
& & For e = d + 1 To 33 - 1
& & For f = e + 1 To 33
& && &&&s = a & &;& & b & &;& & c & &;& & d & &;& & e & &;& & f
& & Next f, e, d, c, b, a
& &
End Sub复制代码
阅读权限90
在线时间 小时
阅读权限20
在线时间 小时
高手 按照你的启发：我编写了以下代码：
& &Sub combin_33_6()
& &Dim a, b, c, d, e, f As Integer
& &Dim thecell As Range
& &Sheets(&sheet1&).Select
& & Set thecell = Range(&a1&)
& && & For a = 1 To 28& && && && && && && && && && && && && && && && &'a最小为1
& && && &&&For b = a + 1 To 29& && && && && && && && && && && && && & 'b最小为2
& && && && && && && && && &&&If a = b Then b = b + 1
& && && && && &For c = b + 1 To 30& && && && && && && && && && && && &'c最小为3
& && && && && && && && && &&&If b = c Then c = c + 1
& && && && && && & For d = c + 1 To 31& && && && && && && && && && &&&'d最小为4
& && && && && && && && && &&&If c = d Then d = d + 1
& && && && && && && & For e = d + 1 To 32& && && && && && && && && &&&'e最小为5
& && && && && && && &
& && && && && && && && && &&&If d = e Then e = e + 1
& && && && && && && && & For f = e + 1 To 33& && && && && && && && &&&'f最小为6
& && && && && && && && && &&&If e = f Then f = f + 1
& && && && && && && && && &&&thecell.Value = a
& && && && && && && && && &&&Set thecell = thecell.Offset(0, 1)& & '&&移位
& && && && && && && && && &&&thecell.Value = b
& && && && && && && && && &&&Set thecell = thecell.Offset(0, 1)
& && && && && && && && && &&&thecell.Value = c
& && && && && && && && && &&&Set thecell = thecell.Offset(0, 1)
& && && && && && && && && &&&thecell.Value = d
& && && && && && && && && &&&Set thecell = thecell.Offset(0, 1)
& && && && && && && && && &&&thecell.Value = e
& && && && && && && && && &&&Set thecell = thecell.Offset(0, 1)
& && && && && && && && && &&&thecell.Value = f
& && && && && && && && && &&&Set thecell = thecell.Offset(1, -5)&&' 重新定位，换行换列
& && && && && && && && & Next f
& && && && && && && & Next e
& && && && && && & Next d
& && && && && & Next c
& && && && &Next b
& && &&&Next a
& && &在向工作表中写入第1048576条记录后，无法再写入组合记录，我按照第1048576记录的组合值继续向第二张工作表追加，运行代码如下
&&Sub combin_33_6_1()
& &Dim a, b, c, d, e, f As Integer
& &Dim thecell As Range
& &Sheets(&sheet2&).Select
& & Set thecell = Range(&a1&)
& && & For a = 12 To 28& && && && && && && && && && && && && && && && &'a最小为1
& && && &&&For b = 17 To 29& && && && && && && && && && && && && & 'b最小为2
& && && && && && && && && &&&If a = b Then b = b + 1
& && && && && &For c = 22 To 30& && && && && && && && && && && && &'c最小为3
& && && && && && && && && &&&If b = c Then c = c + 1
& && && && && && & For d = 27 To 31& && && && && && && && && && & 'd最小为4
& && && && && && && && && &&&If c = d Then d = d + 1
& && && && && && && & For e = 28 To 32& && && && && && && && && &&&'e最小为5
& && && && && && && &
& && && && && && && && && &&&If d = e Then e = e + 1
& && && && && && && && & For f = 33 To 33& && && && && && && && &&&'f最小为6
& && && && && && && && && &&&If e = f Then f = f + 1
& && && && && && && && && &&&thecell.Value = a
& && && && && && && && && &&&Set thecell = thecell.Offset(0, 1)& & '&&移位
& && && && && && && && && &&&thecell.Value = b
& && && && && && && && && &&&Set thecell = thecell.Offset(0, 1)
& && && && && && && && && &&&thecell.Value = c
& && && && && && && && && &&&Set thecell = thecell.Offset(0, 1)
& && && && && && && && && &&&thecell.Value = d
& && && && && && && && && &&&Set thecell = thecell.Offset(0, 1)
& && && && && && && && && &&&thecell.Value = e
& && && && && && && && && &&&Set thecell = thecell.Offset(0, 1)
& && && && && && && && && &&&thecell.Value = f
& && && && && && && && && &&&Set thecell = thecell.Offset(1, -5)&&' 重新定位，换行换列
& && && && && && && && & Next f
& && && && && && && & Next e
& && && && && && & Next d
& && && && && & Next c
& && && && &Next b
& && &&&Next a
在第2张工作表中只有33450条记录，两个表加起来1082029条记录，与combin（33，6）=1107568 相差 25539 条 记录，请高手指教，如何找出错误。多谢高手！
阅读权限95
在线时间 小时
很简单，虽然第 1048576 个组合结果是：12，17，22，27，28，33 没错，
但在这以后的循环中，当a升到13时，b还是要从14开始……
然而，你的代码直接就规定b从17开始，那么
a=13，b=14,……
a=13，b=15,……
a=13，b=16,……
这些组合，就全部被你跳过去了。
阅读权限95
在线时间 小时
比如，序号1053305，即第2张表的第4729个组合，应该是：13，14，15，16，17，18
你去查一下，你的结果里有没有？ 我想肯定是没有。呵呵。
阅读权限95
在线时间 小时
顺便说，你的代码改了以后，很愚蠢。
类似于 If a = b Then b = b + 1
这样的判断是不需要的，因为更本不可能发生。
阅读权限95
在线时间 小时
组合结果合并成一列，含输出结果的代码：Sub Combin_33_6()
& & Dim a%, b%, c%, d%, e%, f%, k&, l%, m&, s$
'& & m = 4 ^ 8 '2003版
& & m = 4 ^ 10 '2007版
& & ReDim r(1 To m, 1 To 1) '版
& &
& & For a = 1 To 33 - 5
& & For b = a + 1 To 33 - 4
& & For c = b + 1 To 33 - 3
& & For d = c + 1 To 33 - 2
& & For e = d + 1 To 33 - 1
& & For f = e + 1 To 33
& && &&&k = k + 1
& && &&&If k & m Then
& && && && &Cells(1, l * 2 + 1).Resize(m) = r
& && && && &ReDim r(1 To m, 1 To 1) '版
& && && && &l = l + 1
& && && && &k = 1
& && &&&End If
& && &&&r(k, 1) = a & &;& & b & &;& & c & &;& & d & &;& & e & &;& & f
& &
& & Next f, e, d, c, b, a
& & Cells(1, l * 2 + 1).Resize(k) = r
End Sub复制代码
阅读权限95
在线时间 小时
组合结果分成6列输出的代码：Sub Combin_33_6_6()
& & Dim a%, b%, c%, d%, e%, f%, k&, l%, m&, s$
'& & m = 4 ^ 8 '2003版
& & m = 4 ^ 10 '2007版
& & ReDim r(1 To m, 1 To 6) '版
& &
& & For a = 1 To 33 - 5
& & For b = a + 1 To 33 - 4
& & For c = b + 1 To 33 - 3
& & For d = c + 1 To 33 - 2
& & For e = d + 1 To 33 - 1
& & For f = e + 1 To 33
& && &&&k = k + 1
& && &&&If k & m Then
& && && && &Cells(1, l * 7 + 1).Resize(m, 6) = r
& && && && &ReDim r(1 To m, 1 To 1) '版
& && && && &l = l + 1
& && && && &k = 1
& && &&&End If
& && &&&r(k, 1) = a
& && &&&r(k, 2) = b
& && &&&r(k, 3) = c
& && &&&r(k, 4) = d
& && &&&r(k, 5) = e
& && &&&r(k, 6) = f
& &
& & Next f, e, d, c, b, a
& & Cells(1, l * 7 + 1).Resize(k, 6) = r
End Sub复制代码
阅读权限20
在线时间 小时
香川群子 发表于
顺便说，你的代码改了以后，很愚蠢。
类似于 If a = b Then b = b + 1
尊敬的高手：经过你的指点，我知道错误在第二长表的初始赋值上，经过思考我认为程序是不是能够这样写？，当接近1048576行时将输出结果输出到第二张表上，
故在程序开始设置一个行计数变量，但是程序运行好像进入死循环，不知道错在哪里，顺便告诉高手那句&&If a = b Then b = b + 1 好像有必要，我就是看见生成的
数据中有&&1,2,3,4,6,6&&才写的，我的程序如下，烦高手赐教：
Sub combin_33_6()
& &Dim a, b, c, d, e, f As Integer
& &Dim thecell As Range
& &Dim i As Long
& &Sheets(&sheet1&).Select
& & Set thecell = Range(&a1&)
& && & For a = 1 To 28& && && && && && && && && && && && && && && && &'a最小为1
& && && &&&For b = a + 1 To 29& && && && && && && && && && && && && & 'b最小为2
& && && && && && && && && &&&If a = b Then b = b + 1
& && && && && &For c = b + 1 To 30& && && && && && && && && && && && &'c最小为3
& && && && && && && && && &&&If b = c Then c = c + 1
& && && && && && & For d = c + 1 To 31& && && && && && && && && && &&&'d最小为4
& && && && && && && && && &&&If c = d Then d = d + 1
& && && && && && && & For e = d + 1 To 32& && && && && && && && && &&&'e最小为5
& && && && && && && &
& && && && && && && && && &&&If d = e Then e = e + 1
& && && && && && && && & For f = e + 1 To 33& && && && && && && && &&&'f最小为6
& && && && && && && && && &&&If e = f Then f = f + 1
& && && && && && && && && &&&i = i + 1
& && && && && && && && && &&&
& && && && && && && && && &&&If i & 1048575 Then
& && && && && && && && && &&&
& && && && && && && && && && && && & thecell.Value = a
& && && && && && && && && && && && & Set thecell = thecell.Offset(0, 1)& & '&&移位
& && && && && && && && && && && && & thecell.Value = b
& && && && && && && && && && && && & Set thecell = thecell.Offset(0, 1)
& && && && && && && && && && && && & thecell.Value = c
& && && && && && && && && && && && & Set thecell = thecell.Offset(0, 1)
& && && && && && && && && && && && & thecell.Value = d
& && && && && && && && && && && && & Set thecell = thecell.Offset(0, 1)
& && && && && && && && && && && && & thecell.Value = e
& && && && && && && && && && && && & Set thecell = thecell.Offset(0, 1)
& && && && && && && && && && && && & thecell.Value = f
& && && && && && && && && && && && &&&Set thecell = thecell.Offset(1, -5)&&' 重新定位，换行换列
& && && && && && && && && &&&Else
& && && && && && && && && && && && &&&Sheets(&sheet2&).Select
& && && && && && && && && && && && &&&Set thecell = Range(&a1&)
& && && && && && && && && && && && & thecell.Value = a
& && && && && && && && && && && && & Set thecell = thecell.Offset(0, 1)& & '&&移位
& && && && && && && && && && && && & thecell.Value = b
& && && && && && && && && && && && & Set thecell = thecell.Offset(0, 1)
& && && && && && && && && && && && & thecell.Value = c
& && && && && && && && && && && && & Set thecell = thecell.Offset(0, 1)
& && && && && && && && && && && && & thecell.Value = d
& && && && && && && && && && && && & Set thecell = thecell.Offset(0, 1)
& && && && && && && && && && && && & thecell.Value = e
& && && && && && && && && && && && & Set thecell = thecell.Offset(0, 1)
& && && && && && && && && && && && & thecell.Value = f
& && && && && && && && && && && && & Set thecell = thecell.Offset(1, -5)&&' 重新定位，换行换列
& && && && && && && && && &&&
& && && && && && && && && &&&End If
& && && && && && && && && &&&
& && && && && && && && & Next f
& && && && && && && & Next e
& && && && && && & Next d
& && && && && & Next c
& && && && &Next b
& && &&&Next a
不知道什么原因，程序运行很久，无法结束？
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师