Randomly shuffle columns

**Savan87** · 06-10-2011, 08:55 AM

I have 1000 columns which I would like to individually shuffle one by one, is anyone aware of a VBA script that would allow me to do so without repeatedly using =Rand() and then manually sorting by it.

Regards

**Domski** · 06-10-2011, 09:13 AM

Maybe:

Sub test()

Rows(1).Insert
Range("A1").Resize(1, Cells(2, Columns.Count).End(xlToLeft).Column).Formula = "=RAND()"
Range("A1").CurrentRegion.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, Orientation:=xlLeftToRight
Rows(1).Delete

End Sub

Dom

**Savan87** · 06-10-2011, 09:19 AM

I dont believe that resolves what I'm trying to achieve,

I want each column to be shuffled randomly so that the order of the values changes but the overall properties of that column stay the same average, range, min, max etc.

I believe that code you posted, changes the columns properties

Thanks very much for your quick reply

**Domski** · 06-10-2011, 09:24 AM

I'm not sure I follow, could you post an example workbook with the formula that you think are effected?

Dom

**Savan87** · 06-10-2011, 09:29 AM

Basically what I want to do is randomly shuffle the values in column A so they are in a new order, I then want to shuffle B so that the values are in a new order and so on

Thanks alot