Перенос данных из строк в столбец - VBA

Узнай цену своей работы

Формулировка задачи:

Господа, добрый день. Использую макрос для переноса данных из столбцов в один столбец (копирование) Option Explicit
*Этот макрос нашёл на форуме - работает прекрасно* Вопрос в том, как изменить данный макрос, чтобы он копировал все строки в один столбец. Буду рад помощи, т.к. пока только въезжаю в данную тему.

Решение задачи: «Перенос данных из строк в столбец»

textual
Листинг программы
Sub Test()
    Dim r As Range, iCol As Range
    Set r = [A2]
    On Error Resume Next
    For Each iCol In [B2:E14].Rows
        iCol.Copy
        r.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
        If Err.Number = 0 Then
            Set r = r.End(xlDown).Offset(1, 0)
        Else
            Err.Clear
        End If
    Next iCol
Application.CutCopyMode = False
    MsgBox "DONE"
End Sub

Оцени полезность:

15   голосов , оценка 3.867 из 5