Excel'de alfasayısal olmayan karakterler nasıl kaldırılır?

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

1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına birlikte basın.

2. Ekle > Modül'e tıklayın ve ardından aşağıdaki VBA kodunu Modüle yapıştırın:

VBA:Tüm alfasayısal olmayan karakterleri kaldır

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. Kodu çalıştırmak için F5 tuşuna basın veya Çalıştır düğmesine tıklayın.

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

Şimdi, seçilen aralıktaki tüm alfasayısal olmayan karakterler 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 bir hücreye imleci yerleştirir ve alfasayısal olmayan karakterleri tek tek manuel olarak kaldırırız. VBA veya Kullanıcı Tanımlı Fonksiyonlar konusunda uzman iseniz, bunu kodlayabilir ve tüm alfasayısal olmayan karakterleri toplu olarak kaldırabilirsiniz. Ancak burada size, yalnızca 2 tıklamayla her türlü karakteri kaldırabilen Kutools for Excel'in Belirli Karakterleri Sil özelliğini öneririm!

Ayrıca, Excel'deki hücrelerden tüm alfasayısal olmayan karakterleri kaldırmak için özel bir fonksiyon tanımlayabilirsiniz.

1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına birlikte basın.

2. Ekle > Modül'e tıklayın ve ardından aşağıdaki kodu Modüle yapıştırın:

Kullanıcı Tanımlı Fonksiyon: Tüm alfasayısal olmayan karakterleri kaldır

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ücreyi seçin ve formülü girin =DeleteNonAlphaNumeric(B3)ve ardından bu formülü diğer hücrelere uygulamak için Otomatik Doldurma tutamacını sürükleyin.

Yukarıdaki iki yöntemle, kodları bilmek zorundasınız, ancak Excel başlangıç seviyesinde olanların çoğu kodu kullanamaz, bu yüzden size kolay bir yol göstereceğim.

Kutools for Excel- Excel için 300 den fazla pratik araç içerir. Tam özellikli ücretsiz deneme 30-gün, kredi kartı gerekmez! Hemen Edinin

Eğer Kutools for Excel'i yüklediyseniz, lütfen aşağıdaki adımları izleyin:

1. Alfasayısal olmayan karakterleri kaldırmak istediğiniz aralığı seçin ve Kutools > Metin > Belirli Karakterleri Sil.

2. Ardından bir Karakterleri Sil iletişim kutusu açılacak, sadece Alfasayısal Olmayan seçeneğini işaretleyin ve Tamam düğmesine tıklayın.

Şimdi, tüm alfasayısal olmayan karakterler metin dizelerinden silindi.