使用Excel VBA中的上标访问单元格

Question

我正在尝试访问存储在具有上标（如ft²）的单元格中的值。当我在消息框中打印时，VBA如何返回ft2。任何机构都可以告诉我如何从VBA访问单元格中的实际值吗？

Answer 1

以下是定位包含上标字符的单元格的一种方法：

Sub FindingSupers()
   msg = "The following cells contain superscript characters" & vbCrLf

   For Each r In ActiveSheet.UsedRange
      If r.Value <> "" Then
         For i = 1 To Len(r.Value)
            If r.Characters(i, 1).Font.Superscript Then
              msg = msg & r.Address(0, 0) & vbCrLf
              Exit For
            End If
         Next i
      End If
   Next r
   MsgBox msg
End Sub