Blande celler vilkårlig

Lav en ekstra kolonne med denne formel:
=slump()
og sorter på denne kolonne

https://www.dropbox.com/s/s3fqsm5ns3vmkv2/Blande%20celler%20vilk%C3%A5rlig.xlsx?dl=0

denne macro:

"Område" er et navngivet område (200 celler)

Option Explicit
Dim Area As Range
Dim Arr() As Variant, TempArr() As Variant, NewArr(1 To 20, 1 To 10)
Dim cRow As Integer, cColumn As Integer, Count As Integer, Temp As Integer
Dim Tæller As Integer
Sub bland()
    Set Area = Range("Område")
    Arr = Area
    Count = 1
    ReDim TempArr(1 To 200)
    For cRow = LBound(Arr, 1) To UBound(Arr, 1)
        For cColumn = LBound(Arr, 2) To UBound(Arr, 2)
            TempArr(Count) = Arr(cRow, cColumn)
            Count = Count + 1
        Next
    Next
    Temp = 200
    For cRow = 1 To 20
        For cColumn = 1 To 10
            Count = Int((Temp - 1 + 1) * Rnd + 1)
            NewArr(cRow, cColumn) = TempArr(Count)
            For Tæller = Count To UBound(TempArr, 1) - 1
                TempArr(Tæller) = TempArr(Tæller + 1)
            Next
            If UBound(TempArr, 1) = 1 Then GoTo videre
            ReDim Preserve TempArr(1 To UBound(TempArr, 1) - 1)
            Temp = Temp - 1
        Next
    Next
videre:
    Area = NewArr
End Sub

https://www.dropbox.com/s/dk012hbiekrwkkj/Bland.xlsm?dl=0

Du kan nøjes med Randomize

Ja en problemstilling kan tilgåes på mange måder :D

Store-morten

Hvordan blander jeg med din fil ?
TAK

Som der står i celle C1

Skriv noget i en tom celle og tryk enter.
Eller dobbelt klik på C1 og tryk enter.
Eller tryk på F9

1000 tak