Qualquer função do Excel que inverterá uma string?

15

Existe alguma função interna do Excel que reverterá uma string?

    
por mindless.panda 19.03.2010 / 03:43

2 respostas

9

Não há nenhuma função interna que conheço, 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 em 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 na sua planilha

    
por 19.03.2010 / 04:45
59

A resposta aceitada atual é uma maneira ruim de reverter uma string, especialmente quando há uma embutida no VBA, use Em vez disso, o código a seguir (deve agir da mesma forma, mas executar muito mais rápido):

Function Reverse(str As String) As String
    Reverse = StrReverse(Trim(str))
End Function
    
por 23.04.2012 / 07:46