Как поменять в Excel ячейке местами слова?

Question

[Влад]

У меня в Excel в ячейках записаны значения в таком виде:
12-34-56
12-34-56

Как поменять местами? подскажите плс
56-34-12?

Comments

[Elvis]

Вам нужно макросом или формулой? значения всегда по такому шаблону? XX-YY-ZZ? и нужно всегда приводить к ZZ-YY-XX?

Answer 1

[Антон Федорян]

С помощью формулы в соседней ячейке:
=ПРАВСИМВ(A1;2)&"-"&ПСТР(A1;4;2)&"-"&ЛЕВСИМВ(A1;2)

С помощью VBA-макроса:

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