Reverse Word/String in Excel using VBA

[daveyc18]

Im taking one of those free continuing education courses to maintain my designation...anyway, one of the tasks is to make a loop that reverse the string in Excel, but im totally lost...could someone help me, pleasE?

 

[JugglerJAF]

I have a custom function set up to do this, but you should be able to modify it into a macro if needed:

Function REVERSESTRING(c) As String
    Dim i As Integer
    For i = Len(c) To 1 Step -1
        my_string = my_string & Mid(c, i, 1)
    Next i
    REVERSESTRING = my_string
End Function

This would change "Adam Zapple" into "elppaZ madA"

 

[Georgiboy]

Nice code Juggler,

I was playing with this as it interested me, thought i would paste what i had anyway.

Sub SrtRev() 
    Dim x As Long, str As String, var() As Variant
     
    str = "ABCDEFG" 'define string
     
    For x = 1 To Len(str)
       ReDim Preserve var(x)
       var(x) = Mid(str, x, 1)
    Next


    For x = LBound(var) To UBound(var) / 2
        tmp = var(UBound(var) - x)
        var(UBound(var) - x) = var(x)
        var(x) = tmp
    Next x
    
    For x = LBound(var) To UBound(var) - 1
        MsgBox var(x)
    Next x
 
End Sub

Mostly the same method

 

[daveyc18]

test

 

[Marcelo Branco]

VBA has a function StrReverse

Try

Dim MyString As String, RevString As String

MyString = "Adam Zapple"
RevString = StrReverse(MyString)
MsgBox RevString

M.