Remove duplicates from all columns.

Hi all

I have been looking around for a code to remove duplicates from multiple columns however none appear to do what I need.
Even the Remove Duplicate from the data tab does not help me.

What I have:
There are several columns of numbers which are separated by a full stop.
The number of column's will not be able to be predetermined.

What I need:
I need a vba code that will look at the entire sheet and remove any duplicated cells and leave only one of the cells (which was duplicated).
Then To save space on the sheet, I would also like it to re-order the sheet from smallest to largest. (this would move cells to different columns if needed)

attached is an example

Thanks, looks great.

Is it possible to adjust it slightly to conform with the following situation?

Sheet1 is continuously updated with new numbers on a loop basis (until the last row on the sheet it filled)
Once an entire column of numbers in generated, it is moved to sheet2 where another code (hopefully your one), sorts and removes duplicates.
After this process is complete, the data then moves to sheet3 (in the next available row), where another code is run to order the data from smallest to largest.

I hope to be able to insert the duplication code in the middle of this entire process.

Hope this makes sense

Hi again

Is it possible to change the following code, so it will paste the result by using all of a column before putting the results in the next available Col or cell?

Private Sub QuickSort(varr1ay As Variant, inLow As Long, inHi As Long)
  Dim pivot As Variant, tmpSwap As Variant, tmpLow As Long, tmpHi  As Long
  tmpLow = inLow
  tmpHi = inHi
  pivot = varr1ay((inLow + inHi) \ 2)
  While (tmpLow <= tmpHi)
    While (varr1ay(tmpLow) < pivot And tmpLow < inHi): tmpLow = tmpLow + 1: Wend
    While (pivot < varr1ay(tmpHi) And tmpHi > inLow): tmpHi = tmpHi - 1:    Wend
    If (tmpLow <= tmpHi) Then
       tmpSwap = varr1ay(tmpLow)
       varr1ay(tmpLow) = varr1ay(tmpHi)
       varr1ay(tmpHi) = tmpSwap
       tmpLow = tmpLow + 1
       tmpHi = tmpHi - 1
    End If
  Wend
  If (inLow < tmpHi) Then QuickSort varr1ay, inLow, tmpHi
  If (tmpLow < inHi) Then QuickSort varr1ay, tmpLow, inHi
End Sub
Sub Test()
  Dim coll As New Collection, arr1(), arr2(), i As Long, j As Long, k As Long, v
  With Range("A1").CurrentRegion
    arr1 = .Value
    On Error Resume Next
       For j = 1 To UBound(arr1, 2)
           For i = 1 To UBound(arr1, 1)
               coll.Add Key:=CStr(arr1(i, j)), Item:=arr1(i, j)
           Next i
       Next j
    On Error GoTo 0
    ReDim arr2(1 To coll.Count)
    k = 0
    For Each v In coll
        k = k + 1
        arr2(k) = v
    Next v
    QuickSort arr2, 1, UBound(arr2)
    ReDim arr1(1 To UBound(arr1, 1), 1 To UBound(arr1, 2))
    k = 0
    For j = 1 To UBound(arr1, 2)
        For i = 1 To UBound(arr1, 1)
            k = k + 1
            If k > UBound(arr2) Then GoTo skipper
            arr1(i, j) = arr2(k)
        Next i
    Next j
skipper:
    .Offset(, 7).Value = arr1
  End With
End Sub