Строку сделать столбцом

[SAS888]

А если чуть-чуть подумать?
Неужели слишком не понятно сделано?
По всему коду заменить ссылки на столбец и все. Специально для удобства сделал так, что сначала формируется массив, а затем (из этого массива) можно данные вставлять куда угодно: на новый лист, в новую книгу и т.д.
Нужно подробнее?

[Natusya]

Ну, не программист я. Попробовала заменить A на I , не работает, ругается! Вам же не сложно, выложить готовый код...

[SAS888]

Попробуйте не просто использовать, а разобраться.

Sub Transp_3()

    Dim Dan() 'объявляем массив
    Dim A As Long, i As Long, j As Long, x As Integer, y As Long
    Const Nstolb = 9 'номер нужного столбца
    
    A = ActiveSheet.Range("I65536").End(xlUp).Row 'последняя строка в столбце "I"
    'Если данные в другом столбце, то вместо "I65536" вставить что нужно
    x = Int(A / 3 + 1) 'количество троек данных для последующей вставки данных
    ReDim Dan(1 To A) 'определяем размерность массива
    For i = 1 To A
        Dan(i) = Cells(i, Nstolb) 'формируем массив
    Next i
    Range(Cells(1, Nstolb), Cells(A, Nstolb)).ClearContents 'очистка ячеек
    
'Вставляем данные в "Лист2", начиная с ячейки "I1"
    Sheets("Лист2").Select 'выбираем нужный лист
    y = 1 'индекс массива
    For j = 1 To x 'количество троек данных
        For i = 0 To 2 'строка из трех данных
            Cells(j, Nstolb + i) = Dan(y) 'вставка из массива
            y = y + 1 'инкремент индекса массива
            If y > A Then Exit Sub 'если все - выходим раньше
        Next i
    Next j
End Sub

[Natusya]

Огромное спасибо! С комментариями всё гораздо понятнее. Правда, мне надо было строки не из 3, а из 5 значений, но с этим-то уж я разобралась. Ещё раз благодарю за отзывчивость!