Skip to main content

Kutools for Office — مجموعة واحدة. خمسة أدوات. أنجز المزيد.

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

Author Sun Last modified

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

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

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

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

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

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

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

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

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

إليك دليل خطوة بخطوة:

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

2. في محرر VBA، انقر فوق إدراج > وحدة لإنشاء وحدة جديدة، ثم انسخ والصق الكود التالي للـ 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

A screenshot of the pasted code in the created module

3. اضغط F5 أو انقر فوق الزر تشغيل لتنفيذ الكود. ستظهر نافذة حوار تسألك "حدد عمودًا واحدًا". استخدم الفأرة لتحديد العمود الذي تريد معالجته في ورقة العمل الخاصة بك، ثم انقر موافق.
A screenshot showing selection of a column in the VBA script for removing non-English characters

4. أكد اختيارك بالنقر فوق موافق في مربعات الحوار اللاحقة. سيقوم البرنامج النصي بعد ذلك بمراجعة كل خلية في العمود المحدد. إذا اكتشف أي حرف ليس حرفًا إنجليزيًا كبيرًا أو صغيرًا (A-Z)، فسيقوم بحذف الصف بالكامل الذي يحتوي على تلك الخلية. بعد الانتهاء، ستظهر رسالة تخبرك بأن العملية قد انتهت.
A screenshot of the confirmation dialog

A screenshot showing an Excel column with non-English characters Arrow right A screenshot showing an Excel column after non-English characters have been removed

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

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

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

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

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

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

A screenshot of an Excel column containing non-English characters before cleanup Arrow right A screenshot of the Excel column after using Kutools to remove non-English characters
Kutools لـ Excel يقدم أكثر من 300 ميزة متقدمة لتبسيط المهام المعقدة، مما يعزز الإبداع والكفاءة. بالتكامل مع قدرات الذكاء الاصطناعي، يقوم Kutools بأتمتة المهام بدقة، مما يجعل إدارة البيانات أمرًا سهلاً للغاية. معلومات تفصيلية عن Kutools لـ Excel... نسخة تجريبية مجانية...

1. حدد النطاق الذي يحتوي على السلاسل النصية التي ترغب في تنظيفها، ثم انتقل إلى علامة التبويب Kutools في شريط Excel، انقر فوق النص، واختر إزالة الأحرف من قائمة التنزيل. انظر لقطة الشاشة أدناه كمرجع:
A screenshot of Kutools Remove Characters option under Text menu in Excel

2. في نافذة الحوار إزالة الأحرف التي تظهر، تحقق من الخيار غير ألفا (والذي يستهدف الأحرف غير الأبجدية، بما في ذلك الأرقام، علامات الترقيم، والأحرف الخاصة أو غير الإنجليزية). يتم تحديث جزء المعاينة تلقائيًا لإظهار كيف سيبدو النص بعد إزالة الأحرف غير الإنجليزية والرموز الخاصة.
A screenshot of Remove Characters dialog showing options for removing non-English characters

3. بعد التأكد من أن المعاينة تلبي توقعاتك، انقر فوق موافق. يتم إزالة جميع الأحرف غير الإنجليزية (أي أي شيء ليس حرفًا إنجليزيًا قياسيًا) فورًا من النطاق المحدد، بينما تبقى باقي بياناتك كما هي.
A screenshot of the Excel column after using Kutools to remove non-English characters

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

إذا كنت بحاجة بشكل متكرر لتنظيف النص في Excel، فإن نهج Kutools يقدم واجهة مستخدم سهلة الاستخدام، مرئية وتجري معالجة فعالة لمجموعة بيانات كبيرة بنقرات قليلة. كما يوفر دعمًا للتراجع، بحيث يمكنك استعادة التغييرات بسرعة إذا لم تكن النتائج تلبي احتياجاتك.

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

المقارنة: هذه الطريقة أكثر مرونة من حذف الصفوف باستخدام 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 365؛ في Excel 365 والإصدارات الأحدث، يمكنك فقط الضغط على Enter). انسخ الصيغة لأسفل لجميع الصفوف ذات الصلة عن طريق سحب مقبض التعبئة أو النقر عليه مرتين في الزاوية اليمنى السفلى من الخلية.

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

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

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

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

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

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

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 أو النقر على زر التشغيل. عند المطالبة، حدد النطاق لمعالجته وقم بالتأكيد.

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

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

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

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

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

🤖 Kutools AI Aide: أحدث ثورة في تحليل البيانات اعتمادًا على: التنفيذ الذكي |  توليد الأكواد |  إنشاء الصيغ المخصصة |  تحليل البيانات وتوليد الرسوم البيانية |  استخدام Kutools Functions...
ميزات شائعة: البحث، تمييز أو وضع علامة على المكررات | حذف الصفوف الفارغة | دمج الأعمدة أو الخلايا بدون فقدان البيانات | تقريب بدون الصيغة...
بحث متقدم: بحث بمعايير متعددة VLookup | بحث بقيم متعددة VLookup | بحث في عدة ورقات VLookup | مطابقة غامضة...
قائمة منسدلة متقدمة: إنشاء قائمة منسدلة بسرعة | قائمة منسدلة معتمدة | قائمة منسدلة متعددة الاختيارات...
مدير الأعمدة: إضافة عدد محدد من الأعمدة | نقل الأعمدة | تبديل حالة إظهار الأعمدة المخفية | مقارنة النطاقات والأعمدة...
ميزات مميزة: التركيز على الشبكة | عرض التصميم | شريط الصيغ المحسن | مدير أدوات المصنف وورقة العمل | مكتبة النص التلقائي | منتقي التاريخ | دمج البيانات | تشفير/فك تشفير الخلايا | إرسال البريد الإلكتروني حسب الجدول | مرشح متقدم | تصفية خاصة (تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...)...
أفضل15 مجموعة أدوات:12 أداة نصية (إضافة نص، حذف الأحرف المحددة، ...) | أكثر من50 نوع رسم بياني (مخطط جانت، ...) | أكثر من40 صيغة عملية (حساب العمر بناءً على تاريخ الميلاد، ...) |19 أداة إدراج (إدراج رمز الاستجابة السريعة، إدراج صورة من المسار، ...) |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.

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