如何写函数或VBA实现全排列

bl5062

比如在A1格输入123在B1:B6分别出现
123
132
213
231
312
321

bl5062

http://baike.baidu.com/view/1710135.htm
全排列就是给定的4个元素时有24种排列，5个元素时120种。
网址那里也有的VB代码我没调试成功。

兰色幻想

全排列是啥样子，你举列子是三个字符的

bl5062

谢谢兰色幻想，但这个不是全排列，是大于等于3个时的取其中3个元素来排列。全排列的行数是长度N的阶乘，希望兰色幻想稍微改下，我可能要研究好久才回改~·

兰色幻想

Sub dd()
Dim arr(1 To 1000, 1 To 1), arr1()
Dim x, y, z, k, num, j
num = Len([a1])
ReDim arr1(1 To Len([a1]))
For j = 1 To Len([a1])
arr1(j) = Mid([a1], j, 1)
Next j
For x = 1 To num
  For y = 1 To num
    For z = 1 To num
   If x <> y And x <> z And y <> z Then
    k = k + 1
    arr(k, 1) = arr1(x) & arr1(y) & arr1(z)
   End If
Next z, y, x
Range("b1").Resize(k) = arr
End Sub