How to swap words in Excel cell?

Question

excel

I have values ​​​​in Excel in the cells in this form:
12-34-56
12-34-56
How to swap? pls tell me 56-34-12
?

Answer 1

Using a formula in an adjacent cell:
Using a VBA macro:

Sub ReverseString()
    Dim WB As Workbook
    Dim WS As Worksheet
    Dim R As Integer
    
    Set WB = Excel.ActiveWorkbook
    Set WS = WB.Worksheets("reverse")
    
    ' Меняется столбец A1
    R = 1
    While (WS.Cells(R, 1).Value <> "")
        s = Split(WS.Cells(R, 1).Value, "-")
        WS.Cells(R, 1).Value = Join(Array(s(2), s(1), s(0)), "-")
        R = R + 1
    Wend
End Sub