怎么用excel 进行任选的5个数字不重复的排列组合

不用VB不好弄的！我用一种比较笨的算法，然后用VBA生成的，自己看附件哈，应该就是你说的那样的，
Option ExplicitSub 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 iEnd Sub

来了许朋友第一句话即是赔钱了
玩 彩的朋友必须要知道一点就是哪里
存在概率那么就遵循大数定理
每次赚取本金的20为宜
定好的计划要执行计划不要东跟一下西跟一下
一来考验你个人的耐心二来考验所跟的计划
不中，在计算多少倍回本，做倍投。玩这个不倍 投！
是扯淡，只是不盲目去倍 投，跟计划，彩出号
频率是根据大数定理计算的，有规律，定律的哦。
随便感谢下带我的朋友 799+888+17
玩 彩很厉害空 间有很多玩彩知识
------------------------------------------------

一般式就不用推理了吧.
顶点式：运用配方,加上一次项系数一半的平方,再减去一次项系数一半的平方,然后运

用完全平方式得到：y=a(x-b/2a)+(4ac-b⒉)/4a
两根式：如果一个函数的值为0,也就是y=0,那么x1,x2就是函数的零点,如果1个方程的

2跟已知,那么因式分解的结果一定是(x-x1)(x-x2)=0,比如一个方程2跟为2,3,那么分

解出来的就是(x-2)(x-3)=0,那么乘以系数a,就是函数图象了,y=a(x-x1)(x-x2)

也想学习

Sub 组合() intRow = 1 Dim arr1(4) For i = 1 To 10 arr1(0) = i For j = 1 To 10 If (arr1(0) < j) Then arr1(1) = j For k = 1 To 10 If (arr1(0) < k And arr1(1) < k) Then arr1(2) = k For l = 1 To 10 If (arr1(0) < l And arr1(1) < l And arr1(2) < l) Then arr1(3) = l For m = 1 To 10 If (arr1(0) < m And arr1(1) < m And arr1(2) < m And arr1(3) < m) Then arr1(4) = m Cells(intRow, 1).Value = Join(arr1, " ") intRow = intRow + 1 End If Next End If Next End If Next End If Next NextEnd Sub如果是要排列，则把所有的<都改成<>

=RANDBETWEEN(1,33)&"-"&RANDBETWEEN(1,33)&"-"&RANDBETWEEN(1,33)&"-"&RANDBETWEEN(1,33)&"-"&RANDBETWEEN(1,33)&"-"&RANDBETWEEN(1,33)

也就是用&把RandBetween串起来，当然，横杠只是分隔符，你可以换别的

1、首先打开电脑上的excel表格，然后统计不重复的个数。

2、然后使用公式，=SUMPRODUCT(1/CO来自UNTIF(A2:A9,A2:A9))。

3、使用公式后统计不重复的个数，便于在数据量大的情况下使用公式。

4、提取不重复的C2单元格输入以下数组公式，按Ctrl+ Shift+Enter，向下复制。=INDEX(A:A,1+MATCH(,C360问答OUNTIF(C$1:C7,A$2:A$9),))&"。

5、最后可以看到，使用公式提取不重复的的效果。

条件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