EXCEL排列组合1,2,3,4这四个数字,任选组成8位数,一共有几种,EXCEL怎么自动生成?
2012-12-28 13:53 ybb9903 | 分类:办公软件 | 浏览168次
那怎么排除比如1,1,1,1,1,1,1,1,或2,2,2,2,2,2,2.2,或,连续两个或两个以上相同号在一起的那种,怎么办。我也不希望,1和4排在一起,有没有办法。
提问者采纳
2012-12-28 14:18
在任意单元格输入:
=MOD(INT((ROW(A1)-1)/4^(8-COLUMN(A1))),4)+1
然后,横拉8的单元格。再下拉就好了。
一共有4的8次方,即65536组数据。
追问
高手,那怎么排除比如1,1,1,1,1,1,1,1,或2,2,2,2,2,2,2.2,或,连续两个或两个以上相同号在一起的那种,怎么办。我也不希望,1和4排在一起,有没有办法。(也就是不重复排列)
回答
不重复排列的话,用公式貌似做不出来。用vba可以实现。但我没用过那个,不知道怎么写。
或者你可以使用筛选的方式,将不重复的筛选出来。
设你的数据是从a1开始的,在i1输入:
=if(or(a1=b1,b1=c1,c1=d1,d1=e1,e1=f1,f1=g1,g1=h1),"该行数据有重复",if(or(and(a1=1,b1=4),and(a1=4,b1=1),and(b1=1,c1=4),and(b1=4,c1=1),and(c1=1,d1=4),and(c1=4,d1=1),and(d1=1,e1=4),and(d1=4,e1=1),and(e1=1,f1=4),and(e1=4,f1=1),and(f1=1,g1=4),and(f1=4,g1=1),and(g1=1,h1=4),and(g1=4,h1=1)),"该行数据有1、4连号",""))
下拉填充后,对i列进行筛选就好了。
请问,在Excel中怎么操作可以排列出由0,1,2,3,4,5,6,7,8,9,组成的10位数的排列组合啊?10个数字的全排列共有10!=3628800个,组合就只有C(10,10)=1个。
如果要全部组合(就是从1位到10位都做组合),就有2^10-1=1023个结果。
由于组合没有顺序之分,所以可以人为地给出1个顺序,例如,要求第5个组合,我们先给10个数编号,号码分别为1~A,得到是1个2位数的组合,按编排是13;同理,第6个组合是123,......第1023个组合为123456789A。计算方法如下:
先将序号转换为2进制值,5的2进制值是101,从最高位起,位值为1的,用位的序号作为编号取代位值;位值为0的放弃。101第1位和第3位是1,其余是0,用位序号取代得到的编号组合就是13;同理,6的2进制值为110,取代结果就是12;1023的2进制值为1111111111,取代结果就是123456789A。
用宏处理比较简单,先做一个自定义函数Z(n,x),计算第n个组合的2进制值,返回其第x位,再用循环过程,计算x=1~10时,f=Z(n,x)*x的值,将非0的f值合并即可。
全排列和选排列用循环语句可以实现,但意义似乎不大。
用excel在15个设定的数中,产生6个数字一组的随机排列组合
2009-06-28 16:03 又生活笑猪 | 分类:办公软件 | 浏览3504次
用excel在已设的15个数中 产生6个数字一组的随机排列组合,请教高手怎么做?
比如:2,5,8,9,13,16,18,19,20,21,22,25,27,29,31,这15个数中产生任意6个数为一组的排列组合,有多少种可能.
不要出现这样的可能:2 ,9,13,18,25,29和25,9,18,13,29,2和29,25,18,13,9,2等等这些从大到小排列是一样的要去掉.
或者别的有没有什么软件可以做?
谢谢了,我在网上怎么也不到答案,是不是有难度?
对不起,我没有积分
提问者采纳
2009-06-29 10:56
zhidao.baidu/question/99074525.html
看看这个类似的,我稍微给你改了下语句~~
打开一个EXCEL
按ALT+F11 组合键,打开VBA编辑器,选择这个表的名字,插入-模块。双击插入的模块。在出现的文本框中输入以下语句,然后关闭
Function ABC(arr As Range, num As Integer)
R = arr.Rows.Count
For C1 = 1 To R
For C2 = C1 + 1 To R
For C3 = C2 + 1 To R
For C4 = C3 + 1 To R
For C5 = C4 + 1 To R
For C6 = C5 + 1 To R
rr = rr + 1
ABC = arr(C1, 1) & "," & arr(C2, 1) & "," & arr(C3, 1) & "," & arr(C4, 1) & "," & arr(C5, 1) & "," & arr(C6, 1)
If rr = num Then Exit Function
Next
Next
Next
Next
Next
Next
End Function
关闭之后,
假如你的数据15个在A1:A15中,你可在任意的一个单元格中输入
=ABC($A$1:$A$15,INT(RAND()*COMBIN(15,6)))
就能随机出来一组数字了,用逗号隔开了~~
如果想都列出来,那就在任意单元格输入
=ABC($A$1:$A$15,ROW(A1)),公式往下拉就能出来了
首先,如果10个数组成3个一组结果是120组,那不叫排列,叫组合,如果是排列,将是720组
其次,组合函数 =COMBIN(10,3)
排列函数 =PERMUT(10,3)
如何在excel中算出0-9,10个数中任意4个数的排列组合,包含重复
2012-04-01 22:23 新鲜季 | 分类:办公软件 | 浏览247次
要在EXCEL中把这些组合都罗列出来!
提问者采纳
2012-04-01 23:07
=if(row(a1)<10000,text(row(a1),"0000"),"")下拉填充
窗体顶端
同问 求Excel排列组合的函数?M=1到11共11个数.N=5 五个数在分别在A,B,C,D,E列,要求数字不重复且a<b...<e
2013-03-14 16:04 匿名 | 分类:办公软件 | 浏览107次
如 只能 1.2.3.4.5排列  不能5.4.3.2.1
提问者采纳
2013-03-14 16:33
  组合问题: 11取5的组合数为462个, 需要用到三个公式
1.    先在B2手工输入1(图中红部分)
2.    C2公式(图中黄部分)
=IF($A$3>B2,B2+1,"")
  右拉到F2
3.    B3公式(图中绿部分)
=IF(COUNT($B$2:B2)>=COMBIN($A$2,$A$3),"",IF($B$2=$A$3,B2+1,IF(C2=($A$2+COLUMN(B1)-$A$3),B2+1,B2)))
4.    C3公式(图中蓝部分)
=IF($B3="","",IF(C$2=$A$3,IF(C2=$A$2,B3+1,C2+1),IF(C2=($A$2+COLUMN(B1)-$A$3),B3+1,IF(D2=($A$2+COLUMN(C1)-$A$3),C2+1,C2))))
  右拉到F3
  选中B3:F3下拉到470行
 
       表格结构参考下图
           
提问者评价
厉害!达人啊!刚试了第一步 回家继续试,有不懂的再请教~
你好!Excel 中1-20选任意5个数字排列组合怎样做。 比如1,2,3,4,5或者1,2,3,4,5,20等等
2011-10-24 23:18 121770a | 分类:办公软件 | 浏览902次
一共有15504个组合吧?并如何在excel表中一一把它列出来,请高手指教。谢谢!
提问者采纳
2011-10-25 07:42
下面程序只算出组合,没有排列
Sub 组合5in20()
    Dim I1, I2, I3, I4, I5, M
    M = 0
   
    For I1 = 1 To 16
        For I2 = I1 + 1 To 17
            For I3 = I2 + 1 To 18
                For I4 = I3 + 1 To 19
                    For I5 = I4 + 1 To 20
                        M = M + 1
                        Range("A" & M) = I1: Range("B" & M) = I2: Range("C" & M) = I3: Range("D" & M) = I4: Range("E" & M) = I5
                    Next
                Next
            Next
column函数公式怎么用        Next
    Next
End Sub
excel ,8个数字排列组合
2013-02-03 12:15 wopahei3 | 分类:办公软件 | 浏览149次
12345678,请问如何全部排列成6个不同数字的组合,并显示出来。
=COMBIN(8,6),这个公式一共28个。也就是如何把28个全都显示出来。
提问者采纳
2013-02-03 12:52
  A2输入8

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。