Резюме

В Microsoft Excel можете да използвате макрос за свързване на данни в две съседни колони и да се покаже резултата в колоната вдясно от колоните, които съдържат вашите данни. Тази статия съдържа примерен Microsoft Visual Basic за приложения (VBA) макрос (подпрограма) да постигнете това.

Допълнителна информация

Microsoft предоставя примери само за илюстративни цели без гаранция за определени цели. Това включва, но не е ограничено до, подразбиращи се гаранции за продаваемост или годност за определена цел. Тази статия се предполага, че сте запознати с демонстрирания език за програмиране и инструментите, които се използват за създаване и процедури за отстраняване на грешки. Инженерите на поддръжката на Microsoft могат да помогнат обяснение на функциите на конкретна процедура. Въпреки това те няма да модифицират тези примери с цел осигуряване на допълнителна функционалност или създаване на процедури за удовлетворение на конкретните ви изисквания.

Примерен Visual Basic for Applications (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

  1. Отворете работната книга, съдържаща данните.

  2. Натиснете ALT + F11, за да стартирате редактора на Visual Basic.

  3. В менюто Вмъкване щракнете върху модул , за да вмъкнете модул. Въведете макроса в прозореца на кода на модула.

  4. В менюто файл щракнете върху Затвори и се върни в Microsoft Excel.

  5. Изберете работния лист, съдържащ данните, които искате да се свързвам.

  6. Щракнете върху най-горната клетка в дясната колона с данни, които искате да се свързвам. Например ако A1:A100 и B1:B100 съдържа данни, щракнете върху клетка B1.

  7. Щракнете върху раздела разработчик . Ако разделът разработчик не се показва, изпълнете следните стъпки:

    1. Щракнете върху Бутона Microsoft Officeи след това изберете Опции на Excel.

    2. Щракнете върху популярни.

    3. Поставете отметка в квадратчето Показвай разработчик раздел на лентата .

    4. Щракнете върху OK , за да затворите диалоговия прозорец Опции на Excel .

  8. Щракнете върху макроси в групата код .

  9. Изберете макроса ConcatColumns и след това щракнете върху изпълнение.

Как да използвате макроса в Microsoft Office Excel 2003 и по-ранни версии на Excel

  1. Отворете работната книга, съдържаща данните.

  2. Натиснете ALT + F11, за да стартирате редактора на Visual Basic.

  3. В менюто Вмъкване щракнете върху модул , за да вмъкнете модул. Въведете макроса в прозореца на кода на модула.

  4. В менюто файл щракнете върху Затвори и се върни в Microsoft Excel.

  5. Изберете работния лист, съдържащ данните, които искате да се свързвам.

  6. Щракнете върху най-горната клетка в дясната колона с данни, които искате да се свързвам. Например ако A1:A100 и B1:B100 съдържа данни, щракнете върху клетка B1.

  7. В менюто инструменти посочете макросии след това щракнете върху макроса. Изберете макроса ConcatColumns и след това щракнете върху изпълнение.

Препратки

За повече информация за Visual Basic for Applications щракнете върху следния номер на статия в базата знания на Microsoft:

226118 списък с ресурси, които са на разположение да ви помогнат да научите Visual Basic for Applications програмиране

Нуждаете се от още помощ?

Разширете уменията си
Преглед на обучението
Получавайте първи новите функции
Присъединете се към Microsoft приобщени

Беше ли полезна тази информация?

Доколко сте доволни от качеството на превода?
Какво е повлияло на вашия потребителски опит?

Благодарим ви за обратната връзка!

×