Перейти к основному содержанию

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

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

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

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

doc вставить каждый символ x 1


Вставьте определенный символ каждые 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 нажмите клавишу для запуска этого кода, и появится диалоговое окно с напоминанием о выборе диапазона данных, в который вы хотите вставить определенный символ в текстовые строки, см. снимок экрана:

doc вставить каждый символ x 2

4, И нажмите OK, в следующем окне запроса введите номер, после которого вы хотите вставлять определенный символ, см. снимок экрана:

doc вставить каждый символ x 3

5. Продолжайте нажимать OK, и в следующем поле подсказки введите определенный символ, который вы хотите добавить к тексту, см. снимок экрана:

doc вставить каждый символ x 4

6. Нажмите OK и выберите одну ячейку, в которой вы хотите вывести результат в поле подсказки, см. снимок экрана:

doc вставить каждый символ x 5

7, Наконец, нажмите OK, определенный символ был вставлен в каждую текстовую строку каждые четыре символа, см. снимок экрана:

doc вставить каждый символ x 6


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

Приведенный выше код может быть несколько сложным для большинства новичков в Excel, здесь я могу представить удобный инструмент - Kutools for Excel, С его Добавить текст вы можете быстро добавить определенный текст или символ до, после или в определенных позициях значения ячейки.

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. 

Если вы установили Kutools for Excel, пожалуйста, сделайте следующее:

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

2. Затем нажмите Кутулс > Текст > Добавить текст, см. снимок экрана:

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

doc вставить каждый символ x 8

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

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

doc вставить каждый символ x 9 2 doc вставить каждый символ x 10

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

Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!


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

Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Загрузите и бесплатную пробную версию прямо сейчас!

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Creo que en vez de macros, es más fácil (aunque más largo):
1. Separar en columnas la columna A (Pestaña Datos - botón texto en columnas) y separar por Ancho fijo. Así podrás poner un separador cada 4 caracteres.
2. Elige destino desde B2 (si lo dejas predeterminado, pisará la columna A y no podrás ver el texto original).
3. Ahora viene lo bueno, ya que son 4 series de 4caracteres cada uno, en la columna G o H (considerando que los valores de 4 caracteres estén desde las columnas B a la F), colocarás la siguiente fórmula: =CONCATENAR(B2;"-";C2;"-";D2;"-";E2;"-";F2). Ahora copia esa celda al resto de valores por insertar el símbolo -.
4. Finalmente, copia toda la columna de resultados y pégala en una columna vacía pero como valor de texto (Inicio-Pegar-Valores... o con las teclas ALT+O+V+V) y listo, ya tienes tus seriales listos para pegar donde quieras sin necesidad de macros.
This comment was minimized by the moderator on the site
Muy buena esta macro, una pregunta curiosa al momento de ejecutarla los caracteres los aplica de izquierda a derecha, puede cambiarse ese orden que de derecha a izquierda? En caso de ser posible como es el proceso? Gracias.
This comment was minimized by the moderator on the site
buenas noches
necesito que me coloque el caracter cada 6, 7, 8 de un solo clic como le modifico para poder colocar mas criterios
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations