Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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

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

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


Добавьте определенный символ до / после / определенного положения текстовой строки:

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

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

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!


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


Вы можете применить следующий код VBA для вставки определенного символа после каждых четырех символов в ячейки, пожалуйста, сделайте следующее:

1, Удерживайте ALT + F11 ключей в Excel, и он открывает Microsoft Visual Basic для приложений окна.

2. Щелчок Вставить > модуль, и вставьте следующий код в модуль Окно.

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

Sub InsertCharacter()
'Updateby20150813
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, бесплатно попробовать без ограничений в 60-дни.

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

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

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

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

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

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

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

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

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

Нажмите, чтобы узнать подробности об этом Add Text utility.

Скачать и бесплатно пробную версию Kutools для Excel сейчас!


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

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

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

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

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    John · 28 days 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