Excel'de alfasayısal olmayan karakterler nasıl kaldırılır?
Diyelim ki bir çalışma sayfasında JAMES0898#4%^{} gibi alfasayısal olmayan karakterler içeren bir veri aralığı var ve şimdi sadece alfasayısal olmayan karakterleri kaldırmak ve alfasayısal karakterleri korumak istiyorsunuz. Örneğin, JAMES0898#4%^{} > JAMES0898. Excel'deki bu alfasayısal olmayan karakterleri hızlıca nasıl silersiniz?
- VBA kodu ile alfasayısal olmayan karakterleri kaldırma
- Kullanıcı Tanımlı Fonksiyon ile alfasayısal olmayan karakterleri kaldırma
- Kutools for Excel ile alfasayısal olmayan karakterleri kaldırma
VBA kodu ile alfasayısal olmayan karakterleri kaldırma
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!
Kullanıcı Tanımlı Fonksiyon ile alfasayısal olmayan karakterleri kaldırma
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.
Kutools for Excel ile alfasayısal olmayan karakterleri kaldırma
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.
İlgili makaleler:
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi geliştirin ve daha önce hiç olmadığı kadar verimli olun. Kutools for Excel, üretkenliğinizi artırmak ve zamanınızı kaydetmek için300'den fazla gelişmiş özellik sunar. En çok ihtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Office'e sekmeli arayüz getirir ve işinizi çok daha kolaylaştırır
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Aynı pencerenin yeni sekmelerinde birden fazla belge açın ve oluşturun, yeni pencerelerde değil.
- Verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasını azaltır!