EXCEL VBA: форматировать текст после точки в каждой ячейке

работает для ручного запуска

Sub test2()
    Dim n As Integer, i As Integer, counter As Integer
    Dim text As String
    Dim ws As Worksheet
    
    Set ws = ActiveSheet
    n = ws.Cells(Selection.Row, Selection.Column).Characters.Count
    text = Selection.Value
    
    For i = 1 To n
        If Mid(text, i, 1) = "." Then
            ws.Cells(Selection.Row, Selection.Column).Characters(i, n - i + 1).Font.Superscript = True  ' with dot
            'ws.Cells(Selection.Row, Selection.Column).Characters(i+1, n - i + 1).Font.Superscript = True  ' without dot
        End If
    Next i
End Sub

если вы хотите запускать код автоматически, вы должны создать событие worksheet.selectionchange и вставить

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = n Then ' column index where you want do superscript
        test2 ' or place here code
    End If
End Sub

он будет работать для любого выбранного диапазона в желаемом столбце. Не следует выполнять цикл через весь лист макросом, запущенным в событии selectionchange. Вы можете сделать какую-то форму с помощью кнопки запуска

Предлагаемое решение:

• Работает с диапазоном Selection (при необходимости измените)
• Проверяет, содержит ли Cell Formula
• Проверяет, есть ли у Cell Contents
• Проверяет, содержит ли Cell ., используя InStrRev, чтобы убедиться, что он использует последний .
• Форматирует содержимое по мере необходимости

…

Sub Format_Text_In_Cells()
Dim Rng As Range, Cll As Range
Dim bLen As Byte, bPos As Byte

    Set Rng = Selection
    For Each Cll In Rng.Cells
        With Cll
            
            If Not (.HasFormula) Then           'Validates if cells contains a formula
            
                bLen = Len(.Value)                  'Get length of cell contents
                bPos = InStrRev(.Value, ".")        'Get position of last "."
                If bPos > 0 And bPos < bLen Then
                
                    'With .Characters(Start:=1 + bPos, Length:=bLen).Font   'Use this line to exclude the `.`
                    With .Characters(Start:=bPos, Length:=bLen).Font        'Use this line to include the `.`
                    
                        Rem Format Cell Contents
                        .FontStyle = "Bold"
                        .Superscript = True
                        .Color = XlRgbColor.rgbRed
    
    End With: End If: End If: End With: Next

    End Sub

Ячейки [A5] и [A8] содержат формулы.