Como dividir rapidamente uma sequência de texto por maiúsculas e minúsculas no Excel?

No Excel, geralmente dividimos o texto por largura fixa ou delimitador com a função Texto para Colunas, mas você já tentou dividir o texto por letras maiúsculas e minúsculas? Por exemplo, você tem uma lista de dados e precisa dividi-los em duas colunas com base nas letras: uma coluna contém a sequência em minúsculas e a outra contém a sequência em maiúsculas, como mostrado na captura de tela abaixo. A função Texto para Colunas não suporta essa operação, no entanto, posso apresentar um truque para dividir rapidamente uma sequência de texto por maiúsculas e minúsculas no Excel.

Dividir texto por maiúsculas e minúsculas com VBA

Dividir texto em linhas/colunas por separador com Kutools para Excel

Dividir texto por maiúsculas e minúsculas com VBA

No Excel, existe apenas código de macro para dividir rapidamente uma sequência com base em letras minúsculas e maiúsculas.

1. Pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o código abaixo no script do Módulo em branco.

VBA: Dividir sequência por maiúsculas e minúsculas.

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. Pressione F5 e uma caixa de diálogo aparecerá para lembrá-lo de selecionar os textos para dividir. Veja a captura de tela:

4. Clique OK, e os textos selecionados serão divididos em duas colunas, uma contendo letras minúsculas e a outra contendo letras maiúsculas.

Dividir texto em linhas/colunas por separador com Kutools para Excel

Em muitos casos, você pode querer dividir uma célula em várias linhas ou colunas com base em um caractere específico. No Excel, a função Texto para Colunas embutida só pode ajudá-lo a converter uma célula diretamente em colunas, mas não funciona na conversão de linhas. No entanto, com o Kutools para Excel – uma ferramenta prática e útil, você pode aplicar sua utilidade Dividir Células para dividir rapidamente uma sequência em linhas ou colunas com base em um separador ou largura fixa.

Após instalar gratuitamente o Kutools para Excel, faça o seguinte:

1. Selecione a célula que deseja dividir e clique em Kutools > Mesclar e Dividir > Dividir Células. Veja a captura de tela:

2. Na Dividir Células caixa de diálogo, marque o tipo de divisão desejado na seção Tipo e vá até a seção Separador para marcar o delimitador específico pelo qual deseja dividir. Veja a captura de tela:

3. Clique Ok, uma caixa de diálogo aparece para lembrá-lo de selecionar uma célula para colocar os conteúdos divididos. Veja a captura de tela:

4. Após selecionar, clique OK, e a célula selecionada foi dividida em linhas com base no espaço. Veja a captura de tela: