Россия

Макрос VBA для сцепления колонок данных в Excel

Дата публикации: 04.01.2016

В Microsoft Excel можно использовать макрос для сцепления данных двух соседних колонок и показа результата в колонке, расположенной справа от колонок с данными.

 Пример:

 Sub ConcatColumns ()

  Do While ActiveCell <> ““ 'Повторение цикла до пустой активной ячейки.


     'Символ “&“ должен отделяться пробелами с двух сторон, или он будет
     'обрабатываться как переменная типа длинное целое.

     ActiveCell.Offset (0, 1).FormulaR1C1 = _
        ActiveCell.Offset (0, -1) & “» & ActiveCell.Offset (0, 0)

     ActiveCell.Offset (1, 0).Select
  Loop

End Sub

 
Примечание. Выражение ActiveCell.Offset (0, 1).FormulaR1C1 может быть заменено выражением ActiveCell.Offset (0, 1).Formula. Они могут использоваться с одинаковым успехом, если используется только текст и числа (не формулы). Адрес ячейки R1C1, используемый в конце первого выражения и означающий первую строку первой колонки, используется для примеров в справке.