有条件地格式化string的一部分

我正在尝试使用下面的代码来使单元格的最后一位更小，并且使用上标（脚注）。 我试图testing单元格中的倒数第三个字符是否是一个左括号（因此脚注是一个数字），并相应的格式，但以下似乎并没有工作：

Sub Footnoter() ' ' Footnote Macro ' Keyboard Shortcut = Ctrl + Shift + Q ' If (Len(ActiveCell) - 2) = "(" Then With ActiveCell.Characters(Start:=Len(ActiveCell) - 2, Length:=3).Font .Size = (ActiveCell.Characters(Start:=Len(ActiveCell) - 3, Length:=1).Font.Size - 2) .Superscript = True End With Else With ActiveCell.Characters(Start:=Len(ActiveCell) - 3, Length:=4).Font .Size = (ActiveCell.Characters(Start:=Len(ActiveCell) - 3, Length:=1).Font.Size - 2) .Superscript = True End With End If End Sub 

Answer 1

你想在这个条件是什么

 If Mid(ActiveCell, Len(ActiveCell) - 2, 1) = "(" Then