excel 8个数以3个为一组，排列组合，如何显示其中全部

Question

如果有现成的Excel 表，最好了，求大神解答！谢谢

Answer 1

前八行是参加组合的8个数据（数字或字符）。

在表名上右击，查看代码，将代码贴入，执行。

执行后，从第20行显示结果。

Sub kk()

Dim a(8)

For i = 1 To 8

a(i) = Cells(i, 1).Value

Next i

Row = 20

 For i = 1 To 6

   For k = i + 1 To 7

      For j = k + 1 To 8

        Cells(Row, 1) = a(i)

        Cells(Row, 2) = a(k)

        Cells(Row, 3) = a(j)

        Row = Row + 1

        Next

        Next

        Next

 End Sub

供参考，祝顺利。

Answer 2

=INDEX(A$1:A$8,QUOTIENT(ROW()-1,64)+1)&INDEX(A$1:A$8,QUOTIENT(MOD(ROW()-1,64),8)+1)&INDEX(A$1:A$8,MOD(ROW()-1,8)+1)

下拉到第512行，一共有512个组合。

Answer 3

用VBA编程   很麻烦的

如果没做过一次   只好用现成的Excel表格

效果如图

追问

请帮上传一下现成的表格可以吗，跪谢

本回答被网友采纳