Excel'deki hücrelerden sayısal olmayan karakterler nasıl kaldırılır?
Bu kadar çok veriye sahip bir çalışma sayfanız olduğunu varsayarsak ABCD4578124YUIOHve yalnızca sayısal olmayan karakterleri kaldırmak istiyorsunuz ABCDYUIOH ancak sayısal karakterleri hücrelerde tutun. Elbette bu karakterleri tek tek silebilirsiniz, ancak burada sayısal olmayan karakterlerden aşağıdaki gibi hızlı bir şekilde hücrelerden kurtulabilirsiniz:
Sayısal olmayan karakterleri VBA kodu ile kaldırın
Sayısal olmayan karakterleri tek tıklamayla kaldırmak için kullanışlı bir araç
Sayısal olmayan karakterleri VBA kodu ile kaldırın
Sayısal olmayan karakterleri VBA kodlu bir aralıktan kaldırmak için lütfen aşağıdakileri yapın:
1. Tıkla Geliştirici > Visual Basic açmak için Uygulamalar için Microsoft Visual Basic penceresi. İçinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modülve ardından aşağıdaki kodları kopyalayıp modüle yapıştırın:
VBA: Sayısal olmayan tüm karakterleri kaldırın
Sub RemoveNotNum()
'Updateby Extendoffice
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 "[0-9]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
2. Ardından, kodu çalıştırmak için düğme, açılır pencerede KutoolsforExcel iletişim kutusunda, kaldırmak istediğiniz sayısal olmayan karakterleri içeren bir aralık seçin ve ardından OK buton. Ekran görüntüsüne bakın:
3. Ardından, seçilen aralıktaki tüm sayısal olmayan karakterler kaldırılır.
Ondalık noktalı sayılar varsa, aşağıdaki VBA'yı kullanabilirsiniz:
Sub RemoveNotNum()
'Updateby Extendoffice
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 "[0-9.]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
Sonuçları aşağıda gösterilen ekran görüntüsü gibi görebilirsiniz:
Sayısal olmayan karakterleri tek tıklamayla kaldırmak için kullanışlı bir araç
Bir aralıktaki sayısal olmayan karakterleri kaldırmak için, Kutools for Excel'S Karakterleri Kaldır yardımcı program tek bir tıklama ile halledebilir.
Kutools for Excel : 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. |
Kurduktan sonra Kutools for Excellütfen aşağıdaki gibi yapın:
1. Sayısal olmayan karakterleri kaldırmak istediğiniz aralığı vurgulayın. Tıklayın Kutools > Metin > Karakterleri Kaldır.
2. In Karakterleri Kaldır iletişim kutusunda Sayısal olmayan seçeneği Karakterleri Kaldır bölümünü ve ardından OK or Tamam buton. Ve sayısal olmayan karakterler seçimden hemen kaldırılır. Ekran görüntüsüne bakın:
Kutools for Excel'i indirmek için tıklayın ve Şimdi ücretsiz deneme!
Hakkında daha ayrıntılı bilgi için Karakterleri Kaldır Kutools for Excel, lütfen ziyaret edin Karakter özelliklerinin açıklamasını kaldırın.
Demo: Hücrelerden sayısal, alfabetik, yazdırılamaz veya alfasayısal karakterleri kaldırın
İlgili yazılar:
- Alfa karakterleri hücrelerden kaldır
- Hücrelerden sayısal karakterleri kaldırın
- Yazdırılamayan karakterleri hücrelerden kaldırın
- Alfa olmayan karakterleri hücrelerden kaldırın
- Alfasayısal olmayan karakterleri kaldırın
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
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!