MISCHIARE NUMERI

Sub sortrange()
Dim arr() As Integer, arr1()
Dim first As Integer, last As Integer
Set orig = Range("A1:A20")
arr1 = orig.Value
first = orig.Row
last = first + orig.Rows.Count - 1
arr = RandomArray(first, last)
For r = first To last
  Cells(r, "A") = arr1(arr(r), 1)
Next

End Sub

Option Explicit

Sub Random()
Application.ScreenUpdating = False
Dim r As Byte, n As Byte, arNum() As Byte
Dim j As Integer
   
        ReDim arNum(1 To 20)
            For j = 1 To 20
                arNum(j) = j
            Next j
    For j = 20 To 1 Step -1
        r = Int((j * Rnd) + 1)
        n = arNum(r)
        arNum(r) = arNum(j)
        arNum(j) = n
        Cells(j, 1) = n
    Next j
        Erase arNum
Application.ScreenUpdating = True
End Sub

Option Explicit

Sub Cresecete()
Application.ScreenUpdating = False
Dim x As Byte

    For x = 1 To 20
        Cells(x, 1) = x
    Next x
Application.ScreenUpdating = False
End Sub

Option Explicit

Sub Random()
Application.ScreenUpdating = False
Dim r As Integer, n As Integer, arNum() As Integer, j As Integer, nx As Integer
    
    Columns("B:B").ClearContents
            nx = 1
        ReDim arNum(1 To 20)
            For j = 1 To 20
                If Cells(j, 1) <> "" Then
                    arNum(nx) = Cells(j, 1)
                        nx = nx + 1
                End If
            Next j
    For j = nx - 1 To 1 Step -1
        r = Int((j * Rnd) + 1)
        n = arNum(r)
        arNum(r) = arNum(j)
        arNum(j) = n
        Cells(j, 2) = n
    Next j
        Erase arNum
Application.ScreenUpdating = True
End Sub

Option Explicit

Sub Random()
Application.ScreenUpdating = False
Dim r As Integer, n As Integer, arNum() As Integer, j As Integer, nx As Integer
    
    Columns("B:B").ClearContents
            nx = 1
        ReDim arNum(1 To 20)
            For j = 1 To 20
                If Cells(j, 1) <> "" Then
                    arNum(nx) = Cells(j, 1)
                        nx = nx + 1
                End If
            Next j
    For j = nx - 1 To 1 Step -1
        r = Int((j * Rnd) + 1)
        n = arNum(r)
        arNum(r) = arNum(j)
        arNum(j) = n
        Cells(j, 2) = n
    Next j
        Erase arNum
        
    Columns("B:B").Select
    ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add Key:=Range("B1:B20"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveSheet.Sort
        .SetRange Range("B1:B20")
        .Apply
    End With
    Range("B1").Select
Application.ScreenUpdating = True
End Sub

Option Explicit

Sub Random()
Application.ScreenUpdating = False
Dim PRg As Byte, Cln As Byte, URg As Byte	'	se il numero di Righe da valutare supera le 255 Righe, definire come Integer
Dim r As Integer, n As Integer, j As Integer, nx As Integer, nxx As Integer
Dim ArNum() As Integer

    PRg = ActiveCell.Row
    Cln = ActiveCell.Column
    URg = PRg
        Do While Cells(URg, Cln) <> ""
            URg = URg + 1
        Loop
            URg = URg - 1
        Range(Cells(PRg, Cln + 2), Cells(URg, Cln + 2)).ClearContents
            nx = 1            
ReDim ArNum(URg)
        For j = PRg To URg
            If Cells(j, Cln) <> "" Then
                ArNum(nx) = Cells(j, Cln)
                    nx = nx + 1
            End If
        Next j
            nx = nx - 1
            nxx = URg
        For j = nx To 1 Step -1
        r = Int((j * Rnd) + 1)
        n = ArNum(r)
        ArNum(r) = ArNum(j)
        ArNum(j) = n
        Cells(nxx, Cln + 2) = ArNum(j)
            nxx = nxx - 1
    Next j
        Erase ArNum
    Cells(PRg, Cln).Select
Application.ScreenUpdating = True
End Sub

Function RandomArray(first As Integer, last As Integer) As Integer()
Dim i As Integer, J As Integer, temp As Integer
ReDim result(first To last) As Integer
For i = first To last: result(i) = i: Next
For i = last To first Step -1
  J = Rnd * (last - first + 1) + first
  If J > last Then J = last
  temp = result(i): result(i) = result(J): result(J) = temp
Next
RandomArray = result
End Function