Como mover a última palavra para a célula adjacente seguinte?
Suponhamos que tenho uma lista de cadeias de texto das quais pretendo mover a última palavra para a célula adjacente seguinte, tal como ilustrado na imagem abaixo. É claro que posso cortar e colar cada uma manualmente, mas haverá alguma forma rápida de mover todas de uma só vez no Excel?
Mover a última palavra para a célula adjacente seguinte com código VBA
Extrair a última palavra para a célula adjacente seguinte com fórmula
Mover a última palavra para a célula adjacente seguinte com código VBA
Para cortar e mover a última palavra de uma célula para a célula adjacente seguinte, aplique o seguinte código VBA:
1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código na janela do Módulo.
Código VBA: Mover a última palavra para a célula adjacente seguinte:
Sub splitlastword()
Dim xCell As Range
Dim xStr As String
Dim xAddress As String
Dim xRg As Range
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please selec the text cells:", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Only one column in the seleted range", vbInformation, "Kutools for Excel"
Exit Sub
End If
For Each xCell In xRg
xStr = Trim(xCell.Value)
xCell.Offset(0, 1) = Mid(xStr, InStrRev(xStr, " "))
xCell.Value = Left(xStr, InStrRev(xStr, " "))
Next
End Sub
3. Em seguida, prima a tecla F5 para executar este código; irá surgir uma caixa de diálogo a solicitar que selecione as células de texto das quais pretende mover a última palavra, conforme ilustrado na imagem:
4. Depois, clique no botão OK e as últimas palavras das células selecionadas serão imediatamente movidas para a célula adjacente seguinte — a célula à direita, conforme ilustrado na imagem:
Extrair a última palavra para a célula adjacente seguinte com fórmula
Se precisar apenas de extrair as últimas palavras das cadeias de texto sem as mover, a fórmula seguinte poderá ajudá-lo.
Introduza esta fórmula:
=RIGHT(A2,LEN(A2)-FIND(«*»,SUBSTITUTE(A2,« »,«*»,LEN(A2)-LEN(SUBSTITUTE(A2,« »,«»))))) numa célula vazia junto à que contém o texto e, depois, arraste a alça de preenchimento para baixo até às células onde pretende extrair a última palavra. Todas as últimas palavras serão extraídas das respetivas cadeias de texto sem alterar os valores originais. 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