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

Функция Excel СЦЕПИТЬ позволяет быстро добавить префикс или суффикс к отдельной ячейке.

1. Введите функцию =CONCATENATE("Food - ",A1) в пустую ячейку, например C1, а затем перетащите маркер автозаполнения по нужному диапазону. Теперь ко всем ячейкам добавлен указанный префикс. См. снимок экрана:

Вы можете использовать функцию СЦЕПИТЬ для добавления префикса, суффикса или и того, и другого следующим образом:

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

1. Выделите ячейки, к которым нужно добавить префикс или суффикс, и нажмите KutoolsKutools > > Add TextText Add Text.

2. В диалоговом окне Add Text введите нужный префикс или суффикс в поле Текст, установите флажок напротив параметра Before first character ()для добавления префикса) или параметра After last character (для добавления суффикса) — в зависимости от ваших задач — и нажмите кнопку Ok.
Теперь указанный префикс или суффикс добавлен ко всем выделенным ячейкам одновременно. См. снимок экрана:

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

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

2. Нажмите DeveloperDeveloper > Visual Basic, чтобы открыть новое окно Microsoft Visual Basic for applications, затем выберите Insert > Module Module и введите следующий код:

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. Затем нажмите кнопку Run или клавишу F5, чтобы запустить VBA.

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

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

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

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