Note: The other languages of the website are Google-translated. Back to English

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

A 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 Aplicar, as palavras nas células foram invertidas de uma vez. Veja as capturas de tela:

Nota: 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

 

Comentários (19)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Isso é um absurdo. Tanto código para realizar apenas uma simples tarefa de reverter a string? :o Apenas 3 funções de linha precisam ser adicionadas no módulo como abaixo: Função strrev(strValue As String) strrev = StrReverse(strValue) End Function Agora a fórmula =strrev(A1) pode ser usada na planilha Excel. Isso funciona desde que StrReverse é uma função embutida do VBA. :D
Este comentário foi feito pelo moderador no site
Outra... Função InvertText(str As String) 'Por Faseeh Muhammad Dim m As Integer For m = Len(str) Para 1 Passo -1 countRepp = countRepp & Mid(str, m, 1) Próximo m End Function
Este comentário foi feito pelo moderador no site
Desculpe um pouco de edição Função InvertText(str As String) 'Por 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 Função Final
Este comentário foi feito pelo moderador no site
Olá a todos, eu tentei esta função: 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) Para cada Rng em WorkRng xValue = Rng.Value xLen = VBA.Len(xValue) xOut = "" Para i = 1 Para xLen getChar = VBA.Right(xValue, 1) xValue = VBA.Left(xValue, xLen - i) xOut = xOut & getChar Next Rng.Value = xOut Next End Sub mas quando eu o executei com números ele apagou todos os zeros. você conhece uma função que não exclui zeros? Obrigado!!
Este comentário foi feito pelo moderador no site
Use o código de função do Vineet como um módulo e ao usar a fórmula, use este truque: =strrev(""&D9&"") onde D9 contém o número. O código VBA do Vineet para essa função é: Function strrev(strValue As String) strrev = StrReverse(strValue) End Function
Este comentário foi feito pelo moderador no site
Use isto... coloque sua entrada em A1, então a saída será em B1 Sub zzzText() Dim xlen, xvalue, xoutput xlen = VBA.Len(Range("A1")) xvalue = Range("A1").Value xoutput = "" Para i = 1 Para 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
Este comentário foi feito pelo moderador no site
Percebo que muitas pessoas estão reinventando a roda fazendo comandos para a esquerda, direita, VB6 suporta string reverse SYNTAX: strRevese("String") isso é tudo que você precisa Dim stCellValue, i For i = 1 To 5 Range("A" & X).Selecione stCellValue = Range("A" & X).Value stCellValue = StrReverse(stCellValue) Range("A" & X).Value = stCellValue Próximo i Outro truque bacana seria pré-preencher zeros, if valores abaixo de 10, mas precisa estar em um formato de hora como "10:01:24" em vez de "10:1:24" intMins = 1 stMinutes = right("00" & intMins, 2) result = 01
Este comentário foi feito pelo moderador no site
obrigado é realmente útil para mim :roll:
Este comentário foi feito pelo moderador no site
Olá, gostaria de reverter as datas. 20/11/2015 a 2015/11/20 Alguma ajuda? Obrigado
Este comentário foi feito pelo moderador no site
Para datas, tudo o que você precisa fazer é alterar o formato da célula para o formato necessário. Clique com o botão direito do mouse na célula que deseja reverter e selecione formatar célula. Selecione Data na seção de categoria e altere o local de onde você estiver para EUA ou Tcheco ou outro país que possa usar o formato de seu interesse. Em seguida, escolha aquele que corresponda às suas necessidades.
Este comentário foi feito pelo moderador no site
oi a todos, eu não tenho Kutools para reverter um caractere de texto, se alguém tiver essas ferramentas e quiser me ajudar, por favor me envie um email para enviar meu arquivo para você para reverter. meu email é: [b][b]mohanned1@windowslive.com[/b][/b] com respeito,
Este comentário foi feito pelo moderador no site
por favor, siga as instruções fornecidas pelo site extend office depois de pesquisar com o google por string reversa no excel.
Este comentário foi feito pelo moderador no site
É possível reverter o texto usando fórmulas, é repetitivo e limitado ao quão longe você está preparado para ir e sujeito ao número de caracteres que o Excel permitirá na barra de fórmulas. O comprimento máximo do texto será de 30 caracteres e está na célula A1. A célula B1 leria: =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 ,1)&MID(LEFT(A31&REPT(" ",31),25,1),1)&MID(LEFT(A31&REPT(" ",31),24,1),1)&MID(LEFT(A31&REPT(" ", 31),23,1),1)&MID(LEFT(A31&REPT(" ",31),22,1),1)&MID(LEFT(A31&REPT(" ",31),21,1),1)&MID( ESQUERDA(A31&REPT(" ",31),20,1),1)&MID(LEFT(A31&REPT(" ",31),19,1),1)&MID(LEFT(A31&REPT(" ",31),18,1) ,1)&MID(LEFT(A31&REPT(" ",31),17,1),1)&MID(LEFT(A31&REPT(" ",31),16,1),1)&MID(LEFT(A31&REPT(" ",31),15,1),1)&MID(LEFT(A31&REPT(" ",31),14,1),1)&MID(LEFT(A31&REPT(" ",31),13,1),1) &MID(LEFT(A31&REPT(" ",31),12,1),1)&MID(LEFT(A31&REPT(" ",31),11,1),1)&MID(LEFT(A31&REPT(" ",31), 10,1),1)&MEIO(ESQUERDA(A31&REPT(" ",31),9,1),1)&MID(ESQUERDA(A31&REPT(" ",31),8,1),1)&MID(ESQUERDA(A31&REPT(" ",31),7,1),1)&MID(ESQUERDA(A31&REPT (" ",31),6,1),1)&MID(LEFT(A31&REPT(" ",31),5,1),1)&MID(LEFT(A31&REPT(" ",31),4,1),1, 31)&MID(ESQUERDA(A31&REPT(" ",3,1),1),31)&MID(ESQUERDA(A31&REPT(" ",2,1),1),31)&M ID(LEFT(A31&REPT(" ",1,1),1),1)&MID(LEFT(A1&REPT(" ",31),1),1)) Resultado: AXNUMX: Duncan Sullivan-Shaw BXNUMX: wahS -navilluS nacnuD Basicamente, seu texto na célula AXNUMX se torna XNUMX caracteres adicionando espaços suficientes para permitir isso, e cada caractere é lido individualmente da direita para a esquerda até chegar ao primeiro caractere. Isso resultará em seu texto invertido contendo espaços à esquerda, que o comando TRIM remove para você. Para reduzir ou aumentar o comprimento, você removeria ou adicionaria cada instrução. O número dentro da instrução REPT deve ser XNUMX a mais do que o comprimento máximo para o qual você está trabalhando e sua primeira instrução MID começará no comprimento máximo, chegando a XNUMX.
Este comentário foi feito pelo moderador no site
Descobri que o Sub original deu os resultados com suspiro adicional no final de todas as células selecionadas. Então eu consertei essa parte. Para i = UBound(strList) Para 0 Passo -1 Se i > 0 Então xOut = xOut & strList(i) & Sigh Senão xOut = xOut & strList(i) Próximo Rng.Value = xOut
Este comentário foi feito pelo moderador no site
É possível iniciar o reverso em um determinado comprimento de caractere (para a função definida pelo usuário ou código VBA)? Por exemplo, reverta os valores da célula A1 começando após a contagem de caracteres igual ao valor B1. Portanto, se B1 tiver 10 caracteres, o reverso começará nos caracteres 11+ em A1.
Este comentário foi feito pelo moderador no site
Muito obrigado. Este código ajudou meu amigo de uma maneira muito boa
Este comentário foi feito pelo moderador no site
incrível muito útil obrigado por compartilhar os detalhes
Este comentário foi feito pelo moderador no site
Esta é realmente uma grande ajuda ... Muito obrigado
Este comentário foi feito pelo moderador no site
Ik zoek een manier om een ​​heleboel worden em 'rijm-fabetische volgorde' te zetten. Dus de laatste letter van het woord moeten in alfabetische volgorde. Quer enig idee? VrGr Amanda
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos