Como mover a última palavra para a próxima célula adjacente?
Supondo que eu tenha uma lista de strings de texto que desejo mover a última palavra para a próxima célula adjacente conforme a captura de tela mostrada a seguir, é claro, você pode recortar e colá-los um por um, mas, existem maneiras rápidas de movermos eles para a próxima célula de uma vez no Excel?
Mova a última palavra para a próxima célula adjacente com o código VBA
Extraia a última palavra para a próxima célula adjacente com fórmula
Mova a última palavra para a próxima célula adjacente com o código VBA
Para cortar e mover a última palavra de uma célula para a próxima célula adjacente, aplique o seguinte código VBA:
1. Mantenha pressionada a ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: mova a última palavra para a próxima célula adjacente:
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. Então aperte F5 para executar este código e uma caixa de prompt é exibida para lembrá-lo de selecionar as células de texto das quais deseja mover a última palavra, consulte a captura de tela:
4. E, em seguida, clique em OK botão, as últimas palavras nas células selecionadas foram movidas para as células adjacentes à direita imediatamente, veja a captura de tela:
Extraia a última palavra para a próxima célula adjacente com fórmula
Se você precisa apenas extrair as últimas palavras das strings de texto sem movê-las, a fórmula a seguir pode fazer um favor.
Insira esta fórmula:
=RIGHT(A2,LEN(A2)-FIND("*",SUBSTITUTE(A2," ","*",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))) em uma célula em branco ao lado da célula de texto e, em seguida, arraste a alça de preenchimento para baixo até as células das quais deseja extrair a última palavra, todas as últimas palavras foram extraídas das strings de texto sem mover as originais. 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!