Como dividir rapidamente a sequência de texto por caso 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 em maiúsculas e minúsculas? Por exemplo, você tem uma lista de dados e precisa dividi-los em duas colunas com base no caso: uma coluna contém string em minúsculas e a outra contém string em maiúsculas, como mostrado na imagem abaixo. A função Text to Columns não oferece suporte a essa operação, no entanto, posso introduzir alguns truques para dividir rapidamente a sequência de texto por caso no Excel.

Divida o texto por caso com VBA

Divida o texto em linhas / colunas por separador com o Kutools para Excel

---

Divida o texto por caso com VBA

No Excel, há apenas código de macro para dividir rapidamente a string com base em letras maiúsculas e minúsculas.

1. Pressione Alt + F11 chaves para abrir Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o código abaixo no espaço em branco Módulo script.

VBA: Divida a string por caso.

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 a serem divididos. Veja a imagem:

4. Clique OK, e os textos selecionados foram divididos em duas colunas, uma com letras minúsculas e a outra com letras maiúsculas.

---

Divida o texto em linhas / colunas por separador com o 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 interna Text to Columns pode ajudá-lo a converter uma célula em colunas diretamente, mas não funciona na conversão de linhas. No entanto, com Kutools for Excel - uma ferramenta prática e útil, você pode aplicar seu Dividir células utilitário para dividir rapidamente a string em linhas ou colunas com base em um separador ou largura fixa.

Depois de instalação grátis Kutools para Excel, faça o seguinte:

1. Selecione a célula que deseja dividir e clique em Kutools > Unir e dividir > Dividir células. Veja a imagem:

2. No Dividir células caixa de diálogo, marque o tipo de divisão que você deseja no para cada ocasião seção e vá para verificar o delimitador específico que você deseja dividir com base no Dividido por seção. Veja a imagem:

3. Clique Ok, uma caixa de diálogo aparecerá para lembrá-lo de selecionar uma célula para colocar o conteúdo dividido. Veja a imagem:

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