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.
Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. |
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 Formato 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:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!