Soru subscript, superscript, symbol

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Bir hücrede bulunan harfler arasında subscript (alt simge), superscript (üst simge), symbol (sembol) olarak kullanılmış olanlar varsa, bu nasıl anlaşılır? (fonksiyon ya da makro ile)
Saygılarımla

 

[mancubus]

fonksiyon haline getirmesi sizden
seçilen hücrede arar.
herhangi bir hücre için ActiveCell'i Range("A1") vs bir ibare ile değiştirin.

Sub xlTR_174207_OzelKarakterler()

    Dim ozelkarakter As String
    Dim i As Long
   
    For i = 1 To Len(ActiveCell)
        With ActiveCell.Characters(i, 1)
            If .Font.Superscript = True Or .Font.Subscript = True Or Not .Text Like "[0-9a-zA-Z]" Then
                ozelkarakter = ozelkarakter & ", " & Mid(ActiveCell, i, 1)
            End If
        End With
    Next

    ozelkarakter = Mid(ozelkarakter, 3)

    MsgBox ozelkarakter

End Sub