["«“][А-я ]*["«“][А-я ]*["»”]|["«“][А-я ]*["»”]|\b\S\w*.\S\w*\S\b|\b\S\w*\S\b

\b\S\[А-я]*.\S\[А-я]*\S\b|\b\S\[А-я]*\S\b|\b\S\w*.\S\w*\S\b|\b\S\w*\S\b

Sub ReverseString()
    Dim R As Integer
    Dim strA As String
    R = 1
    While Selection(R, 1).Value <> ""
        strA = Selection(R, 1).Value
        nmword = Len(strA) - Len(Replace(strA, " ", ""))
        Select Case nmword
            Case 3
                s = Split(Selection(R).Value, " ")
                Selection(R).Value = Join(Array(s(1), s(0), s(2), s(3)), " ")
            Case 2
                s = Split(Selection(R).Value, " ")
                Selection(R).Value = Join(Array(s(1), s(0), s(2)), " ")
            Case 1
                s = Split(Selection(R).Value, " ")
                Selection(R).Value = Join(Array(s(1), s(0)), " ")
            End Select
        R = R + 1
        nmword = 0
    Wend
End Sub

Sub ReverseString()
    Dim WB As Workbook
    Dim WS As Worksheet
    Dim R As Integer
    Dim strA As String
    
    Set WB = Excel.ActiveWorkbook
    Set WS = WB.ActiveSheet

    R = 1
    While (WS.Cells(R, 1).Value <> "")
        strA = WS.Cells(R, 1).Value
        nmword = Len(strA) - Len(Replace(strA, " ", ""))
            If nmword = 2 Then
                s = Split(WS.Cells(R, 1).Value, " ")
                WS.Cells(R, 1).Value = Join(Array(s(1), s(0), s(2)), " ")
            End If
            If nmword = 1 Then
                s = Split(WS.Cells(R, 1).Value, " ")
                WS.Cells(R, 1).Value = Join(Array(s(1), s(0)), " ")
            End If
        R = R + 1
        nmword = 0
    Wend
End Sub