VBA Help to Reverse a String without StrReverse function

[malleshg24]

Hi Team, 


Need your help  to reverse the string in Column A and paste in Column B. 
Through loop and without using STRREVERSE function. Sample Data as shown below

Column A
Column B

string
Result

sdfasf
fsafds

uios
soiu

kdsljf23
32fjlsdk


:think:

Thanks in advance 

Regards,
Mallesh

[YasserKhalil]

Try this UDF

Function strReverse(ByVal cell As Range) As String    strReverse = VBA.strReverse(cell.Value)
End Function

[pike]

Hello malleshg2,
Excel 2016 array formula
=IF(A1="","",CONCAT(MID(A1,1 + LEN(A1)-ROW(INDIRECT("1:" & LEN(A1))),1)))

[malleshg24]

Hi Khalil and Pike

Thanks a lot both of you,
one of my friend challenged me to reverse the string, without using STRReverse function in VBA.
Is it possible i am new in coding. Thanks

Regards
Mallesh

[YasserKhalil]

Hello ..
No problem. There must be always another way
Try this

Sub Test_ReverseString_UDF()
    MsgBox ReverseString("Hello World")
End Sub


Function ReverseString(s As String)
    Dim t As String
    Dim n As Long
    
    For n = Len(s) To 1 Step -1
        t = t & Mid(s, n, 1)
    Next n
    
    ReverseString = t
End Function

[malleshg24]

Superb !

Thank you so much Khalil and Poke for lovely solution.

Regards,
Mallesh

[YasserKhalil]

You're welcome. Glad we can offer some help