Jakaś funkcja Excela, która odwróci ciąg?

16

Czy są jakieś wbudowane funkcje Excela, które odwrócą łańcuch?

microsoft-excel vba string string-manipulation bezmyślna panda
źródło
powinieneś wybrać odpowiedź za pomocą strReverse
Max Hodges

Odpowiedzi:

9

Nie znam żadnej wbudowanej funkcji, ale możesz utworzyć własną funkcję niestandardową.

Najpierw - utwórz nowy moduł:

  1. Wejdź do VBA (naciśnij Alt + F11)
  2. Wstaw nowy moduł (Wstaw> Moduł)

Po drugie - wklej następującą funkcję do nowego modułu ( odniesienie ):

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

Teraz powinieneś mieć możliwość korzystania z funkcji Odwróć w swoim arkuszu kalkulacyjnym

quickcel
źródło
62

Prąd odpowiedź akceptowana jest złym sposobem odwrócić ciąg, zwłaszcza gdy istnieje jeden wbudowany w VBA, należy użyć następującego kodu zamiast (powinien działać tak samo, ale działać o wiele szybciej):

Function Reverse(str As String) As String
    Reverse = StrReverse(Trim(str))
End Function
Grant Peters
źródło
@ n00b - „jak stworzyć moduł” nie było pytaniem. :) To rozwiązanie jest znacznie bardziej wydajne / szybsze / łatwiejsze, chociaż nie jestem pewien, dlaczego TRIMzostało dodane, ponieważ dodatkowe pytanie nie zostało określone w pytaniu. W przypadku „ogromnych” zestawów danych usuń je, TRIMjeśli nie są potrzebne.
ashleedawg