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

Katılım
27 Mart 2014
Mesajlar
18
Excel Vers. ve Dili
2010
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

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

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

Kod:
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
 
Üst