Excel'de alfanümerik olmayan karakterler nasıl temizlenir?

Aşağıdaki kısa VBA koduyla alfanümerik olmayan karakterleri kolayca kaldırabilirsiniz. İşte nasıl yapacağınız:

1. Alt+F11 tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini açın.

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

VBA: Tüm alfanümerik 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. F5 tuşuna basın veya Çalıştır düğmesine tıklayarak kodu çalıştırın.

4. Ardından açılan iletişim kutusunda, alfanümerik olmayan tüm karakterleri kaldırmak istediğiniz aralığı seçin ve Tamam düğmesine tıklayın.

Artık Aralık Seç içinden tüm alfanümerik olmayan karakterler kaldırılmıştır. Ekran görüntüsüne göz atın:

2 tıklama ile harika bir araçla tüm alfanümerik olmayan karakterleri kaldırın

Genellikle imleci bir hücreye yerleştirir ve alfanümerik olmayan karakterleri tek tek manuel olarak sileriz. VBA veya Kullanıcı Tanımlı İşlevler konusunda bilginiz varsa, bunu kodlayarak tüm alfanümerik olmayan karakterleri topluca kaldırabilirsiniz. Ancak burada size Kutools for Excel adlı harika aracı öneriyoruz; bu araç, Belirli Karakterleri Sil özelliğiyle her türlü istenmeyen karakteri yalnızca 2 tıklamayla temizlemenizi sağlar!

Excel'de hücrelerden tüm alfanümerik olmayan karakterleri kaldırmak üzere özel bir işlev de tanımlayabilirsiniz.

1. Alt+F11 tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini açın.

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

Kullanıcı Tanımlı İşlev: Tüm alfanümerik 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 dönün, boş bir hücre seçin ve =DeleteNonAlphaNumeric(B3) formülünü girin; ardından diğer hücrelere uygulamak için Otomatik Doldurma tutamacını aşağı sürükleyin.

Yukarıdaki iki yöntemde kodları bilmeniz gerekir; ancak Excel’i yeni öğrenen çoğu kullanıcı bu kodları kullanamaz. Bu yüzden size bunu yapmanın çok daha kolay bir yolunu göstereceğim.

Kutools for Excel – Excel için 300’den fazla kullanışlı araçla donatılmış! Tam özellikli 30 günlük ücretsiz denemeyle hemen keşfedin, kredi kartı gerekmez!Şimdi Edinin

Kutools for Excel yüklüyse, lütfen aşağıdaki adımları izleyin:

1. Alfanümerik olmayan karakterleri kaldırmak istediğiniz aralığı seçin ve Kutools > Metin > Belirli Karakterleri Sil seçeneğine tıklayın.

2. Ardından bir Karakterleri Sil iletişim kutusu açılacaktır; yalnızca Alfanümerik Olmayan seçeneğini işaretleyin ve Tamam düğmesine tıklayın.

Artık metin dizelerinden tüm alfanümerik olmayan karakterler kaldırılmıştır.