How to generate permutated number ?

[ryan8200]

If I type 1234, excel with generate & permutate 24 sets of numbers like 1234,1243,1324,1342,1423,1432, 2134,2143, 2314,2341, 2413,2431,3124,3142,3214,3241,3412,3421,4123, 4132,4213,4231,4312,4321.

Is that possible to conduct in Excel ?

 

[mikerickson]

What code have you tried to get an input box to input the values in A1:D1?

Conditional formatting can hide the #N/A errors.

 

[ryan8200]

Option Explicit
Dim var As New Collection
Dim CurrentRow As Long
Sub Perm()

Dim InString As String
InString = InputBox("Enter text to permute:")

 

[mikerickson]

The you could use Split and put in in the range.

 

[mikerickson]

To get rid of the #N/A and put each into its own cocatenated cell, you could alter UniquePermutations.

Function UniquePermutes(BaseArray As Variant)
    Dim Permuting As Variant
    Dim i As Long, j As Long, Pointer As Long
    Dim scoreKeeper() As String
    Dim tempArray As Variant
    
    If TypeName(BaseArray) = "Range" Then
        If BaseArray.Cells.Count = 1 Then
            BaseArray = Array(BaseArray.Value)
        ElseIf BaseArray.Rows.Count = 1 Then
            BaseArray = Application.Transpose(Application.Transpose(BaseArray.Value))
        ElseIf BaseArray.Columns.Count = 1 Then
            BaseArray = Application.Transpose(BaseArray.Value)
        Else
            UniquePermutes = CVErr(xlErrValue)
        End If
    ElseIf Not (BaseArray) Like "*()" Then
        UniquePermutes = CVErr(xlErrNum)
    End If
    
    Permuting = Permutations(UBound(BaseArray))
    ReDim scoreKeeper(1 To UBound(Permuting))
    
    tempArray = BaseArray
    For i = 1 To UBound(Permuting)
        For j = 1 To UBound(tempArray)
            tempArray(j) = BaseArray(Permuting(i)(j))
        Next j
        If IsError(Application.Match(Join(tempArray), scoreKeeper, 0)) Then
            Pointer = Pointer + 1
            scoreKeeper(Pointer) = Join(tempArray)
        End If
    Next i
    
    UniquePermutes = scoreKeeper()
 
End Function