EXCEL，如何做文字的任意组合？

来源：百度知道 编辑：UC知道 时间：2024/06/03 14:52:38
各位前辈，我是个菜鸟，弱弱的请教一个EXCEL的组合问题。盼回复，感激ING……

我的问题：

我有“金 银 铜 铁”四个汉字，如果任意组合，就可以得到“金银 铜铁 金银铜 金银铜铁 金铜铁 金铁……”

我想用EXCEL自动列出这所有的组合，如何实现呢？

在线等回复，期盼期盼……感激感激……
请高手一定帮帮忙……
我会再追加分的啊

我编了一个宏,你可以运行看看
Sub abc()
a = " 金银铜铁"
n = 1
For i = 0 To 4
For j = i + 1 To 4
Cells(n, "A") = Trim(Mid(a, i + 1, 1) & Mid(a, j + 1, 1))
n = n + 1
Next j
Next i
For i = 0 To 4
For j = i + 1 To 4
For k = j + 1 To 4
For l = k + 1 To 4
Cells(n, "A") = Trim(Mid(a, i + 1, 1) & Mid(a, j + 1, 1) & Mid(a, k + 1, 1) & Mid(a, l + 1, 1))
n = n + 1
Next l
Next k
Next j
Next i
End Sub

哇噻，请教的问题不简单呀，我也期盼哪位高手能解决这个问题
不过我有一个函数可以统计有多少组合，但是无法自动列出他们
=(COMBIN(4,2))+COMBIN(4,3)+COMBIN(4,4)