Макрос для помощи надстрочного знака последнего символа множества строк в одном столбце

Question

Я добавляю сноски (всегда добавляю сноски) в таблицу, и я действительно хотел бы иметь возможность автоматизировать повторяющуюся природу надстрочных символов моих символов.

В настоящее время это:> введите ячейку> выделите последний символ> нажмите на поле «Шрифт» (версия 2007 года), чтобы открыть опции для использования надстрочного индекса> поле надстрочного тика, нажмите «хорошо»> и перейдите к следующему

У любого из вас есть идеи, как я могу сказать:> посмотрите в столбце A до строки 400, где> вы обнаружите, что «Symbol» делает последний код этой строки (фактически, sysmbol) надстрочным> перейдите к следующей.

Я попытался записать некоторые из моих действий, но он читает верхний индекс FALSE. Поэтому я, должно быть, что-то делаю не так

Есть идеи или примеры, как это сделать?

Answer 1

Создайте макрос, который будет вызывать событие WorksheetChange, затем выполните тест для своего символа, а затем измените его на Superscript, если он там есть. Это будет срабатывать каждый раз, когда вы меняете ячейку:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Cells.Count > 1 Then
    Exit Sub
  Else
    If Right(Target.Value, 1) = CHR(128) Then
      Target.Characters(Start:=Len(Target.Value), _
                        Length:=1).Font.Superscript = True
    End If
  End If
End Sub