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

В Excel добавление разделителей, таких как тире или определенные символы, через равные промежутки в текстовых строках может быть утомительной задачей, если делать это вручную. Например, вставка тире после каждых четырех символов в нескольких ячейках требует эффективного подхода. В этой статье представлены два простых решения: использование кода VBA или утилиты «Добавить текст» в Kutools для Excel для вставки символов через фиксированные интервалы.

Вставка определенного символа каждые X символов в ячейку с помощью кода VBA

Вставка определенного символа каждые X символов в ячейку с помощью Kutools для Excel

Вставка определенного символа каждые X символов в ячейку с помощью кода VBA

Вы можете применить следующий код VBA для вставки определенного символа после каждых четырех символов в ячейки, пожалуйста, выполните следующие действия:

1. Удерживайте клавиши ALT + F11 в Excel, и откроется окно Microsoft Visual Basic for Applications.

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

Код VBA: Вставка определенного символа каждые X символов в ячейку

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. Указанный символ теперь будет вставлен в каждую текстовую строку после каждых четырех символов. См. скриншот ниже:

Вставка определенного символа каждые X символов в ячейку с помощью Kutools для Excel

Код VBA может быть сложным для начинающих пользователей Excel. Вот более простая альтернатива: Kutools для Excel. Используя функцию «Добавить текст», вы можете быстро добавлять определенный текст или символы перед, после или на определенных позициях в значениях ячеек.

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

2. Затем нажмите Kutools > Текст > Добавить текст, см. скриншот:

3. В диалоговом окне «Добавить текст» укажите символ, который вы хотите вставить, в поле Текст. В разделе Положение выберите Указать и введите позиции, где должен быть вставлен символ. Вы можете просмотреть результат в правой панели. См. скриншот ниже:

Советы: Здесь я ввожу 4,8,12 в текстовое поле Указать, что означает вставить указанный текст после 4-го, 8-го и 12-го символов текстовой строки.

4. Затем нажмите кнопку Ok или Применить, указанный символ будет вставлен в значения ячеек на определенные позиции.

Нажмите, чтобы узнать больше об этой утилите «Добавить текст».

Демонстрация: Вставка определенного символа каждые X символов в ячейку с помощью Kutools для Excel