查找具有上標和下標文字的單元格

Question

我正在嘗試學習VBA。

我想在單元格文本中標記具有上標/下標的單元格。這可能使用Excel VBA？

Answer 1

如果你的細胞是

• 所有標，或
• 開始有上標字符（這是離奇 - xlPart應該找一個格式化字符串的任何部分）

那麼這代碼（設置爲查看B列）將比根據msft鏈接測試非常單元格中的每個字符要快得多

您可以使用Application.FindFormat.Font.Superscript = True上標

失敗這我會看看更復雜的解決方案來解析出這些需要導出文本的字符。

Sub Test() 

    Dim ws As Worksheet 
    Dim rng1 As Range 
    Dim rng2 As Range 
    Dim rng3 As Range 
    Dim FirstAddress As String 

    Set ws = ActiveSheet 
    Set rng1 = ws.Range("B:B") 


    Application.FindFormat.Font.Subscript = True 


    With rng1 
     Set rng2 = .Cells.Find("*", , xlFormulas, xlPart, xlByRows, xlNext, , , True) 

     If rng2 Is Nothing Then 
      MsgBox "None found" 
     Else 
      FirstAddress = rng2.Address 
      Set rng3 = rng2 
      Do 
       Set rng2 = .Cells.Find("*", rng2, xlFormulas, xlPart, xlByRows, xlNext, , , True) 
       If rng2.Address = FirstAddress Then 
        Exit Do 
       Else 
        Set rng3 = Union(rng3, rng2) 
       End If 
      Loop 
      If Not rng3 Is Nothing Then MsgBox rng3.Address 
     End If 
    End With 
End Sub