怎么在EXCEL中把13个数中选3个数的所有排列列出来（可以重合,比如111、222）,共有13*13*13=2197种.一共是13个乒乓球（每个球都编号从1号到13号）每个球都代表一个参数,依次是：4、4.5、5、5.2、5.

Question

怎么在EXCEL中把13个数中选3个数的所有排列列出来（可以重合,比如111、222）,共有13*13*13=2197种.
一共是13个乒乓球（每个球都编号从1号到13号）每个球都代表一个参数,依次是：4、4.5、5、5.2、5.4、5.6、5.8、6、6.2、6.4、6.6、6.8、7.每次选3个球,球号可以重合
在这2197种组合中 有多少种组合算出来的参数和相等?我想用EXCEL表把所有组合都列出来.

Answer 1

写个VBA吧,很容易完成
把13个数字放在A1-A13中
写个宏
Sub pj()
For i = 1 To 13
For j = 1 To 13
For k = 1 To 13
Cells((i - 1) * 13 * 13 + (j - 1) * 13 + k,2) = Cells(i,1) & "、" & Cells(j,1) & "、" & Cells(k,1)
Cells((i - 1) * 13 * 13 + (j - 1) * 13 + k,3) = Cells(i,1) + Cells(j,1) + Cells(k,1)
Next k
Next j
Next i
End Sub
执行宏,B列是各种组合,C列是对应计算结果