Aşağıdaki kısa VBA kodu ile alfasayısal olmayan karakterleri de kaldırabilirsiniz. Bunu şu şekilde yapabilirsiniz:

1. Basın Ara Toplam + F11 tuşlarını birlikte açarak Uygulamalar için Microsoft Visual Basic pencere.

2. tık Ekle > modülve ardından Modüle VBA kodunun altına yapıştırın:

VBA: Alfasayısal olmayan tüm karakterleri kaldırın

Sub RemoveNotAlphasNotNum()
'Updateby2014128
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    xOut = ""
    For i = 1 To Len(Rng.Value)
        xTemp = Mid(Rng.Value, i, 1)
        If xTemp Like "[a-z.]" Or xTemp Like "[A-Z.]" Or xTemp Like "[0-9.]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

3. Basın F5 anahtarı veya tıklayın koşmak kodu yürütmek için düğmesine basın.

4. Ardından, açılır iletişim kutusunda alfasayısal olmayan tüm karakterleri kaldırmak istediğiniz bir aralığı seçin ve OK düğmesine basın.

Artık tüm alfasayısal olmayan karakterler seçilen aralıktan silindi. Ekran görüntüsüne bakın:

Harika bir araçla tüm alfasayısal olmayan karakterleri kaldırmak için 2 tıklama

Genellikle imleci bir hücreye koyarız ve ardından alfasayısal olmayan karakterleri tek tek manuel olarak kaldırırız. VBA veya Kullanıcı Tanımlı İşlevlere aşina iseniz, onu kodlayabilir ve alfanümerik olmayan tüm karakterleri toplu olarak kaldırabilirsiniz. Ancak burada, sadece 2 tıklama ile her türlü karakteri kaldırabilen Kutools for Excel'in Karakterleri Kaldır özelliği olan harika bir araç önereceğim!

Excel'deki hücrelerden alfasayısal olmayan tüm karakterleri kaldırmak için özel bir işlev de tanımlayabilirsiniz.

1. Basın Ara Toplam + F11 tuşlarını birlikte açarak Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve ardından aşağıdaki kodu Modüle yapıştırın:

Kullanıcı Tanımlı İşlev: Alfasayısal olmayan tüm karakterleri kaldırın

Function DeleteNonAlphaNumeric(xStr As String) As String
Dim xStrR As String
Dim xCh As String

Dim xStrMode As String
Dim xInt As Integer
    xStrMode = "[A-Z.a-z 0-9]"
    xStrR = ""
    For xInt = 1 To Len(xStr)
        xCh = Mid(xStr, xInt, 1)
        If xCh Like xStrMode Then
            xStrR = xStrR & xCh
        End If
    Next
    DeleteNonAlphaNumeric = xStrR
End Function
    

3. Şimdi çalışma sayfasına geri dönün, boş bir hücre seçin ve formülü girin = DeleteNonAlphaNumeric (B3)ve sonra bu formülü diğer hücrelere uygulamak için Otomatik Doldurma tutamacını indirmeyi sürükleyin.

Yukarıdaki iki yöntemle, kodları bilmeniz gerekir, ancak Excel'e yeni başlayanlar olarak çoğumuz kodu kullanamıyoruz, bu yüzden burada size bunu yapmanın kolay bir yolunu sunacağım.

Kutools for Excel- Excel için 300'den fazla kullanışlı araç içerir. 30 günlük tam özellikli ücretsiz deneme, kredi kartı gerekmez! Şimdi alın

Kutools for Excel'i kurduysanız, lütfen aşağıdaki adımları izleyin:

1. Alfasayısal olmayan karakterleri kaldırmanız gereken aralığı seçin ve Kutools > Metin > Karakterleri Kaldır.

2. Sonra bir Karakterleri Sil iletişim kutusu görünecektir, sadece işaretleyin Alfasayısal olmayan seçeneğini tıklayın ve Ok düğmesine basın.

Artık tüm alfasayısal olmayan karakterler metin dizelerinden silindi.