VBA-HELP.RU

В 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, используемый в конце первого выражения и означающий первую строку первой колонки, используется для примеров в справке.

 Источник: Сайт технической поддержки Майкрософт