Как добавить префикс или суффикс к диапазону ячеек в Excel?

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

1Введите функцию =СЦЕПИТЬ("Еда - ",A1) в пустую ячейку, например, Ячейку C1, а затем перетащите маркер автозаполнения этой ячейки по диапазону, который вы хотите заполнить. И во все ячейки будет добавлен определенный префиксный текст. См. скриншот:. См. скриншот:

Вы можете использовать функцию конкатенации для вставки префикса, суффикса или обоих одновременно следующим образом:

Возможно, вы не знакомы с функциями и кодом VBA в Excel. И эта утилита Добавить текст из Kutools для Excel поможет вам быстро вставить префикс или суффикс в любые выбранные диапазоны.

1.  Выберите ячейки, к которым вы хотите добавить префикс или суффикс, и нажмите  Kutools > Текст > Добавить текст.

2. В окне Добавить текст введите ваш префикс или суффикс в поле Текст и установите флажок Перед первым символом опция (для добавления префикса) или После последнего символа опция (для добавления суффикса) по необходимости, и нажмите кнопку Ok кнопка.
И теперь указанный префикс или суффикс добавлены сразу во все выбранные ячейки. См. скриншот:

Вы также можете решить эту проблему с помощью следующего кода VBA:

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

2. Нажмите Разработчик > Visual Basic, и откроется новое окно Microsoft Visual Basic для приложений, нажмите Вставка > Модуль, а затем введите следующий код:

Sub AddTextOnLeft()
'Updateby20131128
Dim Rng As Range
Dim WorkRng As Range
Dim addStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
addStr = Application.InputBox("Add text", xTitleId, "", Type:=2)
For Each Rng In WorkRng
    Rng.Value = addStr & Rng.Value
Next
End Sub

Sub AddTextOnRight()
'Updateby20131128
Dim Rng As Range
Dim WorkRng As Range
Dim addStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
addStr = Application.InputBox("Add text", xTitleId, "", Type:=2)
For Each Rng In WorkRng
    Rng.Value = Rng.Value & addStr
Next
End Sub

3. Затем нажмите кнопку Выполнить или нажмите клавишу F5, чтобы запустить VBA.

4. А теперь укажите диапазон, к которому вы хотите добавить префикс или суффикс, в первом KutoolsforExcel диалоговом окне и нажмите кнопку OK кнопка, а затем введите суффикс или префикс, который вы хотите добавить, во втором KutoolsforExcel диалоговом окне и нажмите кнопку OK кнопка. См. скриншоты ниже:
     
Теперь указанный суффикс или префикс был добавлен в каждую выбранную ячейку, как показано на скриншоте ниже:

Добавить текст в начало или конец всех ячеек

Добавить строки текста в несколько ячеек

добавить ведущие нули к числам или тексту