Sort Unbound Rows

Solution without macros , only using Excel formulas, sorting by several columns and dividing a sheet of the Исходной таблицы into sheets:

Данные - contains data with additional columns having a formula for sorting;

Форму - displays data in the required format randomly.

In steps:

1. We have a sheet Исходная таблица

2. Create a Данные sheet, in front of the columns that need to be sorted in a random order, insert new columns with the functions СЛЧИСЛ() .

For example, the added columns: Сл Наименование товара , Сл Параметр 2 .

3. To sort by multiple columns, use Данные / Сортировка . In the example columns: Сл Наименование товара , Сл Параметр 2 .

Note: when you select ОК , the sorting function will be sorted and immediately recalculated СЛЧИСЛ() .

4. To display the data in the required format, create a Форма sheet.

5. To display the values ​​in the fields, we use the formula for the first row =ИНДЕКС(Данные!$A$1:$F$6;СТРОКА();3) , which refers to the second row of the third column of the Данные sheet. For correct display of the third and the following lines, the formula taking into account the offset of the lines - =ИНДЕКС(Данные!$A$1:$F$6;СТРОКА()/2+1;3)

6. It all works in the following way: the RINOUND () function assigns a random value to cells, when Сортировки applied on the Данные sheet, the order of values ​​in the cells is changed, the result of sorting by reference is displayed on the Форма sheet.

7. If necessary, the cells from the Форма sheet are copied and the values ​​are inserted on another sheet.

Solution using macros. The basic idea: the cell values ​​necessary for sorting are copied to the original array, which is sorted randomly (we get the resulting array) and then written to the table cells.

In steps:

1. Macro code

    Option Explicit ' включаем явное объявления всех переменных Option Base 1 ' объявляем нижнюю границу по умолчанию для индексов массивов ' основная идея: значения ячеек необходимые для сортировки копируем в исходный массив, ' который сортируется случайным образом (получаем результирующий массив) и далее ' записываем в ячейки таблицы Sub RandomOrderTable() Dim sSrtblClmn As String ' строка содержащая номер столбцов, в которых будет производиться сортировка ячеек Dim aSrtblClmn() As String ' массив для хранения номеров столбцов, в которых будет производится сортировка ячеек Dim aRw() As Variant ' исходный массив со значениями ячеек таблицы Dim aRndRw() As Variant ' результирующий массив со значениями элементов aRw отсортированных случайным образом Dim i As Integer Dim k As Integer Dim l As Integer ' индекс исходного массива (количества ячеек), который будет подвергнут сортировке Dim iLstRw As Integer ' количество строк исходной таблицы Dim iClrIndx As Integer ' значение индекса цвет заливки для строк не участвующих в сортировке iLstRw = Cells.SpecialCells(xlLastCell).Row ' определили количесвто строк исходной таблицы sSrtblClmn = "2;4" aSrtblClmn = Split(sSrtblClmn, ";") iClrIndx = Cells(2, 1).Interior.ColorIndex ' определили индекс цвета ячейки без заливки ' цикл перебора столбцов, которые будут копироваться в массив For i = LBound(aSrtblClmn) To UBound(aSrtblClmn) l = 1 ' цикл перебора строк, которые будут копироваться в массив For k = 1 To iLstRw ' проверяем фон ячейки, если заливки нет, то копируем значение ячейки в исходный массив If Cells(k, Int(aSrtblClmn(i))).Interior.ColorIndex = iClrIndx Then ' переопределяем массив и заносим значение ячейки в массив ReDim Preserve aRw(l) aRw(l) = Cells(k, Int(aSrtblClmn(i))).Value l = l + 1 End If Next k ' сортируем массив случайным образом и сохраняем результат в результирующем массиве aRndRw = SortRndArray(aRw) l = 1 ' записываем значения результирующего массива в ячейки For k = 1 To iLstRw If Cells(k, Int(aSrtblClmn(i))).Interior.ColorIndex = iClrIndx Then Cells(k, Int(aSrtblClmn(i))).Value = aRndRw(l) l = l + 1 End If Next k Next i End Sub ' функция случайной сортировки взята по ссылке http://hav.su/index.php?option=com_content&view=article&id=64:-2&catid=35:calc Function SortRndArray(A As Variant) As Variant 'B - массив-результат Dim B As Variant 'случайный индекс элемента массива Dim MyRndValue As Byte Dim i As Integer 'Max_i - максимальное количество элементов Dim Max_i As Integer Max_i = UBound(A, 1) ReDim B(LBound(A, 1) To UBound(A, 1)) As Variant 'заполнение выходного массива B 'в произвольном порядке выбирая их из A For i = LBound(A, 1) To UBound(A, 1) 'определение номера элемента из A MyRndValue = Int((Max_i * Rnd) + 1) 'занесение этого элемента в выходной массив B(i) = A(MyRndValue) 'замещение выбранного элемента из A последним элементом из A A(MyRndValue) = A(Max_i) 'понижение верхней границы массива 'т.о. "уменьшаем" размер массива на один элемент Max_i = Max_i - 1 Next i 'возвращаем массив значений B SortRndArray = B End Function 

2. Copy the macro code into the Excel ( Разработчик - Vsual Basic );

3. Source table:

4. Run the macro ( Alt+F8 )

5. We get the result: