Как добавить / вставить определенный символ каждые x символов в ячейки?
Предположим, у меня есть список текстовых строк, в которые я хочу вставить тире или любые другие разделители после каждых четырех символов в ячейки, чтобы получить следующий результат скриншота. Для вставки определенного символа требуется слишком много ячеек, есть ли быстрые способы вставить тире каждые четыре символа в Excel?
Вставьте определенный символ каждые x символов в ячейку с кодом VBA
Вставьте определенный символ каждые x символов в ячейку с помощью Kutools for Excel
Вставьте определенный символ каждые x символов в ячейку с кодом VBA
Вы можете применить следующий код VBA для вставки определенного символа после каждых четырех символов в ячейки, сделайте следующее:
1. Удерживайте ALT + F11 ключи в Excel, и он открывает Microsoft Visual Basic для приложений окно.
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 for Excel
Приведенный выше код может быть несколько сложным для большинства новичков в Excel, здесь я могу представить удобный инструмент - Kutools for Excel, С его Добавить текст вы можете быстро добавить определенный текст или символ до, после или в определенных позициях значения ячейки.
Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. |
Если вы установили Kutools for Excel, пожалуйста, сделайте следующее:
1. Выберите диапазон данных, в который вы хотите вставить определенный символ.
2. Затем нажмите Кутулс > Текст > Добавить текст, см. снимок экрана:
3. В Добавить текст диалоговом окне укажите символ, который вы хотите вставить в Текст поле, а затем выберите Укажите с позиции В текстовом поле введите позиции, после которых вы хотите вставить символ, в то же время вы можете предварительно просмотреть результат на правой панели, см. снимок экрана:
Советы: Здесь я набираю 4,8,12 в текстовом поле Указывать которые указывают на вставку определенного текста после 4-го, 8-го и 12-го символов текстовой строки.
4. Затем нажмите Ok or Применить , указанный символ был вставлен в значения ячеек в определенных местах.
Нажмите, чтобы узнать больше об этой утилите добавления текста.
Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!
Демо: вставьте определенный символ каждые x символов в ячейку с помощью Kutools for Excel
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!