Note: The other languages of the website are Google-translated. Back to English
Войти  \/ 
x
or
x
Регистрация  \/ 
x

or

Как добавить / вставить определенный символ каждые 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. Затем нажмите Kutools > Текст > Добавить текст, см. снимок экрана:

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 for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office / Excel 2007-2019 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    anaid83 · 2 months ago
    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.
  • To post as a guest, your comment is unpublished.
    Wuilf · 1 years ago
    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.
  • To post as a guest, your comment is unpublished.
    John · 2 years ago
    buenas noches
    necesito que me coloque el caracter cada 6, 7, 8 de un solo clic como le modifico para poder colocar mas criterios