Добавление символов каждые X символов в ячейках Excel — простые методы

При работе с кодами товаров, серийными номерами, номерами телефонов, идентификационными номерами или длинными текстовыми строками в Excel часто возникает необходимость вставить определённый символ через каждые несколько знаков. Например, можно преобразовать ABCDEF123456 в ABC-DEF-123-456 или добавить пробелы каждые 4 цифры, чтобы упростить чтение длинных чисел.
Excel не предлагает встроенной кнопки для этой задачи, но вы легко справитесь с ней с помощью нескольких простых приёмов. В этой статье — практические способы вставки заданного символа через каждые X знаков в ячейках Excel.

Добавление символов каждые X символов в Excel

• Метод 1: с помощью формулы (Excel 365, Excel 2021 и более поздние версии)
• Метод 2: с помощью кода VBA
• Метод 3: с помощью пользовательской функции
• Метод 4: с помощью Kutools для Excel

Важные примечания и ограничения

Заключение

Добавление символов каждые X символов в Excel

Приведённые ниже методы позволят быстро вставлять определённые символы через заданное количество знаков в Excel, упрощая разделение длинных текстовых строк, идентификаторов, артикулов или числовых последовательностей на фиксированные интервалы для стандартизации и повышения читаемости.

Метод 1: добавление символов каждые X символов с помощью формулы

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

Введите следующую формулу в пустую ячейку:

=TEXTJOIN("-",TRUE,MID(A2,SEQUENCE(ROUNDUP(LEN(A2)/4,0),,1,4),4))

Затем нажмите клавишу Enter. Перетащите маркер заполнения вниз, чтобы применить формулу к другим ячейкам.

Настройка формулы

Вы можете настроить символ и интервал по своему вкусу.

=TEXTJOIN(" ",TRUE,MID(A2,SEQUENCE(ROUNDUP(LEN(A2)/4,0),,1,4),4))

=TEXTJOIN("/",TRUE,MID(A2,SEQUENCE(ROUNDUP(LEN(A2)/2,0),,1,2),2))

=TEXTJOIN($B$1,TRUE,MID(A2,SEQUENCE(ROUNDUP(LEN(A2)/$C$1,0),,1,$C$1),$C$1))

Преимущества и недостатки

Метод 2: добавление символов каждые X символов с помощью кода VBA

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

1. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic for Applications в Excel.
2. Нажмите Вставка > Модуль и вставьте следующий код в окно модуля.

Sub InsertCharacter()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
    xValue = Rng.Value
    outValue = ""
    For index = 1 To VBA.Len(xValue)
        If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
            outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
        Else
            outValue = outValue + VBA.Mid(xValue, index, 1)
        End If
    Next
    OutRng.Cells(xNum, 1).Value = outValue
    xNum = xNum + 1
Next
End Sub

3. Нажмите клавишу F5, чтобы запустить этот код. Появится диалоговое окно с запросом на выбор диапазона данных, в который вы хотите вставить определённый символ в текстовые строки. См. скриншот ниже:
   
4. Затем нажмите кнопку OK. В следующем диалоговом окне укажите число — после каждого такого количества символов будет вставляться заданный символ. См. скриншот:
   
5. Затем нажмите кнопку OK. В следующем диалоговом окне введите символ, который нужно добавить к тексту. См. скриншот:
   
6. Нажмите кнопку OK и выберите ячейку, в которую нужно поместить результат. См. скриншот:
   
7. Наконец, нажмите кнопку OK. Excel вставит указанный символ каждые X символов и разместит результаты в выбранной области размещения списка.
   

Преимущества и недостатки

Метод 3: добавление символов каждые X символов с помощью пользовательской функции

Пользовательская функция (UDF) позволяет создавать собственные функции Excel с помощью VBA, которые после добавления можно использовать на листе как обычные формулы.

1. Нажмите сочетание клавиш Alt + F11, чтобы открыть редактор VBA.
2. Нажмите Вставка > Модуль. Скопируйте и вставьте следующий код в модуль.

Function InsertEveryX(TextStr As String, InsertChar As String, IntervalNum As Long) As String
    Dim i As Long
    Dim ResultStr As String
    If IntervalNum <= 0 Then
        InsertEveryX = TextStr
        Exit Function
    End If
    For i = 1 To Len(TextStr) Step IntervalNum
        ResultStr = ResultStr & Mid(TextStr, i, IntervalNum) & InsertChar
    Next i
    If Len(ResultStr) > 0 Then
        ResultStr = Left(ResultStr, Len(ResultStr) - Len(InsertChar))
    End If
    InsertEveryX = ResultStr
End Function

3. Закройте редактор VBA и вернитесь на лист. Введите следующую формулу:

=InsertEveryX(A2,"-",4)

Затем перетащите маркер заполнения вниз, чтобы применить формулу к остальным ячейкам.

Преимущества и недостатки

Метод 4: добавление символов каждые X символов с помощью Kutools для Excel

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

1. Выделите ячейки, в которые нужно вставить символы. Затем нажмите Kutools > Текст > Добавить текст.
   
2. В диалоговом окне Добавить текст:
   1. Введите символ, который хотите вставить — например, -, / или пробел — в поле Текст.
   2. В разделе Позиция добавления выберите После указанной позиции и укажите позицию, куда следует вставить символ.
   3. Нажмите ОК.
      

Теперь указанный символ вставлен в значения ячеек с заданными интервалами.

Важные примечания и ограничения

=IF(A2="","",TEXTJOIN("-",TRUE,MID(A2,SEQUENCE(ROUNDUP(LEN(A2)/4,0),,1,4),4)))

Заключение

Добавление символов каждые X позиций в Excel упрощает чтение, форматирование и управление длинными текстовыми строками. Пользователям Excel 365 или Excel 2021 подойдёт гибкое и динамичное решение на основе формул. Для обработки сразу множества ячеек эффективно использовать VBA. Если же вам нужна многократно применимая пользовательская формула — отличным выбором станет пользовательская функция (UDF). А тем, кто предпочитает простой, наглядный и безкодовый подход, Kutools для Excel предлагает ещё более быстрый способ выполнения таких задач с помощью функции «Формат текста».

В общем случае используйте формулы, если нужны динамические результаты; используйте VBA или пользовательские функции (UDF), когда требуется больший контроль; и используйте Kutools, если хотите максимально простой рабочий процесс с минимальным количеством ручных действий.