Excel VBA Font.Superscript代码不起作用

Question

此excel代码不起作用。为什么？事实上，我无法使任何superscript代码工作。我使用Excel 2007

注意：intRow和intColumn是确定行和列的整数。

Cells(intRow, intColumn).Characters(Start:=Len(Cells(intRow, intColumn).Value), Length:=1).Font.Superscript = True

Answer 1

我发现了问题。它是单元格的format。它必须是text。

在superscript行之前添加该行解决了问题：

Cells(intRow, intColumn).NumberFormat = "@"

感谢。

Answer 2

您需要完全限定所有细胞。这有效：

Option Explicit

Public Sub test()
    SuperscriptLastLetter 1, 1
End Sub

Public Sub SuperscriptLastLetter(ByVal lngRow As Long, ByVal lngCol As Long)

    With ActiveSheet.Cells(lngRow, lngCol)

        .Characters(Start:=Len(.Value), Length:=1).Font.Superscript = True

    End With

End Sub