Excel макрос добавить текст

Skip to content

Sub DobavitTekst()
'Шаг 1: Объявляем переменные
Dim MyRange As Range
Dim MyCell As Range
'Шаг 2: Сохранить книгу прежде,чем изменить ячейки?
Select Case MsgBox("Перед изменением ячеек. " & _
"Сохранить книгу?", vbYesNoCancel)
Case Is = vbYes
ThisWorkbook.Save
Case Is = vbCancel
Exit Sub
End Select
'Шаг 3: Определение целевого диапазона
Set MyRange = Selection
'Шаг 4: Запускаем цикл по диапазону
For Each MyCell In MyRange
'Шаг 5: Убедитесь, что ячейка имеет формат текста
If Not IsEmpty(MyCell) Then
MyCell = "(972) " & MyCell
End If
'Шаг 6: Получите следующую ячейку в диапазоне
Next MyCell
End Sub

Иногда вам может потребоваться добавить один и тот же конкретный текст в начало или конец всех ячеек в выделенном фрагменте. Если вы добавляли текст в каждую ячейку вручную по одной, это должно занять много времени. Есть способы попроще? Да, есть много простых приемов добавления одного и того же текста в начало или конец всех ячеек в выделенном фрагменте.

Добавить указанный текст в начало / конец всех ячеек с формулами

Добавить указанный текст в начало / конец всех ячеек с помощью VBA

Добавить указанный текст в начало/конец всех эллов с помощью Kutools for Excel

Добавить указанный текст в указанную позицию всех ячеек с помощью Kutools for Excel

Добавить указанный текст в начало / конец всех ячеек с формулами

Есть две формулы для добавления указанного текста в начало или конец всех выбранных ячеек в Microsoft Excel.

Метод 1: & формула

Введите = «Класс A:» & A2 в ячейке C2, а затем перетащите маркер заполнения вниз в ячейки, к которым вы хотите применить эту формулу. И конкретный текст был добавлен перед всеми ячейками, см. Снимок экрана:

Метод 2: формула конкатенации

Введите = Concatenate («Класс A:»; A2) в ячейке C2, а затем перетащите и скопируйте эту формулу в ячейки, которые вы хотите использовать, см. снимок экрана:

Ноты:

1. Если вы хотите добавить другой указанный текст в каждую ячейку, просто замените Класс A: с вашим текстом в обеих формулах.

2. Формулы = A2 & «: класс A» и = Concatenate (A2; «: класс A») добавлю : Класс А в конце ячеек.

3. Обе формулы не изменяют содержимое выделения напрямую.

Добавить указанный текст в начало / конец всех ячеек с помощью VBA

Если вы хотите добавить указанный текст в каждую ячейку выделенного фрагмента, следующий макрос VBA упростит вашу работу.

1. Выберите диапазон, в который вы добавите указанный текст;

2. Удерживайте другой + F11 ключи в Excel, и он открывает Microsoft Visual Basic для приложений окно.

3. Нажмите Вставить > Модулии вставьте следующий код VBA в окно модуля.

VBA: добавление указанного текста в начало каждой ячейки:

Sub AppendToExistingOnLeft()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = "CN- " & c.Value 
Next
End Sub

4, нажмите F5 ключ для запуска этого макроса. И ко всем ячейкам будет добавлено значение CN- перед содержимым ячейки.

Ноты: 1. Чтобы добавить определенный текст в конец каждой ячейки, примените следующий код VBA.

VBA: добавление указанного текста в конец каждой ячейки:

Sub AppendToExistingOnRight()
Dim c as range
For each c in Selection
If c.value <> "" Then c.value = c.value & "-CN" 
Next
End Sub

И вы получите следующий результат:

2. вы можете изменить переменную «CN-» или «-CN«из приведенных выше кодов.

Добавить указанный текст в начало/конец всех ячеек с помощью Kutools for Excel

Kutools for Excel‘s Add Text инструмент поможет вам быстро добавить указанный текст в начало или конец каждой ячейки в выделенном фрагменте.

После установки Kutools for Excel, пожалуйста, сделайте следующее:(Бесплатная загрузка Kutools for Excel Сейчас!)

1. Выберите диапазон, в который вы добавите указанный текст.

2, Нажмите Кутулс > Text > Add Text…. Смотрите скриншот:

3. В Add Text диалоговом окне введите текст, который необходимо добавить в поле Text пунктом.

(1.) Если вы проверите Before first character из Position раздел, и конкретный текст будет добавлен перед всеми значениями ячеек, см. снимок экрана:

(2.) Если вы проверите After last character из Position раздел, и конкретный текст будет добавлен в конце значений ячеек, см. снимок экрана:

Ноты:

1. Kutools for Excel‘s Add Text инструмент позволяет предварительно просмотреть изменения в выделении в разделе Предварительный просмотр.

2. Если вы проверите Skip non-text cells вариант, этот инструмент не будет добавлять указанный текст в ячейки с нетекстовым содержимым.

Добавить указанный текст в указанную позицию всех ячеек с помощью Kutools for Excel

Применение Kutools for Excel‘s Add Text функция, вы можете не только добавить указанный текст в начало или конец ячеек, но также вы можете добавить указанный текст в указанное положение ячеек.

После установки Kutools for Excel, пожалуйста, сделайте следующее:(Бесплатная загрузка Kutools for Excel Сейчас!)

1. Выберите диапазон, в который нужно добавить текст, и нажмите Кутулс > Text > Add Text.

2, Add Text Появится диалоговое окно, введите указанный текст и укажите определенную позицию, в которую вы хотите вставить текст в поля. Смотрите скриншот:

Здесь я набираю 3 в Specify текстовое поле означает добавление текста после третьего символа строки.

3. Нажмите Ok or Apply. Указанный текст был добавлен в указанную позицию ячеек. Смотрите скриншот:

Наконечник:

(1) В Specify текстовое поле, вы можете вводить числа через запятую, чтобы добавить текст в несколько позиций одновременно.

(2) Если вы хотите добавить текст перед каждой прописной буквой, 1st letter is uppercase вариант в Add Text утилита может вам помочь.

Кроме того, вы можете добавлять текст перед каждой строчной буквой или каждой цифровой буквой.

Нажмите «Загрузить и получить бесплатную пробную версию». Kutools for Excel Сейчас !

Демонстрация: добавление текста в начало или конец всех ячеек

Относительные статьи:

• Добавить строки текста в несколько ячеек
• Добавление / вставка ведущих нулей к числам или тексту
• Добавить / вставить префикс или суффикс к выбранным ячейкам, строкам и столбцам
• Добавить символ процента для нескольких чисел в ячейках

Добрый день, неоднократно обращался к этоу замечательному форуму, но вот опять вынужден обратиться, нужен очень простой макрос который будет вставлять нужное слово или текст в активную ячейку, не могу сам найти , все перерыл , помогите пожалуста !!!

Всем бобра

Сообщение отредактировал Axeq — Пятница, 08.04.2016, 10:49