Перейти к содержимому

Как быстро разделить текстовую строку по регистру в Excel?

Author: Sun Last Modified: 2025-06-05

В Excel мы обычно разделяем текст по фиксированной ширине или разделителю с помощью функции «Текст по столбцам», но пробовали ли вы когда-нибудь разделить текст по верхнему и нижнему регистру? Например, у вас есть список данных, и вам нужно разделить их на два столбца на основе регистра: один столбец содержит строчные символы, а другой — прописные символы, как показано на скриншоте ниже. Функция «Текст по столбцам» не поддерживает эту операцию, однако я могу предложить хитрость для быстрого разделения текстовой строки по регистру в Excel.

Разделение текста по регистру с помощью VBA

Разделение текста на строки/столбцы по разделителю с помощью Kutools для Excel


arrow blue right bubble Разделение текста по регистру с помощью VBA

В Excel существует только макрос для быстрого разделения строки на основе нижнего и верхнего регистра.

1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Щелкните Вставить > Модуль и вставьте следующий код в пустой скрипт Модуля.

VBA: Разделение строки по регистру.

Sub CamelCase()
'UpdatebyExtendoffice20160711
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xCount As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
LInput:
    Set xRg = Nothing
    Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "It not work in multiple selection", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "It only work in one column", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    On Error Resume Next
    Application.ScreenUpdating = False
    With CreateObject("vbscript.regexp")
        .Pattern = "(\S)([A-Z]+[^A-Z])"
        .Global = True
        For Each xCell In xRg
            xCount = .Execute(xCell).Count
            If xCount Then xCell.Resize(, xCount + 1) = Split(.Replace(xCell, "$1" & Chr(1) & "$2"), Chr(1))
        Next
    End With
    Application.ScreenUpdating = True
End Sub

copy and paste the code into the module

3. Нажмите F5 , и появится диалоговое окно, напоминающее выбрать текст для разделения. См. скриншот:
vba code to select texts to split

4. Нажмите OK, и выбранный текст будет разделен на два столбца, один из которых содержит строчные буквы, а другой — прописные.
the text is split by case


arrow blue right bubble Разделение текста на строки/столбцы по разделителю с помощью Kutools для Excel

Во многих случаях может потребоваться разделить ячейку на несколько строк или столбцов на основе определенного символа. В Excel встроенная функция «Текст по столбцам» позволяет преобразовать ячейку только в столбцы, но не работает для преобразования в строки. Однако с помощью Kutools для Excel — удобного и полезного инструмента — вы можете использовать его функцию «Разделить ячейки», чтобы быстро разделить строку на строки или столбцы на основе разделителя или фиксированной ширины.

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

После бесплатной установки Kutools для Excel выполните следующие действия:

1. Выберите ячейку, которую хотите разделить, и нажмите Kutools > Объединить и разделить > Разделить ячейки. См. скриншот:
click Split Cells feature of kutools

2. В диалоговом окне Разделить ячейки выберите тип разделения, который вы хотите, в разделе Тип , и перейдите к выбору конкретного разделителя, по которому вы хотите разделить, в разделе Разделить по . См. скриншот:
specify the options in the dialog box

3. Нажмите Ok, появится диалоговое окно, напоминающее выбрать ячейку для размещения разделенного содержимого. См. скриншот:
select a cell to place the split contents

4. После выбора нажмите OK, и выбранная ячейка будет разделена на строки на основе пробела. См. скриншот:
the selected cells are split into rows based on space

Лучшие инструменты для повышения продуктивности работы с Office

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

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


Office Tab добавляет вкладки в Office и делает вашу работу намного проще

  • Включите редактирование и чтение с вкладками в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна, а не в отдельных окнах.
  • Увеличьте свою продуктивность на50% и сократите сотни лишних кликов мышью каждый день!