Как добавить текст в начало или конец ячейки в Excel

Бывают случаи, когда необходимо добавить текст в начало или в конец ячеек в диапазоне. Например, вам необходимо добавить код города к набору телефонных номеров. Этот макрос демонстрирует, как можно автоматизировать задачи стандартизации данных, которые требуют добавления данных. 

Этот макрос использует два объекта Range, он проходит через целевой диапазон и активирует каждую ячейку. Каждый раз, когда ячейка активируется, макрокоманда прибавляет код города к началу значения ячейки. 

1. Шаг 1 объявляет две переменные объекта Range. 

2. При выполнении макрос уничтожает стек отката. Это означает, что вы не сможете отменить изменения, поэтому нужно сохранить книгу перед запуском макроса. Это делает Шаг 2.

3. Шаг 3 заполняет переменную MyRange с целевым диапазоном. 

4. Шаг 4 начинает цикл через каждую ячейку в целевом диапазоне. После того, как клетка активируется.

5. После того, как ячейка активируется, мы используем амперсанд (&), чтобы объединить код города с содержимым ячейки. Если вам нужно добавить текст в конец значения ячейки, нужно просто поместить амперсанд и текст в конце. Например, MyCell = MyCell & «добавлен текст». 

6. Шаг 6 повторяет цикл, чтобы получить следующую ячейку. После просмотра всех ячеек в целевом диапазоне макрос заканчивается. 

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

1. Активируйте редактор Visual Basic, нажав ALT + F11. 
2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта. 
3. Выберите Insert➜Module. 
4. Введите или вставьте код во вновь созданном модуле.