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

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

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

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

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

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

1. Нажмите Alt + F11 ключи для открытия Microsoft Visual Basic для приложений окно.

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

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

4. Нажмите OK, а выбранные тексты разделены на два столбца, один из которых содержит строчные буквы, а другой - прописные.

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

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

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

1. Выберите ячейку, которую хотите разделить, и щелкните Кутулс > Слияние и разделение > Разделить клетки. Смотрите скриншот:

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

3. Нажмите Ok, появится диалоговое окно с напоминанием о необходимости выбора ячейки для размещения разделенного содержимого. Смотрите скриншот:

4. После выбора щелкните OK, и выбранная ячейка была разделена на строки в зависимости от места. Смотрите скриншот: