Макрос Excel: как я могу выбрать / обработать ячейки с завершающими надстрочными символами?

Question

Я сейчас собираю If, ElseIf и Else оператор , чтобы просмотреть списки и сделать их стандартными. Части, в которых я борюсь, - это те ячейки, в которых верхний индекс использовался в конце предложения для ссылок на сноски. Этим ячейкам должны быть заданы конкретные высоты линий, отличные от стандартных 10.5.

Спасибо marg за рабочее заявление If, ElseIf, Else.

Но как мне найти и обработать эти ячейки надстрочными символами в конце (это всегда в конце?

Любые указания или указатели очень приветствуются.

Приведенный ниже код не обновляет ячейки с верхним индексом только в конце предложения.

Dim targetCell As Range
...
ElseIf targetCell.font.superscript Then
      targetCell.RowHeight = 12.75
...
etc

Большое спасибо

Mike.

Answer 1

Это должно сделать это.

Sub testForSuperscriptAtEndOfCellValue()
    Dim c As Range

    For Each c In Range("A:A").Cells
        If c.Characters(Len(c), 1).Font.Superscript Then
            c.EntireRow.RowHeight = 42
        End If
    Next c
End Sub