Hello,
I have a file with near 1000 lines.
I need to shuffle cells.
But there is dependence.
Every two lines should be mixed in the same order.
For example I have a table:
1-2-3-4-5-6-7-8
1-2-3-4-5-6-7-8
1-2-3-4-5-6-7-8
1-2-3-4-5-6-7-8
1-2-3-4-5-6-7-8
1-2-3-4-5-6-7-8
And on exit I need
2-5-7-4-6-8-1-3
2-5-7-4-6-8-1-3
5-6-3-1-2-7-8-4
5-6-3-1-2-7-8-4
3-8-1-2-7-6-4-5
3-8-1-2-7-6-4-5
I know how to mix cells randomly,
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
But how to do it in that case I don't know.
I will be very glad if someone help me.
Thank you for your answers.
Bookmarks