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

[Joyst1k]

Есть столбец со значениями как его сделать строкой? Т.е. развернуть с вертикали на горизонталь.
Если это возможно то после каждых 3-х значений делать перенос на новую строку.

Были значения A1 A2 A3 A4 A5 A6 A7 A8 A9 A10
А после A1(A1) A2(B1) A3(C1) A4(A2) A5(B2) A6(C2) A7(A3) A8(B3) и т.д.
Буду благодарен за помощь

[Alkaline]

Просто транспонирование не подойдет? - это за 2 клика. А так, можно, конечно, и по 3 столбцам.

[SAS888]

Так пойдет?

Sub Transp_3()
Dim Dan()
Dim A As Long, i As Long, j As Long, x As Integer, y As Long
A = ActiveSheet.Range("A65536").End(xlU p).Row
x = Int(A / 3 + 1)
ReDim Dan(1 To A)
For i = 1 To A
Dan(i) = Cells(i, 1)
Next i
Range(Cells(1, 1), Cells(A, 1)).ClearContents
y = 1
For j = 1 To x
For i = 1 To 3
Cells(j, i) = Dan(y)
y = y + 1
If y > A Then Exit Sub
Next i
Next j
End Sub

[Joyst1k]

Высказываю свою огромную благодарность.
А возможно ли теперь сделать обратное?

[SAS888]

Обратно:

Sub ReTrans_3()
Dim A()
Dim i As Long, LastRow As Long, x As Long, j As Long
LastRow = ActiveSheet.Range("A65536").End(xlU p).Row
ReDim A(1 To LastRow * 3)
x = 1
For i = 1 To LastRow
For j = 1 To 3
A(x) = Cells(i, j)
x = x + 1
Next j
Next i
Range(Range("A1"), Cells(LastRow, 3)).ClearContents
For i = 1 To 3 * LastRow
Cells(i, 1) = A(i)
Next i
End Sub

Необходимо заметить, что оба макроса будут корректно работать, при условии, что в столбце "А" под таблицей далее пусто.

[Pavel55]

Ребята, плиз, берите свой код в тэги [code] КОД [./code] (только без точки внутри), неудобно же читать код!

[Alkaline]

Да ладно! А мне вот удобно так, как в редакторе VBA. ";-) Видно, не привык еще.

А зачем ты точку во фразе [cоde] КОД [/cоde] поставил?

PS: Этот пост лучше читать без смайликов. ":-)

Всех с пятницей!

[Pavel55]

OFFTOPIC
)) кого с пятницей... а кого и со второй трудовой неделей. Работаю без выходных с 28 Ноября и буду до 15 Декабря ((( командировка в Китай (( Уже тошнит от вида их еды, риса и палочек ((

[Alkaline]

Ух ты, прикольно! Ну, кушай пельмени, они и у нас привычные. И не закапывайся, Саид!

[Natusya]

Сообщение от Joyst1k

Есть столбец со значениями как его сделать строкой? Т.е. развернуть с вертикали на горизонталь.
Если это возможно то после каждых 3-х значений делать перенос на новую строку.

Были значения A1 A2 A3 A4 A5 A6 A7 A8 A9 A10
А после A1(A1) A2(B1) A3(C1) A4(A2) A5(B2) A6(C2) A7(A3) A8(B3) и т.д.
Буду благодарен за помощь

А как сделать, чтобы трансонировать таким же точно образом столбец "I"? Можно на новый лист.