{quote}{login=Captain_Nemo}{date=06.07.2008 12:42}{thema=Надстрочный (подстрочный) шрифт}{post}Может кто-нибудь подскажет как быстро менять шрифт на надстрочный (подстрочный) в ячейках. В Worde это Ctrl+= (Ctrl+Shift+=). А в Excel все время приходится в формат ячейки лазить.{/post}{/quote}  
 
Sub Верхний_нижний_индекс()  
 
' если кв.м, то Start:=2; если кв.км, то Start:=3  
 
   With ActiveCell.Characters(Start:=2, Length:=1).Font  
       .Superscript = True 'верхний индекс  
       .Subscript = False  'нижний индекс  
   End With  
End Sub