求高手指教：如何用VBA在EXCEL中生成双色球红球33选6的所有组合明细

ywcxnet

xsy我可以很好 发表于 2012-2-27 23:53
不明白楼主的要求
不知道是不是这意思

尊敬的高手：我的意思如下：
如何
在以下数据中用vba自动形成统计各个数字出现的次数结果
15        17        18        20        23        27        
6        8        24        29        30        32        
1        2        5        16        28        30        
1        3        6        10        21        23        
2        5        12        17        22        25        
6        9        14        19        25        28        
                                                
统计结果：        1（2）        2（2）        3（1）        5（2）        6（3）        8（1）
        9（1）        10（1）        12（1）        14（1）        15（1）        16（1）
        17（2）        18（1）        19（1）        20（1）        21（1）        22（1）
        23（2）        24（1）        25（2）        27（1）        28（2）        29（1）
        30（2）        32（1）        

烦高手赐教                        

xsy我可以很好

我知道你要统计前5期，可是你要的“统计结果”放在那里啊，放在“J7”，有用吗，又显示不了啊


为什么就不仔细看看



这样不是更直观吗

gzjx2002

我也喜欢双色球  可以探讨下，加我  记得  QQ52454357我就是EXCEL比较差但是我的思路比你的简洁

gzjx2002

我喜欢双色球  我怎么样把1到33分三个区  11数为一个区，   我只要输入一个231的区号他就能自动提取出来，当然 了这样的区号组合和多 222 231  333  321    123    321   等等等

香川群子

gzjx2002 发表于 2012-6-20 19:24
我喜欢双色球  我怎么样把1到33分三个区  11数为一个区，   我只要输入一个231的区号他就能自动提取出来，当 ...

1到33分三个区  11数为一个区……


这个可以理解为：
1-33个元素任意取6个元素共有=Combin(33,6)=1107568
第1个元素为 1-11 分为第1个区 有1032955个组合，占全部1107568中的93.26%

第1个元素为12-22 分为第2个区 但只有74151个组合，仅占全部1107568中的 6.69%

第1个元素为23-33 分为第3个区 但只有462个组合，仅占全部1107568中的 0.04%



呵呵，因为：虽然每一个数字在全部组合中出现的次数完全相同，
但在每一个组合中按从小到大排序以后，则第一个数字的出现并非均匀的。

…………


然后的问题是：
231区号是啥意思？

333又是啥意思？不是每一个数只能出现一次么？

香川群子

庚辰兔 发表于 2013-9-21 21:28
请指教，此代码在一张工作表显示，如何把剩下的组合显示到下一张工作表中呢，多谢！

可以做到，但完全没有意义。

110多万的数据，你输出这些结果又有啥用呢？
难道还要打印出来看么？


既然没有意义，所以也不给你写代码了。

庚辰兔

香川群子 发表于 2012-2-13 00:53
组合结果分成6列输出的代码：

请指教，此代码在一张工作表显示，如何把剩下的组合显示到下一张工作表中呢，多谢！

老谭酸菜

香川群子 发表于 2012-2-13 00:28
顺便说，你的代码改了以后，很愚蠢。

类似于 If a = b Then b = b + 1

怎么不可能？我还用过 If 1=2 Then ....呢。{:soso_e128:}

香川群子

老谭酸菜 发表于 2013-9-22 22:42
怎么不可能？我还用过 If 1=2 Then ....呢。

嗯，酸菜你是说你曾经比楼主更愚蠢？呵呵。

老谭酸菜

香川群子 发表于 2013-9-23 08:49
嗯，酸菜你是说你曾经比楼主更愚蠢？呵呵。

{:soso_e123:}

群子难道没这样用过？
On Error Goto lab1
      .....

    if 1=2 then
lab1:
       ....
   End If
On Error Goto 0

C和SQL语句里我都这样用过啦！
孤陋寡闻！{:soso_e128:}