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