KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

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

المؤلفسونتاريخ التعديل

غالبًا ما تتطلب إدارة البيانات في Excel تنظيف النصوص، خاصةً عند التعامل مع قوائم تحتوي أحيانًا على أحرف غير مرغوب فيها أو غير متناسقة. فعلى سبيل المثال، قد يحتوي عمودٌ ما على أسماء أو إدخالات تضم بعض الخلايا أحرفًا غير إنجليزية—مثل الحروف ذات الهمزات، أو الرموز الخاصة، أو نصوصًا بلغات أجنبية—ويتطلب الأمر إزالتها لضمان اتساق البيانات أو لتمكين المعالجة اللاحقة بسلاسة.

يمكن أن يكون إزالة هذه الأحرف يدويًّا أمرًا مرهقًا للغاية وعرضةً للأخطاء، خاصة عند التعامل مع مجموعات بيانات كبيرة. ولحل هذه المشكلة بكفاءة، يوفّر Excel طريقتين فعّالتين: الأولى استخدام نصوص VBA لحذف الصفوف التي تحتوي على أي أحرف غير إنجليزية تلقائيًّا، والثانية تنظيف البيانات في مكانها عبر إزالة الأحرف غير الإنجليزية من النص مع الحفاظ على هيكل البيانات سليمًا. وهنا نقدّم لك حلين عمليين لمساعدتك على التعامل مع هذين السيناريوهين بسلاسة.

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

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

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

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

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

إذا كنت بحاجة إلىحذف الصف بأكمله الذي يحتوي على أي أحرف غير إنجليزيةمن عمود معين في Excel، فإن استخدام نص VBA يمكن أن يؤتمت هذه العملية. هذا الأسلوب مثالي عندما تريد التأكد من بقاء الخلايا التي تحتوي أحرفًا إنجليزية قياسية فقط، إذ يؤدي وجود أي خلية تحتوي أحرفًا أجنبية أو رموزًا خاصة إلى حذف الصف بأكمله. وتُعد هذه الطريقة مفيدة جدًّا لإعداد مجموعات بيانات نظيفة لاستيرادها إلى أنظمة تقبل الأحرف الإنجليزية القياسية فقط.

مع ذلك، يُرجى ملاحظة أن هذا الأسلوب يقتصر على عمود واحد في كل مرة؛ لذا يتعيّن تشغيل النص بشكل منفصل لكل عمود إذا رغبت في تطبيقه على أعمدة أخرى. كما أنه لا يمكن استعادة الصفوف المحذوفة بعد التنفيذ ما لم تكن قد أنشأت نسخة احتياطية مسبقًا أو تمكّنت من استخدام ميزة التراجع (Undo).

فيما يلي دليل خطوة بخطوة:

1. افتح مصنف Excel الخاص بك، وفعّل ورقة العمل التي تحتوي على العمود الذي تريد معالجته، ثم اضغطAlt + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات (Microsoft Visual Basic for Applications)، مما يتيح لك الوصول إلى بيئة برمجة VBA المضمنة في Excel.

2. في محرر VBA، انقرإدراج (Insert) > وحدة (Module)لإنشاء وحدة جديدة، ثم انسخ والصق كود VBA التالي في نافذة الكود التي تظهر:

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 أو انقر زرتشغيل (Run)لتنفيذ الكود. ستظهر نافذة منبثقة تطلب منك "تحديد عمود واحد (Select single column)". استخدم مؤشر الفأرة لتحديد العمود الذي تريد معالجته في ورقة العمل، ثم انقرموافق (OK).
لقطة شاشة تُظهر تحديد عمود في سكربت VBA لإزالة الأحرف غير الإنجليزية

4. أكد اختيارك بالنقر علىموافق (OK)في مربعات الحوار التالية. بعد ذلك، سيقوم النص بمراجعة كل خلية في العمود المحدد، وإذا اكتشف أي حرفٍ ليس حرفًا إنجليزيًّا كبيرًا أو صغيرًا (A-Z)، فسيحذف الصف بأكمله الذي تحتويه تلك الخلية. وبعد اكتمال العملية، ستظهر رسالة تفيد بأنها قد انتهت بنجاح.
لقطة شاشة لصندوق حوار التأكيد

لقطة شاشة تُظهر عمودًا في Excel يحتوي على أحرف غير إنجليزيةسهم إلى اليمينلقطة شاشة تُظهر عمود Excel بعد إزالة الأحرف غير الإنجليزية

ملاحظة:يعمل نص VBA هذا على تحديد عمود واحد في كل مرة فقط. يُوصى بحفظ المصنف قبل تشغيل الكود، لأن الصفوف المحذوفة لا يمكن استعادتها بعد الحذف. وإذا كانت بياناتك كبيرة أو تحتوي تنسيقات خاصة، فاحرص بشدة على إنشاء نسخة احتياطية مسبقًا.

نصائح لاستكشاف الأخطاء وإصلاحها:إذا ظهرت رسالة خطأ أو لم يحدث شيء، فتأكد من أنك حددت عمودًا صالحًا وعمودًا واحدًا فقط (وليس نطاقًا يشمل أعمدة متعددة). يجب أن تكون VBA مفعّلة لتشغيل هذا النص. وإذا كانت بيئة محرر VBA مقفلة أو مقيدة في نظامك، ففكّر في تمكين الأذونات أو استخدام طريقة بديلة.

الملاءمة:هذا الأسلوب مثالي تمامًا إذا كنت تريد التأكد من أن بياناتك تحتوي فقط على إدخالات مكوَّنة من أحرف إنجليزية خالصة، ولا تحتاج إلى الاحتفاظ بالصفوف التي تتضمَّن أي رموز خاصة أو أحرف بلغات أخرى. ومع ذلك، إذا كان هدفك الاحتفاظ بالبيانات مع إزالة الأحرف غير الإنجليزية فقط—دون حذف الصفوف بأكملها—ففكر في استخدام حل Kutools أو الطرق الأخرى أدناه.

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

إذا كنت ترغب فيتنظيف النص عن طريق إزالة الأحرف غير الإنجليزية من داخل الخلايا—دون حذف أي صفوف—فإن ميزةحذف الأحرف المحددةفيKutools لـ Excelتوفّر لك حلاً سريعًا وعمليًّا! وهي مثالية للسيناريوهات التي تريد فيها الحفاظ على هيكل البيانات العام مع التخلّص من الرموز أو أحرف اللكنات أو الأحرف بلغات أجنبية داخل السلاسل النصية، لتبقى فقط الأحرف الإنجليزية العادية واضحةً ونظيفة.

على سبيل المثال، يُعد هذا الأسلوب مثاليًا لتوحيد الأسماء أو أكواد المنتجات أو أي إدخالات أبجدية رقمية قد تكون أُدخلت بشكل خاطئ أو نُسخت من مصادر خارجية، مما أدّى إلى ظهور رموز أو أحرف غير إنجليزية متنوعة. وبالمقارنة مع التنظيف اليدوي، فهو يقلل من خطر تفويت أحرف غير مرغوب فيها ويسرع العملية بشكل ملحوظ.

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

1. حدد النطاق الذي يحتوي على السلاسل النصية التي ترغب في تنظيفها، ثم انتقل إلى علامة التبويبKutools في شريط Excel، وانقرنص (Text)، واخترحذف الأحرف المحددةمن القائمة المنسدلة. راجع لقطة الشاشة أدناه كمرجع:
لقطة شاشة لخيار Kutools "إزالة الأحرف" ضمن قائمة النص في Excel

2. في مربع الحوارحذف الأحرف المحددةالذي يظهر، حدد الخيارغير أبجدي (Non-alpha) (الذي يستهدف الأحرف غير الأبجدية، بما في ذلك الأرقام وعلامات الترقيم والرموز الخاصة أو غير الإنجليزية). وتُحدَّث لوحةالمعاينة (Preview)تلقائيًّا لتُظهر لك كيف سيبدو النص بعد إزالة الأحرف غير الأبجدية والخاصة.
لقطة شاشة لصندوق حوار "إزالة الأحرف" الذي يعرض خيارات لإزالة الأحرف غير الإنجليزية

3. بعد التأكد من أن المعاينة تلبي توقعاتك، انقرموافق (OK). سيتم إزالة جميع الأحرف غير الإنجليزية (أي أي شيء ليس حرفًا إنجليزيًّا قياسيًّا) فورًا من النطاق المحدد، بينما تبقى باقي بياناتك دون تغيير.
لقطة شاشة لعمود Excel بعد استخدام Kutools لإزالة الأحرف غير الإنجليزية

Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن

إذا كنت بحاجةٍ متكررةٍ إلى تنظيف النصوص في Excel، فإن أسلوب Kutools يوفّر واجهةً مرئيةً سهلة الاستخدام، ويُعالج النطاقات الكبيرة بكفاءةٍ عاليةٍ بنقراتٍ قليلةٍ فقط. كما يدعم ميزة التراجع (Undo)، مما يمكّنك من التراجع عن التغييرات فورًا إذا لم تكن النتائج مرضية.

نصائح وتحذيرات:يؤدي خيار ‹غير أبجدي (Non-alpha)› أيضًا إلى إزالة جميع الأرقام وعلامات الترقيم الخاصة من النص. إذا كنت بحاجة إلى الاحتفاظ بالأرقام أو أحرف معيّنة أخرى، جرّب خانات التأشير المختلفة في مربع الحوار حتى تحصل على النتيجة المرغوبة. وتذكّر دائمًا مراجعة لوحة المعاينة لتأكيد التأثير قبل النقر على «موافق».

المقارنة:هذا الأسلوب أكثر مرونة من حذف الصفوف عبر VBA، لأنه يزيل فقط الأحرف غير المرغوب فيها دون التأثير على الصف بأكمله، ما يجعله أقل تدميرًا وأكثر أمانًا في حال وجود أي خطر لفقدان معلومات مهمة مرتبطة بكل صف.

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

إذا لم يكن لديك حق الوصول إلى Kutools أو كنت تفضّل تجنّب استخدام VBA، يمكنك أيضًا الاعتماد على صيغة Excel لإزالة الأحرف غير الإنجليزية (أي أي رموز ليست أحرفًا أبجدية إنجليزية) من النص الموجود في خلية. يُعدّ هذا الأسلوب مثاليًّا عندما تحتاج إلى حلٍّ غير تدميري يعتمد على الصيغ، ويمكنك تطبيقه بسهولة على كل صف ونسخه إلى خلايا أخرى.

1. أدخل صيغة المصفوفة التالية في الخلية الأولى من عمود الإخراج (مثل B1 إذا كانت بياناتك الأصلية في العمود A):

=TEXTJOIN("",TRUE,IF((CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))>=65)*(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))<=90)+(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))>=97)*(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))<=122),MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),""))

تتحقق هذه الصيغة من كل حرف في الخلية A1، وتحتفظ به فقط إذا كان حرفًا إنجليزيًّا كبيرًا (A-Z) أو صغيرًا (a-z)، ثم تُجمِع النتيجة في سلسلة نصية نظيفة.

2. بعد كتابة هذه الصيغة، اضغطCtrl+Shift+Enter (لإصدارات Excel السابقة لـ Office 365؛ في Office 365 والإصدارات الأحدث، يكفي الضغط على Enter فقط). ثم انسخ الصيغة لأسفل إلى جميع الصفوف ذات الصلة بسحب مقبض التعبئة أو النقر المزدوج عليه في الزاوية السفلية اليمنى للخلية.

شرح المعاملات:تستخدم هذه الصيغة الدوال MID وCODE (التي تُرجع قيمة ASCII) وINDIRECT وROW لمعالجة كل حرف في الخلية المستهدفة، مع الاحتفاظ بالأحرف a-z أو A-Z فقط.

احتياطات:لا يُعدِّل هذا الأسلوب البيانات الأصلية؛ إذ إن النتائج هي نتائج الصيغ في العمود الهدف. إذا كنت بحاجة إلى قيم ثابتة وغير قابلة للتغيير، فانسخ النتائج واستخدملصق القيملاستبدال الصيغ.

القيود:يؤثر طول النص في أداء الصيغة. قد لا تعالج هذه الطريقة الرموز البيانية (graphemes) متعددة الأحرف من يونيكود بشكل صحيح، لذا قد تظل بعض الأحرف غير الإنجليزية المرئية إذا كانت مُمثَّلة بتسلسلات يونيكود مركبة.

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

إذا أردت إزالة الأحرف غير الإنجليزيةمن داخل نصوص الخلايا (دون حذف الصفوف بأكملها)، يمكنك أيضًا استخدام VBA لأتمتة أكثر قابلية للتخصيص. ويُعد هذا الحل مثاليًا لمهمات تنقية البيانات التي تحتاج إلى تشغيلها بشكل متكرر، وعندما لا تكون الوظائف الإضافية خيارًا متاحًا.

1. افتح Excel، ثم اضغطAlt + F11 لتشغيل محررMicrosoft Visual Basic for Applications. انتقل إلىإدراج > وحدة نمطية (Module)والصق الكود التالي في نافذة الوحدة النمطية:

Sub RemoveNonEnglishCharactersFromCells()
    ' Remove non-English characters, keep only a-z, A-Z
    Dim rng As Range
    Dim cell As Range
    Dim i As Long
    Dim ch As String
    Dim output As String
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set rng = Application.Selection
    Set rng = Application.InputBox("Select range to clean (cells will be altered):", xTitleId, rng.Address, Type:=8)
    
    If rng Is Nothing Then Exit Sub
    
    Application.ScreenUpdating = False
    
    For Each cell In rng
        output = ""
        For i = 1 To Len(cell.Value)
            ch = Mid(cell.Value, i, 1)
            If (Asc(ch) >= 65 And Asc(ch) <= 90) Or (Asc(ch) >= 97 And Asc(ch) <= 122) Then
                output = output & ch
            End If
        Next i
        cell.Value = output
    Next cell
    
    Application.ScreenUpdating = True
    
    MsgBox "Cleanup complete.", vbInformation
End Sub

2. عُد إلى Excel، وحدد النطاق الذي تريد تنظيفه، ثم ارجع إلى محرر VBA وشغّل الكود بالضغط علىF5 أو بالنقر على زرتشغيل (Run). عند المطالبة، حدد النطاق الذي سيتم معالجته وقم بالتأكيد.

التأثيرات:يقوم هذا الكود بمعالجة كل خلية محددة، حيث يزيل أي حرف لا ينتمي إلى الأبجدية الإنجليزية القياسية، ثم يُحدِّث الخلية بالنص المُنظَّف. سيتم استبدال البيانات الأصلية، لذا ننصحك بعمل نسخة احتياطية من ورقة العمل أو العمل على نسخة منها.

Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن

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

 
Kutools لـ Excel: أكثر من 300 أداة مفيدة بين يديك! استمتع بميزات مدعومة بالذكاء الاصطناعي لإنجاز عملك بذكاء وسرعة أكبر!حمّل الآن!

أفضل أدوات الإنتاجية لمكتبتك

🤖KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة…
الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   12 أدواتالتحويل(تحويل إلى كلمات،تحويل العملة، ...)|   7 أدواتدمج وتقسيم(دمج متقدم للصفوف،تقسيم الخلايا، ...)|... وأكثر من ذلك
استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...

يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير

  • تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
  • افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!

جميع الإضافات من Kutools في برنامج تثبيت واحد!

Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.

ExcelWordOutlookTabsPowerPoint
  • حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
  • برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
  • يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
  • تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
  • أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل