1到10数字每5个数为一组不重复

问：EXCEL 1--10个数字不重复具体排列组合

1. 答：1、首先打开电脑上的excel表格，然后统计不重复的个数。
   2、然后使用公式，=SUMPRODUCT(1/COUNTIF(A2:A9,A2:A9))。
   3、使用公式后统计不重复的个数，便于在数据量大的情况下使用公式。
   4、提取不重复的内容C2单元格输入以下数组公式，按Ctrl+ Shift+Enter，向下复制。=INDEX(A:A,1+MATCH(,COUNTIF(C$1:C7,A$2:A$9),))&"。
   5、最后可以看到，使用公式提取不重复的内容的效果。
2. 答：条件1：不包含0
   条件2：不得有重复数字
   范围：12345~98765
   符合的数字有 57205个，
   右击工作表标签→查看代码，把下面的代码贴到VBE中，按F5运行，结果粘贴到A列
   Sub chiefzjh()
   Dim mStr$, i, k%, Tmp$, mDic
   Set mDic = CreateObject("scripting.dictionary")
   mStr = "123456789"
   For i = 12345 To 98765
   If InStr(i, "0") = 0 Then 'No "O" exit
   For k = 1 To 4 'No duplicate finger
   If 5 - Len(Replace(i, Mid(i, k, 1), "")) >= 2 Then Exit For
   Next k
   mDic.Add i, "" 'Add to Dic
   End If
   Next i
   i = mDic.Count
   Range("a1").Resize(i, 1) = WorksheetFunction.Transpose(mDic.keys)
   End Sub
3. 答：不用VB不好弄的！我用一种比较笨的算法，然后用VBA生成的，自己看附件哈，应该就是你说的那样的，
   Option Explicit
   Sub combin()
       Dim i, j, l, k, n, m
       For i = 1 To 6
           For j = i + 1 To 7
               For l = j + 1 To 8
                   For k = l + 1 To 9
                       For n = k + 1 To 10
                           m = m + 1
                           Sheet1.Range("a" & m) = i & " " & j & " " & l & " " & k & " " & n
                       Next n
                   Next k
               Next l
           Next j
       Next i
   End Sub

问：1到10号码复式5个号码一组不能重复

1. 答：这个很简单啊，就是排列组合问题：
   答案为A(10,5)=10*9*8*7*6/(5*4*3*2*1)=908组

问：求5个1~10的数字的所有排列组合，不能重复。

1. 答：A(10,5)=10*9*8*7*6= 30 240
2. 答：你是想问 有多少种排了组合吧？
3. 答：58496,25843,74125,95123,65419

本文来源: https://www.lw90.cn/article/9d9e40533102a5fbbde4bac1.html