Перенос данных из строк в столбец - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д