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


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


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

@ 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
Korzystając z naszej strony potwierdzasz, że przeczytałeś(-aś) i rozumiesz nasze zasady używania plików cookie i zasady ochrony prywatności.
Licensed under cc by-sa 3.0 with attribution required.