Como dividir rapidamente uma cadeia de texto com base em maiúsculas e minúsculas no Excel?
No Excel, normalmente dividimos texto com base numa largura específica ou num delimitador, utilizando a função **Texto em Colunas**. Mas já alguma vez tentou dividir texto com base em maiúsculas e minúsculas? Por exemplo, imagine que tem uma lista de dados e precisa separá-los em duas colunas consoante o tipo de letra: uma coluna com texto em **minúsculas** e outra com texto em **maiúsculas**, tal como ilustrado na imagem seguinte. A função **Texto em Colunas** não suporta esta operação — mas tenho um truque prático para lhe mostrar como dividir rapidamente uma cadeia 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, só existe código de macro para dividir rapidamente uma cadeia com base em maiúsculas e minúsculas.
1. Prima Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o código seguinte no script em branco do Módulo.
VBA: Divida a cadeia com base em 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. Prima a tecla F5 e surge uma caixa de diálogo a solicitar que selecione os textos a dividir. Veja a imagem:
4. Clique em OK e os textos selecionados serão divididos em duas colunas: uma contém o filtro por texto em minúsculas e a outra contém maiúsculas.
Dividir texto em linhas/colunas por separador com Kutools para Excel
Em muitos casos, poderá querer dividir uma célula em várias linhas ou colunas com base num caractere específico. No Excel, a função incorporada Texto em Colunas permite converter diretamente uma célula em colunas, mas não suporta a conversão em linhas. Contudo, com o Kutools para Excel – uma ferramenta prática e poderosa – pode utilizar a sua funcionalidade Dividir Células para dividir rapidamente uma cadeia em linhas ou colunas, quer com base num separador, quer numa largura especificada.
Após instalar gratuitamenteKutools para Excel, siga os passos abaixo:
1. Selecione a célula que pretende dividir e clique em Kutools > Mesclar e Dividir > Dividir Células. Veja a imagem:
2. Na caixa de diálogo Dividir Células, selecione o tipo de divisão pretendido na secção Tipo e indique o delimitador específico que deseja utilizar em Critério de Divisão, na secção Dividir por. Veja a imagem:
3. Clique em Ok e surge uma caixa de diálogo a solicitar que selecione uma célula para colocar os conteúdos divididos. Veja a imagem:
4. Após a seleção, clique em OK e a célula selecionada será dividida em linhas com base no espaço. Veja a imagem:
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos