Question

我现在正在整理If, ElseIf and Else statement以查看列表并使其成为标准。我正在努力的部分是那些在脚注参考结束时使用了上标字符的单元格。这些细胞需要具有与标准10.5不同的特定线高。

感谢 marg 了解工作的If，ElseIf，Else语句。

但我怎样才能找到＆amp;最后用那些上标字符对待那些细胞（它总是在最后？

非常欢迎任何指导或指示。

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

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

Excel宏：如何选择/处理带有结尾上标字符的单元格？

1 个答案: