Excel sütunundaki İngilizce olmayan karakterler nasıl kaldırılır?
Örneğin, , burada bazı İngilizce olmayan karakterler içeren adların bir listesi. Excel'de İngilizce olmayan karakterler içeren hücreleri hızlı bir şekilde nasıl kaldırabilirsiniz?
İngilizce olmayan karakterler içeren satırları VBA ile kaldırın
Karakterleri Kaldır ile İngilizce olmayan karakterleri dizeden kaldırın
Satırları kaldır, VBA'ya göre İngilizce olmayan karakterler içeriyor
Excel'de İngilizce olmayan karakterler içeren satırları kaldırabilen bir VBA burada.
1. Kaldırmak istediğiniz karakterleri içeren çalışma sayfasını etkinleştirin ve Alt + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modülve aşağıdaki kodu, modül.
VBA: İngilizce olmayan karakterleri kaldırın
Sub RemoveNonEnglish()
'UpdatebyExtendoffice20171204
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim xRows As Long
Dim xAsc As Long
On Error Resume Next
Set xRg = Application.InputBox("Select single column:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xRows = xRg.Rows.Count
Set xRg = xRg(1)
For I = 1 To xRows
Set xCell = xRg.Offset(I - 1)
If xCell.Value <> "" Then
For J = 1 To Len(xCell.Value)
xAsc = Asc(UCase(Mid(xCell.Value, J, 1)))
If xAsc < 65 Or xAsc > 90 Then
xCell.EntireRow.Delete
I = I - 1
Exit For
End If
Next
End If
Next
Application.ScreenUpdating = True
MsgBox "Completed...", vbInformation
End Sub
3. Basın F5 Açılan iletişim kutusunda kullanmak istediğiniz sütun listesini seçmek için tuşuna basın.
4. tık OK > OKve ardından İngilizce olmayan karakterler içeren satırlar kaldırılmıştır.
not: bu VBA yalnızca bir sütun için çalışır.
Karakterleri Kaldır ile İngilizce olmayan karakterleri dizeden kaldırın
İngilizce olmayan karakterleri aşağıda gösterilen ekran görüntüsü gibi dizeden kaldırmak istiyorsanız, başvurabilirsiniz. Kutools for Excel'S Karakterleri Kaldır hızlı bir şekilde bitirmek için özellik.
Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. |
Kurduktan sonra Kutools for Excel, lütfen aşağıdaki işlemleri yapın:(Şimdi Excel için Kutools'u Ücretsiz İndirin!)
1. İhtiyacınız olan aralığı seçin ve tıklayın Kutools > Metin > Karakterleri Kaldır. Ekran görüntüsüne bakın:
2. Kontrol Alfa olmayan sadece Karakterleri Kaldır iletişim kutusu, sonucu Önizleme İlk.
3. tık Okİngilizce olmayan karakterler dizelerden kaldırıldı.
Gösteri
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!