Note: The other languages of the website are Google-translated. Back to English
Registo de cliente  \/ 
x
or
x
Registe-se  \/ 
x

or

Como reverter a seqüência de caracteres de texto ou a ordem das palavras no Excel?

Quando você usa a planilha do Excel, como você inverte a seqüência de caracteres de texto ou a ordem das palavras no Excel? Por exemplo, você deseja reverter “O Excel é uma ferramenta útil para nós"Para"su rof loot lufesu a si lecxE”. Ou às vezes você pode inverter a ordem das palavras, como “Excel, Word, PowerPoint, OneNote"Para"OneNote, PowerPoint, Word, Excel”. Normalmente, isso é um pouco difícil de resolver este problema. Observe os seguintes métodos:

String de texto reversa com função definida pelo usuário

Ordem reversa das palavras separadas por separador específico com código VBA

Reverta a sequência de texto ou ordem de palavras com o Kutools para Excel de forma rápida e fácil


seta azul bolha direita String de texto reversa com função definida pelo usuário

Suponha que você tenha uma série de strings de texto que deseja reverter, como “adicione zeros à esquerda no Excel"Para"lecxE ni sorez gnidael dda”. Você pode inverter o texto com as seguintes etapas:

1. Segure o ALT + F11 chaves, e abre o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole a macro a seguir no Módulojanela.

Function Reversestr(str As String) As String
    Reversestr = StrReverse(Trim(str))
End Function

3. Em seguida, salve e feche este código, volte para a planilha e insira esta fórmula: = reversestr (A2) em uma célula em branco para colocar o resultado, veja a captura de tela:

4. Em seguida, arraste a alça de preenchimento para baixo para copiar esta fórmula, e o texto nas células é reverenciado de uma vez, veja a captura de tela:


seta azul bolha direita Ordem reversa das palavras separadas por separador específico com código VBA

Se você tiver uma lista de palavras de célula que são separadas por vírgulas como este “professor, médico, estudante, trabalhador, motorista”, E você deseja inverter a ordem das palavras assim“dirigir, trabalhador, estudante, médico, professor”. Você também pode usar o follow VBA para resolvê-lo.

1. Segure o ALT + F11 chaves, e abre o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole a macro a seguir no Módulo janela.

Sub ReverseWord()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Sigh As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Sigh = Application.InputBox("Symbol interval", xTitleId, ",", Type:=2)
For Each Rng In WorkRng
    strList = VBA.Split(Rng.Value, Sigh)
    xOut = ""
    For i = UBound(strList) To 0 Step -1
        xOut = xOut & strList(i) & Sigh
    Next
    Rng.Value = xOut
Next
End Sub

3. Então aperte F5 , uma caixa de diálogo é exibida, selecione um intervalo para trabalhar. Veja a imagem:

4. E, em seguida, pressione Ok, outra caixa de diálogo é exibida para você especificar o separador no qual você deseja inverter as palavras, consulte a captura de tela:

5. Então clique OK, e você pode ver que as palavras selecionadas estão invertidas, veja as capturas de tela:


seta azul bolha direita Reverta a sequência de texto ou ordem de palavras com o Kutools para Excel de forma rápida e fácil

O Kutools for Excel'S Ordem reversa do texto pode ajudá-lo de forma rápida e conveniente a reverter várias sequências de texto. Ele pode realizar as seguintes operações:

Inverta o texto da direita para a esquerda, como “toque em algumas palavras"Para"sdrow emos pat";

Inverter o texto são separados por espaço ou outros caracteres específicos, como “maçã laranja uva"Para"uva maçã laranja";

Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias

Inverta o texto da direita para a esquerda:

1. Selecione o intervalo que deseja reverter.

2. Clique Kutools > Ferramentas de texto > Ordem reversa do texto, veja a captura de tela:

3. No Texto reverso caixa de diálogo, selecione a opção adequada de separador que correspondem aos valores das células. E você pode visualizar os resultados do Painel de visualização. Veja a imagem:

 Baixe e teste grátis Kutools para Excel agora!


Inverter o texto são separados por espaço ou outros caracteres específicos:

Este recurso também pode ajudá-lo a reverter as sequências de texto que são separadas por caracteres específicos.

1. Selecione as células e aplique este utilitário clicando em Kutools > Texto > Ordem reversa do texto.

2. Na série Texto reverso caixa de diálogo, escolha o separador que separa os valores da célula que você deseja inverter as palavras com base, veja a captura de tela:

3. Então clique Ok or Inscrever-se, as palavras nas células foram invertidas de uma vez. Veja as capturas de tela:

Importante: Verificando Pular não texto células para evitar que você inverta os números no intervalo selecionado.

Para saber mais sobre esta função, visite Ordem reversa do texto.

Baixe e teste grátis Kutools para Excel agora!


seta azul bolha direita Demonstração: reverter string de texto com base em separador específico com Kutools para Excel

Kutools for Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. Baixe e teste grátis agora!

Artigo relacionado:

Como inverter o nome e o sobrenome em células no Excel?


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office 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!
parte inferior da aba do escritório

 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Taeja · 1 years ago
    This is truly a great help ... Thank you so much
  • To post as a guest, your comment is unpublished.
    PRaveen Soni · 2 years ago
    awesome very helpful thanks for sharing the details
  • To post as a guest, your comment is unpublished.
    Huda · 4 years ago
    Thank you very much. This code helped my friend in a very good way
  • To post as a guest, your comment is unpublished.
    vee · 4 years ago
    Is it possible to start the reverse at a certain character length (for the user-defined function or VBA code)? For example, reverse cell A1 values starting after the character count equal to B1 value. So if B1 is 10 characters reverse will start at characters 11+ in A1..
  • To post as a guest, your comment is unpublished.
    piphat · 4 years ago
    I found that the original Sub gave out the results with additional sigh at the end of all selected cells. So I fixed this part.
    For i = UBound(strList) To 0 Step -1
    If i > 0 Then xOut = xOut & strList(i) & Sigh Else xOut = xOut & strList(i)
    Next
    Rng.Value = xOut
  • To post as a guest, your comment is unpublished.
    Duncan Sullivan-Shaw · 5 years ago
    It's possible to reverse text using formula, it is repetitive and limited to how far you are prepared to go and subject to number of characters excel will allow in the formula bar.

    Max length of text will be 30 chars and is in cell A1. Cell B1 would read:

    =TRIM(MID(LEFT(A1&REPT(" ",31),31),30,1)&MID(LEFT(A1&REPT(" ",31),31),29,1)&MID(LEFT(A1&REPT(" ",31),31),28,1)&MID(LEFT(A1&REPT(" ",31),31),27,1)&MID(LEFT(A1&REPT(" ",31),31),26,1)&MID(LEFT(A1&REPT(" ",31),31),25,1)&MID(LEFT(A1&REPT(" ",31),31),24,1)&MID(LEFT(A1&REPT(" ",31),31),23,1)&MID(LEFT(A1&REPT(" ",31),31),22,1)&MID(LEFT(A1&REPT(" ",31),31),21,1)&MID(LEFT(A1&REPT(" ",31),31),20,1)&MID(LEFT(A1&REPT(" ",31),31),19,1)&MID(LEFT(A1&REPT(" ",31),31),18,1)&MID(LEFT(A1&REPT(" ",31),31),17,1)&MID(LEFT(A1&REPT(" ",31),31),16,1)&MID(LEFT(A1&REPT(" ",31),31),15,1)&MID(LEFT(A1&REPT(" ",31),31),14,1)&MID(LEFT(A1&REPT(" ",31),31),13,1)&MID(LEFT(A1&REPT(" ",31),31),12,1)&MID(LEFT(A1&REPT(" ",31),31),11,1)&MID(LEFT(A1&REPT(" ",31),31),10,1)&MID(LEFT(A1&REPT(" ",31),31),9,1)&MID(LEFT(A1&REPT(" ",31),31),8,1)&MID(LEFT(A1&REPT(" ",31),31),7,1)&MID(LEFT(A1&REPT(" ",31),31),6,1)&MID(LEFT(A1&REPT(" ",31),31),5,1)&MID(LEFT(A1&REPT(" ",31),31),4,1)&MID(LEFT(A1&REPT(" ",31),31),3,1)&MID(LEFT(A1&REPT(" ",31),31),2,1)&MID(LEFT(A1&REPT(" ",31),31),1,1))

    Result: A1: Duncan Sullivan-Shaw B1: wahS-navilluS nacnuD

    Basically your text in cell A1 becomes 31 characters long by adding enough spaces to enable this, and each character is read singularly from right to left until you reach the first character. This will result in your reversed text containing leading spaces, which the TRIM command removes for you. To reduce or increase the length you would remove or add each statement. The number within the REPT statement should be 1 more than the maximum length you are working to and your first MID statement will start at the maximum length working down to 1.
  • To post as a guest, your comment is unpublished.
    Mohanned Tayyeb · 5 years ago
    hi all,

    i don't have Kutools to reverse a character of text, if anybody has this tools and want to help me, please send me email to send my file to you for reverse.

    my email is: [b][b][b]mohanned1@windowslive.com[/b][/b][/b]




    with regards,
    • To post as a guest, your comment is unpublished.
      Royal Chan · 3 years ago
      please go through the instructions give by the extend office website after searching with google by reverse string in excel.
  • To post as a guest, your comment is unpublished.
    CHARL · 6 years ago
    Hi I would like to reverse Dates.

    20/11/2015 to 2015/11/20

    Any Help?

    Thanks
    • To post as a guest, your comment is unpublished.
      Gaston · 5 years ago
      For dates all you need to do is change the format of the cell to the format needed. Right click on the cell you would like to reverse and select format cell. Select Date under the category section and change the location from wherever you are to US or Czech or another country that may use the format you are interested in. Then pick the one that matches your requirements.
  • To post as a guest, your comment is unpublished.
    asb · 6 years ago
    thank you
    its really useful for me :roll:
  • To post as a guest, your comment is unpublished.
    VB Developer · 6 years ago
    I notice a lot of people are re-inventing the wheel by doing left, right commands, VB6 supports string reverse

    SYNTAX:
    strRevese("String")

    thats all you need

    Dim stCellValue, i
    For i = 1 To 5
    Range("A" & X).Select
    stCellValue = Range("A" & X).Value
    stCellValue = StrReverse(stCellValue)
    Range("A" & X).Value = stCellValue
    Next i

    Another nifty trick would be to pre-populate zeros, if values under 10 but need to be in a time format such as "10:01:24" rather than "10:1:24"

    intMins = 1
    stMinutes = right("00" & intMins, 2)

    result = 01
  • To post as a guest, your comment is unpublished.
    Emma · 7 years ago
    Use this..put your input in A1 then the output will be in B1

    Sub zzzText()

    Dim xlen, xvalue, xoutput

    xlen = VBA.Len(Range("A1"))
    xvalue = Range("A1").Value
    xoutput = ""

    For i = 1 To xlen

    GetText = VBA.Right(xvalue, 1)
    xvalue = VBA.Left(xvalue, xlen - i)
    xoutput = xoutput & GetText

    Next i

    Range("B1").Value = xoutput
    Range("C1").Value = xlen
    Range("D1").Value = xvalue

    End Sub
  • To post as a guest, your comment is unpublished.
    Danos · 7 years ago
    Hi all, i've tried this function: Sub ReverseText()
    'Updateby20131128
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each Rng In WorkRng
    xValue = Rng.Value
    xLen = VBA.Len(xValue)
    xOut = ""
    For i = 1 To xLen
    getChar = VBA.Right(xValue, 1)
    xValue = VBA.Left(xValue, xLen - i)
    xOut = xOut & getChar
    Next
    Rng.Value = xOut
    Next
    End Sub

    but when i've ran it with numbers it has deleted all the zeros.

    do you know a function that not delete zeros?

    Thanks!!
    • To post as a guest, your comment is unpublished.
      Farhan · 7 years ago
      Use Vineet's function code as a module and when using the formula, use this trick: =strrev(""&D9&"") where D9 contains the number. Vineet's VBA code for that function is:

      Function strrev(strValue As String)
      strrev = StrReverse(strValue)
      End Function
  • To post as a guest, your comment is unpublished.
    Faseeh · 7 years ago
    Sorry a little editing

    Function InvertText(str As String)
    'By Faseeh Muhammad
    Dim curr As String
    Dim m As Integer
    For m = Len(str) To 1 Step -1
    countRepp = countRepp & Mid(str, m, 1)
    Next m
    Inverttext
    End Function
  • To post as a guest, your comment is unpublished.
    Faseeh · 7 years ago
    Another one...

    Function InvertText(str As String)
    'By Faseeh Muhammad
    Dim m As Integer
    For m = Len(str) To 1 Step -1
    countRepp = countRepp & Mid(str, m, 1)
    Next m
    End Function
  • To post as a guest, your comment is unpublished.
    Vineet · 8 years ago
    This is absurd. So much code to perform just a simple task of reversing the string? :o
    Just 3 line function needs to be added in the module as below:

    Function strrev(strValue As String)
    strrev = StrReverse(strValue)
    End Function

    Now the formula =strrev(A1) can be used in Excel sheet. This works since StrReverse is an inbuilt function of VBA. :D