Як додати / вставити певний символ кожні х символів у комірки?

Припустимо, у мене є список текстових рядків, які я хочу вставити тире або будь-які інші роздільники після кожних чотирьох символів у клітинки, щоб отримати такий результат скріншоту. Забагато клітинок, необхідних для вставки певного символу, чи є швидкі способи вставити тире кожні чотири символи в Excel?

Вставте певний символ кожні x символів у клітинку з кодом VBA

Вставте певний символ кожні x символів у клітинку за допомогою Kutools для Excel

Вставте певний символ кожні x символів у клітинку з кодом VBA

Ви можете застосувати такий код VBA, щоб вставити певний символ після кожних чотирьох символів у клітинки, будь-ласка, зробіть наступне:

1. Утримуйте клавішу ALT + F11 клавіші в Excel, і він відкриває Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код 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

Наведений вище код, можливо, дещо складний для більшості початківців Excel, тут я можу представити зручний інструмент - Kutools для Excel, З його додати текст Ви можете швидко додати певний текст або символ до, після або до певних позицій значення комірки.

Якщо ви встановили Kutools для Excel, будь ласка, виконайте наступне:

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

2. Потім натисніть Кутулс > текст > додати текст, див. скріншот:

3, в додати текст у діалоговому вікні вкажіть символ, який потрібно вставити в текст , а потім виберіть Вкажіть із Позиції розділу, у текстовому полі введіть позиції, до яких потрібно вставити символ, одночасно ви можете переглянути результат на правій панелі, див. знімок екрана:

Поради: Тут я набираю 4,8,12 у текстовому полі Вказувати які вказують на вставку конкретного тексту після 4-го, 8-го та 12-го символів текстового рядка.

4. Потім натисніть Ok or Застосовувати Кнопка, вказаний символ був вставлений у значення комірок у певних положеннях.

Клацніть, щоб дізнатися більше про цю утиліту «Додати текст».

Завантажте та безкоштовну пробну версію Kutools для Excel зараз!

Демо: вставте певний символ кожні x символів у комірку за допомогою Kutools для Excel