ÜST SİMGELERİ EXCELL FORMUL İLE SİLDİRME

[badem18]

LÜTFEN YARDIM ( HASANAGA) YAZISINDA HASAN NORMAL AGA İSE ÜST KARAKTER OLARAK YAZILIDIR FORMULÜN ÜST KARAKTER KISMINI 3 - 5 VEYA 10 KARAKTER NE OLURSA OLSUN SİLİNMESİNİ İSTİYORUM YARDIM EDECEK DOSTLARA ŞİMDİDEN ÇOK TEŞEKKÜRLER.

 

[Ömer]

Merhaba,

A1:A10 arası için yazdım.

Sub EfektSil()

    Dim a As Range, i As Byte, d As String, deg As String
    
    For Each a In Range("A1:A10")
        For i = 1 To Len(a.Value)
            d = Mid(a.Value, i, 1)
            If a.Characters(i, 1).Font.Superscript = False Then
                deg = deg & d
            End If
        Next i
        a.Value = deg
        deg = ""
    Next a

End Sub