Как добавить или вставить определенные символы каждые 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 или Применить, указанный символ будет вставлен в значения ячеек на определенные позиции.
 |  |  |
Нажмите, чтобы узнать больше об этой утилите «Добавить текст».
Kutools для Excel - Усильте Excel более чем 300 необходимыми инструментами. Наслаждайтесь постоянно бесплатными функциями ИИ! Получите прямо сейчас
Демонстрация: Вставка определенного символа каждые X символов в ячейку с помощью Kutools для Excel
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек