Приветствую друзья! Прошу помощи с решением задачи. Есть вертикальная таблица, которую нужно транспонировать, и потом распечатать. Проблема в том, что при обычном транспонировании таблица растягивается горизонтально на несколько листов и приходится копировать несколько частей и вставлять друг под друга, чтобы можно было распечатать нормально. Не могу написать код, который бы транспонировал, например горизонтально не более 10 столбцов, следующую часть вставлял под них и так далее до окончания исходного списка данных.
Пример прикрепил. там более наглядно. Заранее благодарен за любую помощь
Данные в масив aData. Обработать в цикле с шагом 10, приблизительно так:
Код
ReDim aResult(1 To UBound(aData) / 10, 1 To 10)
For i = 2 To UBound(aData) Step 10
k = k + 1
For j = 1 To 10
aResult(k, j) = aData(i + j, 1)
aResult(k + 1, j) = aData(i + j, 2)
aResult(k + 2, j) = aData(i + j, 3)
Next j
k = k + 2
Next i
Nordheim, исходный диапазон может быть любой размерности. Результат, который нужно выводить- не более 10 столбцов. То есть может быть первая часть 10 столбцов, вторая тоже, а третья 3. Если в исходных данных , например было 23 строки
Нужно бежать со всех ног, чтобы только оставаться на месте, а чтобы куда-то попасть, надо бежать как минимум вдвое быстрее!