excel中,实现排列组合,这个怎么弄?

2024-05-09 23:05

1. excel中,实现排列组合,这个怎么弄?

用VBA解决,ALT+F11打开VBA编辑器,插入模块,将以下代码粘贴,按F5运行,C列为“一:”的结果,D列为“二:”的结果。
Sub sort()
Dim i, j, k1, k2, k3, k4, m As Integer
Sheet1.Activate
Range("C:C").Clear
i = Range("a65535").End(xlUp).Row
j = Range("b65535").End(xlUp).Row
m = 1
For k1 = 1 To i
  For k2 = 1 To j
    For k3 = k2 + 1 To j
       Cells(m, 3) = Cells(k1, 1) & Cells(k2, 2) & Cells(k3, 2)
       m = m + 1
    Next
  Next
Next
Range("D:D").Clear
m = 1
For k1 = 1 To i
  For k2 = 1 To j
    For k3 = k2 + 1 To j
        For k4 = k3 + 1 To j
          Cells(m, 4) = Cells(k1, 1) & Cells(k2, 2) & Cells(k3, 2) & Cells(k4, 2)
          m = m + 1
        Next
    Next
  Next
Next
End Sub


excel中,实现排列组合,这个怎么弄?

2. 如何用excel实现排列组合?大神在哪里啊啊啊啊啊啊

用VBA解决,ALT+F11打开VBA编辑器,插入模块,将以下代码粘贴,按F5运行,C列为“一:”的结果,D列为“二:”的结果。
Sub sort()
Dim i, j, k1, k2, k3, k4, m As Integer
Sheet1.Activate
Range("C:C").Clear
i = Range("a65535").End(xlUp).Row
j = Range("b65535").End(xlUp).Row
m = 1
For k1 = 1 To i
  For k2 = 1 To j
    For k3 = k2 + 1 To j
       Cells(m, 3) = Cells(k1, 1) & Cells(k2, 2) & Cells(k3, 2)
       m = m + 1
    Next
  Next
Next
Range("D:D").Clear
m = 1
For k1 = 1 To i
  For k2 = 1 To j
    For k3 = k2 + 1 To j
        For k4 = k3 + 1 To j
          Cells(m, 4) = Cells(k1, 1) & Cells(k2, 2) & Cells(k3, 2) & Cells(k4, 2)
          m = m + 1
        Next
    Next
  Next
Next
End Sub

3. 如何用EXCEL进行数字排列组合?

用专门的计算组合数的函数,任意单元格中输入
=COMBIN(10,6)
就可以了。不过这个函数如果在03版中使用,需要安装加载项,07以上版本中可以直接使用

如何用EXCEL进行数字排列组合?

4. excel中,实现排列组合。

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 = 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, 2) & "," & arr(C5, 2) & "," & arr(C6, 2)
If rr = num Then Exit Function
Next
Next
Next
Next
Next
Next
End Function

5. excel中,实现排列组合,这个怎么弄?

数据在sheet1吧,鼠标右击sheet1的标签【查看代码】在代码窗口粘贴下列代码:
sub
ouyangff()
for
i
=
2
to
[a65536].end(3).row
for
j
=
2
to
[b65536].end(3).row
for
k
=
2
to
[c65536].end(3).row
t
=
t
+
1
cells(t,
4)
=
cells(i,
1)
&
"-"
&
cells(j,
2)
&
"-"
&
cells(k,
3)
next
next
next
end
sub
按f5运行程序,按alt
+
f11
回到excel,去看看d列的结果吧!!!

excel中,实现排列组合,这个怎么弄?

6. excel数据5个一组排列组合?

结果太多了,COMBIN(100,5)的结果是75287520种,EXCEL装不下,最简单的代码是下面这样:


7. excel中,如何使用函数计算排列组合问题,怎么使用?

=COMBIN(10,2)
求组合数
COMBIN(元素总数,每个组合中包含的元素数目)
=PERMUT(10,2)
求排列数
PERMUT(元素总数,每个排列中包含的元素数目)

excel中,如何使用函数计算排列组合问题,怎么使用?

8. 怎么用excel计算排列组合的个数?

1、电脑打开excel,然后点击函数图标。

2、进入函数表格后,找到COMBIN公式,然后点击确定。

3、进入COMBIN后,对象总数中输入10,每个排列中的对象数输入6,然后单击确定。

4、确定函数后,就可以得到计算结果了。

最新文章
热门文章
推荐阅读