Selection.NumberFormat = "#,##0.00"" TTRT"""

Sub Макрос5()
Dim s$

    s = " " & Selection.Offset(, -2) 'получаем в переменную символы
    Selection.NumberFormat = "#,##0.00" & s 'используем
End Sub

Sub ApplyFormatBasedOnAdjacentCell()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("ВашЛист") ' Укажите имя вашего листа
    
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row ' Предполагается, что данные в столбце B
    
    Dim i As Long
    For i = 1 To lastRow
        Dim formatString As String
        formatString = ws.Cells(i, "B").Value ' Символы для формата
        
        Select Case formatString
            Case "TTRT"
                ws.Cells(i, "C").NumberFormat = "0.00" ' Пример формата для TTRT
            Case "RRT"
                ws.Cells(i, "C").NumberFormat = "0" ' Пример формата для RRT
            Case "RRR"
                ws.Cells(i, "C").NumberFormat = "#,##0" ' Пример формата для RRR
            Case Else
                ' Действие по умолчанию, если формат не найден
                ws.Cells(i, "C").NumberFormat = "General"
        End Select
    Next i
End Sub

LastCol = Cells(Selection.Row, Columns.Count).End(xlToLeft).Column

Sub tt()
Dim c As Range
Dim x&

x = InputBox("Запрос сдвига", "Введите число")
For Each c In Selection
    Call ФорматЧисла(c, x)
Next
End Sub

Sub ФорматЧисла(c As Range, x&)
' ссылка на тему: https://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=1&TID=170324&TITLE_SEO=170324-formaty-dlya-chisel-s-simvolami-iz-sosedney-yacheyki
' Присваивает формат числу символом из соседней ячейки 13/03/2025 реализация HUGO

Dim s$, ss$

    s = c.Offset(, -x)  'получаем в переменную символы
    
    For i = 1 To Len(s)
        ss = ss & "\" & Mid(s, i, 1)
    Next
    c.NumberFormat = "#,##0.00" & " " & ss 'используем

End Sub

Sub ФорматЧисла(c As Range, x&)
' ссылка на тему: https://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=1&TID=170324&TITLE_SEO=170324-formaty-dlya-chisel-s-simvolami-iz-sosedney-yacheyki
' Присваивает формат числу символом из соседней ячейки 13/03/2025 реализация HUGO
Static f As String
Dim s$, ss$

    s = Cells(c.Row, x) 'c.Offset(, -x)  'получаем в переменную символы
    If Len(s) Then f = s
    For i = 1 To Len(f)
        ss = ss & "\" & Mid(f, i, 1)
    Next
    c.NumberFormat = "#,##0." & howmatch(c) & " " & ss 'используем

End Sub

Function howmatch(c) As String
Dim x, y&
x = Abs(c)
y = Application.Max(2, Len(CStr(x)) - InStr(CStr(x), ","))
howmatch = String(y, "0")
End Function