Удалить последний символ в ячейке Excel

Надстрочный знак в Excel

Добрый день уважаемые читатели блога! Чемпионат идёт, мы болеем за наших, но вопросы продолжают поступать и сегодня мы поговорим о том, как можно записать надстрочный знак в Excel.

В прошлом уроке мы говорили о макросе удаления файлов.

Под надстрочным знаком подразумевается обозначение кубических ли квадратных метров, градусов Цельсия, степеней в математике. Примеров может быть множество. Вот только Excel в отличие от программы Word не умеет быстро и просто включать и отключать надстрочный и подстрочный знак.

Представьте себе, что у вас есть небольшая таблица — 5 строк. В ней нужно, чтобы обозначение кубических метров (3) встало над строкой.

Надстрочный знак в Excel

Стандартным способом Excel считает:

  • выделение символа «3» в каждой ячейке;
  • открытие диалогового окна «Шрифт»;
  • выбор нужного положения для символа (над строкой или под строкой);
  • подтверждение.

Надстрочный знак в Excel

Слишком долго и много действий, причём их нужно будет повторить для каждой ячейки! Если их будет больше, то, конечно, можно будет воспользоваться копированием формата ячеек, но это не вариант.

Пойдём по пути написания небольшого макроса, который позволит для выделенной ячйки перевести последний символ в надстрочное положение.

Как обычно:

  • вкладка «Разработчик», блок кнопок «Код»;
  • жмём «Visual Basic»;
  • добавляем новый модуль Insert -> Module.

Далее вставим код макроса.

Sub Nadstr() ‘ Переводим последний символ в надстрочное положение With ActiveCell.Characters(Start:=Len(Selection), Length:=1) .Font.Superscript = True End With End Sub

Надстрочный знак в Excel

Далее нажимаем на вкладке «Разработчик» кнопку «Макросы», жмём «Выполнить» и получаем вот такой результат. Без выделения определённых символов в ячейке.

Надстрочный знак в Excel

Можно назначить этому макросу сочетание клавиш и использовать в дальнейшем! Надстрочный регистр применён!

Оцените статью
Как в офисе.ru
Добавить комментарий