Загальні відомості
У програмі Microsoft Excel можна скористатися макросу використовується дані у двох стовпцях, поряд із ним і відображається у стовпці праворуч від стовпців, які містять дані. Ця стаття містить на зразок Microsoft Visual Basic для застосунків (VBA) макросу (з підпрограма) для цього.
Додаткові відомості
Корпорація Майкрософт надає приклади програмного коду тільки для ілюстрації, без гарантій – прямих або інших. Це включає, але не обмежується, будь-яких гарантій придатності до продажу та придатності для певної мети. У цій статті припускається, що ви знайомі з, що демонструє мову програмування та інструменти, які використовуються для створення та налагодження процедури. Співробітники служби підтримки корпорації Майкрософт можуть пояснити функціональні особливості кожної конкретної процедури. Проте вони не будуть змінювати приклади для реалізації додаткових можливостей або створювати процедури на вимогу окремих користувачів.
Приклад, 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, які використовуються в кінці першого твердження стосується рядків, стовпців один і форми, які використовуються у прикладах довідки.
Використання макросу, у 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 макрос і виберіть запустити.
Посилання
Щоб отримати додаткові відомості про Visual Basic для застосунків клацніть номер статті в базі знань Microsoft Knowledge Base:
Список ресурсів, які допоможуть у вивченні Visual Basic для застосунків, що програмування 226118
