كيفية إزالة الأحرف غير الإنجليزية في عمود Excel؟

على سبيل المثال، إليك قائمة بأسماء تتضمن بعض الأحرف غير الإنجليزية. كيف يمكنك بسرعة إزالة الخلايا التي تحتوي على أحرف غير إنجليزية في Excel؟

إزالة الصفوف التي تحتوي على أحرف غير إنجليزية باستخدام VBA

إزالة الأحرف غير الإنجليزية من السلاسل باستخدام Kutools لـ Excel

إزالة الصفوف التي تحتوي على أحرف غير إنجليزية باستخدام VBA

إليك برنامج VBA يمكنه إزالة الصفوف التي تحتوي على أحرف غير إنجليزية في Excel.

1. قم بتفعيل ورقة العمل التي تحتوي على الأحرف التي تريد إزالتها، واضغط على مفاتيح Alt + F11 لتمكين نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود أدناه في الوحدة.

VBA: إزالة الأحرف غير الإنجليزية

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. اضغط F5 لتحديد قائمة الأعمدة التي تريد استخدامها في مربع الحوار المنبثق.

4. انقر موافق > موافق، وبعد ذلك سيتم إزالة الصفوف التي تحتوي على أحرف غير إنجليزية.

ملاحظة: يعمل هذا البرنامج VBA فقط على عمود واحد.

إزالة الأحرف غير الإنجليزية من السلاسل باستخدام Kutools لـ Excel

إذا كنت ترغب في إزالة الأحرف غير الإنجليزية من السلسلة كما هو موضح في لقطة الشاشة أدناه، يمكنك تطبيق ميزة إزالة الأحرف من Kutools لـ Excel لإنهاء العملية بسرعة.

1. حدد النطاق الذي تحتاجه وانقر Kutools > نص > إزالة الأحرف. شاهد لقطة الشاشة:

2. تحقق من الأحرف غير الأبجدية فقط في إزالة الأحرف الحوار، يمكنك رؤية النتيجة في معاينة أولاً.

3. انقر موافق، تم إزالة الأحرف غير الإنجليزية من السلاسل.

عرض توضيحي: إزالة الأحرف غير الإنجليزية من السلاسل باستخدام Kutools لـ Excel