Помещение последнего символа ячейки над строкой

Рассматриваемый в данном подразделе трюк позволяет преобразовать последний символ ячейки в верхний индекс. Для этого следует применить макрос, приведенный в листинге 3.65.

Листинг 3.65. Помещение последнего символа над строкой

Sub LastCharUp()

' Изменение расположения последнего символа ячейки

With ActiveCell.Characters(Start:=Len(Selection),

Length:=1).Font

.Superscript = True

End With

End Sub

В результате выполнения макроса можно в ячейке вместо значения, например, м3 получить значение м³. При этом следует учитывать, что данный макрос не преобразует числовые значения (например, представление числа 72 не изменится).