Excelmacros：如何select/处理结束上标字符的单元格？

我现在正在把If，ElseIf和Else的陈述列入清单并使之成为标准。 我挣扎的地方就是脚注引用结尾处使用了上标字符的单元格。 这些细胞需要被赋予与标准10.5不同的特定线高。

谢谢你的工作如果，ElseIf，Else的声明。

但是，我怎样才能find和对待那些最后一个字符的字元（它总是在最后？

任何指导或指针非常受欢迎。

下面的代码不会仅在句子末尾用上标更新单元格。

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

非常感谢

麦克风。

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