Alguma função do Excel que reverterá uma string?

16

Existem funções internas do Excel que reverterão uma string?

mindless.panda
fonte
você deve escolher a resposta com StrReverse
Max Hodges

Respostas:

9

Não há nenhuma função interna que eu saiba, mas você pode criar sua própria função personalizada.

Primeiro - crie um novo módulo:

  1. Entre no VBA (pressione Alt + F11)
  2. Inserir um novo módulo (Inserir> Módulo)

Segundo - cole a seguinte função no seu novo módulo ( referência ):

Function Reverse(Text As String) As String
    Dim i As Integer
    Dim StrNew As String
    Dim strOld As String
    strOld = Trim(Text)
    For i = 1 To Len(strOld)
      StrNew = Mid(strOld, i, 1) & StrNew
    Next i
    Reverse = StrNew
End Function

Agora você deve poder usar a função Reverse em sua planilha

quickcel
fonte
62

A resposta atual aceita é uma maneira ruim de reverter uma string, especialmente quando existe uma incorporada no VBA, use o seguinte código (deve agir da mesma maneira, mas executar MUITO mais rápido):

Function Reverse(str As String) As String
    Reverse = StrReverse(Trim(str))
End Function
Grant Peters
fonte
@ n00b - "como criar um módulo" não era a questão. :) Esta solução é muito mais eficiente / mais rápida / mais fácil, embora eu não tenha certeza do porquê TRIMfoi adicionada, pois espaço em branco extra não foi especificado na pergunta. Para conjuntos de dados "enormes", remova TRIMse não precisar.
ashleedawg