Как в Excel кучу столбцов добавить один под другой

Question

т. е. есть очень много столбцов в ряд. Надо чтоб они встали один под другой т. е. в один столбец

Владимир Горицин · Accepted Answer

Используйте макрос

Sub BuildColumn()
Dim SrcRng, SrcSht, SrcCol, x, h, u
Set SrcRng = Selection.Areas(1)
If SrcRng.Cells.Count = 1 Then
MsgBox "Выделите группу ячеек"
Exit Sub
End If
x = SrcRng.Cells(1, 1).Column
h = SrcRng.Cells.Rows.Count
u = SrcRng.Cells(1, 1).Row + h
If u + h * SrcRng.Cells.Columns.Count > 65536 Then
MsgBox "Ячейки не умещаются на лист"
Exit Sub
End If
Set SrcSht = SrcRng.Parent
For Each SrcCol In SrcRng.Columns
SrcCol.Copy
SrcSht.Paste (SrcSht.Cells(u, x))
u = u + h
Next
Application.CutCopyMode = False
End Sub

Можно посмотреть в действии вот в этом файле кучу столбцов добавить один под другой. xls

Лена Олейник · Answer

Не столбец под стобец не ставят, а добавляют строки