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

badem18

Altın Üye
Altın Üye
Katılım
27 Mart 2014
Mesajlar
13
Beğeniler
1
Excel Vers. ve Dili
2010
#1
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
19,300
Beğeniler
49
Excel Vers. ve Dili
2010-Türkçe
#2
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