Аннотация
В Microsoft Excel макрос можно использовать для объединения данных в двух смежных столбцах и отображения результата в столбце справа от столбцов, содержащих данные. Эта статья содержит пример макроса Microsoft Visual Basic для приложений (VBA) (процедура Sub) для выполнения этой задачи.
Дополнительная информация
Корпорация Майкрософт предоставляет примеры программирования только для иллюстраций без гарантий, выраженных или подразумеваемых. Это включает, помимо прочего, подразумеваемые гарантии товарной пригодности или пригодности для конкретной цели. В этой статье предполагается, что вы знакомы с демонстрируемым языком программирования и средствами, используемыми для создания и отладки процедур. Инженеры службы поддержки Майкрософт могут помочь объяснить функциональные возможности конкретной процедуры. Однако они не будут изменять эти примеры для предоставления дополнительных функциональных возможностей или создания процедур в соответствии с вашими конкретными требованиями.
Пример макроса Visual Basic для приложений (VBA)
Sub ConcatColumns()
Do While ActiveCell <> "" 'Loops until the active cell is blank.
'The "&" must have a space on both sides or it will be
'treated as a variable type of long integer.
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). Формула. Их можно использовать с одинаковым успехом, если вы используете только текст и числа (не формулы). R1C1, используемый в конце первой инструкции, ссылается на строку 1, столбец 1 и является формой, используемой в примерах в справке.
Использование макроса в Microsoft Office Excel 2007
-
Откройте книгу, содержащую данные.
-
Нажмите клавиши ALT+F11, чтобы запустить редактор Visual Basic.
-
В меню Вставка щелкните Модуль , чтобы вставить модуль. Введите макрос в окне кода модуля.
-
В меню Файл выберите закрыть и вернуться в Microsoft Excel.
-
Выберите лист, содержащий данные, которые нужно объединить.
-
Щелкните верхнюю ячейку в правом столбце данных, которые нужно объединить. Например, если ячейки A1:A100 и B1:B100 содержат данные, щелкните ячейку B1.
-
Перейдите на вкладку Разработчик . Если вкладка Разработчик не отображается, выполните следующие действия.
-
Нажмите кнопку Microsoft Office, затем нажмите кнопку Параметры Excel.
-
Нажмите кнопку Популярные.
-
Щелкните, чтобы выбрать вкладку Показать разработчика в поле лента проверка.
-
Нажмите кнопку ОК , чтобы закрыть диалоговое окно Параметры Excel .
-
-
Щелкните Макросы в группе Код .
-
Выберите макрос ConcatColumns и нажмите кнопку Выполнить.
Использование макроса в Microsoft Office Excel 2003 и более ранних версиях Excel
-
Откройте книгу, содержащую данные.
-
Нажмите клавиши ALT+F11, чтобы запустить редактор Visual Basic.
-
В меню Вставка щелкните Модуль , чтобы вставить модуль. Введите макрос в окне кода модуля.
-
В меню Файл выберите закрыть и вернуться в Microsoft Excel.
-
Выберите лист, содержащий данные, которые нужно объединить.
-
Щелкните верхнюю ячейку в правом столбце данных, которые нужно объединить. Например, если ячейки A1:A100 и B1:B100 содержат данные, щелкните ячейку B1.
-
В меню Сервис наведите указатель мыши на пункт Макросы и выберите пункт Макрос. Выберите макрос ConcatColumns и нажмите кнопку Выполнить.
