Jak odwrócić ciąg znaków w vba (z przykładem)

Aby odwrócić ciąg tekstowy, możesz użyć funkcji StrReverse w VBA.

Oto typowy sposób wykorzystania tej funkcji w praktyce:

 SubReverseStrings ()
    
Dim i As Integer

For i = 2 To 11
    Range("B" & i) = StrReverse(Range("A" & i))
Next i

End Sub

Ten konkretny przykład odwraca każdy ciąg w zakresie A2:A11 i wyświetla wyniki w zakresie B2:B11 .

Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.

Przykład: Jak odwrócić ciągi znaków za pomocą VBA

Załóżmy, że w Excelu mamy następującą kolumnę z nazwami drużyn koszykarskich:

Załóżmy, że chcemy odwrócić nazwę każdego zespołu i wyświetlić wyniki w odpowiedniej komórce w kolumnie B.

W tym celu możemy utworzyć następujące makro:

 SubReverseStrings ()
    
Dim i As Integer

For i = 2 To 11
    Range("B" & i) = StrReverse(Range("A" & i))
Next i

End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Kolumna B wyświetla nazwę każdego zespołu z kolumny A od tyłu.

Na przykład:

• Mavs zmienia się w SvaM
• Spurs zmieniają się w SrupS
• Rockets zmienia się w StekcoR
• Kings staje się sgniK

I tak dalej.

Należy pamiętać, że funkcja StrReverse działa również z liczbami.

Na przykład zastosowanie funkcji StrReverse do liczby 1234 zwróci wartość 4321 .

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

VBA: jak sprawdzić, czy ciąg zawiera inny ciąg
VBA: Jak policzyć liczbę wierszy w zakresie
VBA: Jak pisać funkcje COUNTIFS i COUNTIFS