Note: The other languages of the website are Google-translated. Back to English
Oturum aç  \/ 
x
or
x
Kaydol  \/ 
x

or

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

Bir dizi veri olduğunu varsayarsak, JAMES0898 # 4% ^ {}, bir çalışma sayfasında alfanümerik olmayan karakterler içeren ve şimdi yalnızca alfanümerik olmayan karakterleri kaldırmak ve alfanümerik karakterleri korumak istiyorsunuz. Örneğin, JAMES0898 # 4% ^ {} > JAMES0898. Excel'deki bu alfasayısal olmayan karakterleri nasıl hızlı bir şekilde silersiniz?


Alfasayısal olmayan karakterleri VBA kodu ile kaldırın

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! Tam Özellikli Ücretsiz Deneme 30 günlük!

Kullanıcı Tanımlı İşlev ile alfasayısal olmayan karakterleri kaldırın

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.


Kutools for Excel ile alfasayısal olmayan karakterleri kaldırın

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.


İlgili yazılar:


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2019 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay dağıtım. Tam özellikli 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
ofis tabanı
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Dee · 4 years ago
    How do you remove the characters while keeping the space separator?
  • To post as a guest, your comment is unpublished.
    Mike Litoris · 7 years ago
    VBA method worked, but only works on the selected range. You cannot specify the output into a different range of cells than the input. So you must copy the source data into the target range, select the data, run the script and allow it to output to the default range. Also, the period (.) is not considered a special character, so if you want to remove those too, you'll need to search and replace.
  • To post as a guest, your comment is unpublished.
    Bryan Steven · 7 years ago
    Thanks for sharing, but still don't like the input-box method... :D