Sub MAIN()
Worksheets("Sheet1").Cells(1) = "H2O"
Worksheets("Sheet1").Cells(2) = "H2O"
Dim myRange As Range
Set myRange = Worksheets("Sheet1").Range("B1")
myRange.Characters(2, 1).Font.Subscript = True
If Sheet1.Range("A1").Characters(2, 1).Font.Subscript = True Then MsgBox "A1 2 下标!"
If Sheet1.Range("B1").Characters(2, 1).Font.Subscript = True Then MsgBox "B1 2 下标!"
End Sub