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

كيف يمكنك إزالة الأحرف غير الرقمية من خلايا Excel؟

المؤلفMandyzhouتاريخ التعديل

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

لقطة شاشة لبيانات Excel بعد إزالة الأحرف غير الرقمية

إزالة الأحرف غير الرقمية من الخلايا في Excel

في هذا القسم، سنقدّم أربع طرق فعّالة لإزالة الأحرف غير الرقمية من خلايا Excel، مصممة خصيصًا لتتناسب مع إصدارات Excel المختلفة ومستويات خبرة المستخدمين.


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

لإزالة الأحرف غير الرقمية من خلايا Excel، استخدم صيغة تعتمد على دالةTEXTJOIN .

الخطوة 1: تحديد خلية وتطبيق الصيغة

في الخلية C2، طبِّق الصيغة أدناه، ثم اضغط مفتاح Enter للحصول على النتيجة.

=TEXTJOIN("",TRUE,IFERROR(MID(A2,SEQUENCE(LEN(A2)),1)+0,""))+0
لقطة شاشة تُظهر صيغة TEXTJOIN المطبَّقة لإزالة الأحرف غير الرقمية في Excel
دالةTEXTJOIN متاحة في Excel 2019 والإصدارات الأحدث. ودالةSEQUENCE متاحة في Excel 2021 والإصدارات الأحدث. إذا كنت ترغب في طريقة أسهل لتحقيق الهدف في جميع إصدارات Excel، فارجع إلى طريقةاستخدام KUTOOLS AI Aideأو طريقةاستخدام أداة رائعةلالتي سنقدّمها لاحقًا.
الخطوة 2: تطبيق الصيغة على خلايا أخرى والحصول على جميع النتائج

بعد حساب النتيجة الأولية، اسحب مقبض التعبئة من خلية الصيغة (C2 في هذا المثال) لأسفل لتطبيق الصيغة على الخلايا الأخرى حتى تصل إلى الخلية C8.

لقطة شاشة تُظهر النتائج بعد تطبيق صيغة TEXTJOIN لإزالة الأحرف غير الرقمية
شرح الصيغة:
  1. LEN(A2): يُعطي طول النص الموجود في الخلية A2.
  2. SEQUENCE(LEN(A2))يُنشئ قائمة بأرقام تتراوح من 1 إلى طول السلسلة، حيث يتوافق كل رقم مع موضع حرف فيها.
  3. MID(A2, SEQUENCE(LEN(A2)), 1)يتم استخراج كل حرف من الخلية A2 واحدًا تلو الآخر.
  4. +0يحاول تحويل كل حرف إلى رقم؛ وإذا لم يكن الحرف رقمًا، فسيؤدي ذلك إلى خطأ.
  5. IFERROR(..., «»)إذا تسبَّب تحويل الحرف في حدوث خطأ (أي أنه ليس رقمًا)، يُستبدل بسلسلة فارغة.
  6. TEXTJOIN(«», TRUE, ...)يُعيد تجميع جميع الأحرف في سلسلة واحدة، مع تخطي السلاسل الفارغة (أي الأحرف غير الرقمية التي تم إزالتها).
  7. +0 at the endيحول السلسلة النهائية من الأرقام مرة أخرى إلى قيمة رقمية.

إزالة الأحرف غير الرقمية من خلايا Excel باستخدام KUTOOLS AI Aide

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

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

بعد تنزيل Kutools لـ Excel وتثبيته، انقر «KUTOOLS AI» > «مساعد الذكاء الاصطناعي» لفتح جزء «KUTOOLS AI Aide».

1. في جزء «KUTOOLS AI Aid»، أدخل طلبك كما في النص أدناه في مربع الدردشة، ثم انقرلقطة شاشة لزر الإرسال في لوحة Kutools AI Aideزر «إرسال» أو اضغط مفتاح Enter لإرسال استفسارك.

"من فضلك، أزل الأحرف غير الرقمية من النطاق A2:A8 في Excel لي."

2. بمجرد أن تحلّل الأداة مدخلاتك، انقر زر «تنفيذ»، وسوف يستخدم KUTOOLS AI Aide تقنيته المبتكرة المدعومة بالذكاء الاصطناعي لمعالجة طلبك وتطبيق النتائج فورًا في Excel.

صورة متحركة (GIF) توضح كيفية قيام Kutools AI Aide بإزالة الأحرف غير الرقمية من خلايا Excel

تلميح: لاستخدام هذه الميزة، يجب عليك تثبيت Kutools لـ Excel أولًا. يُرجىالنقر لتنزيل Kutools لـ Excelالآن.


إزالة الأحرف غير الرقمية من خلايا Excel باستخدام أداة رائعة

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

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

1. بعد تحديد النطاق الذي تريد إزالة الأحرف غير الرقمية منه، انقر «Kutools» > «Text» > «حذف الأحرف المحددة».

2. في مربع حوار «حذف الأحرف المحددة»، اختر الخيار «Non-numeric»، ثم انقر «OK». وبذلك تُزال الأحرف غير الرقمية من التحديد فورًا.

صورة متحركة (GIF) توضِّح أداة Kutools لإزالة الأحرف في Excel

تلميح: لاستخدام هذه الميزة، يجب عليك تثبيت Kutools لـ Excel أولًا. يُرجىالنقر لتنزيل Kutools لـ Excelالآن!


إزالة الأحرف غير الرقمية من خلايا Excel باستخدام كود VBA


لإزالة الأحرف غير الرقمية من نطاق باستخدام كود VBA، يُرجى اتباع الخطوات التالية:

الخطوة 1: فتح محرر وحدة VBA ونسخ الكود
  1. اضغط مع الاستمرار على مفتاحَي «ALT + F11» في Excel، وستفتح لك نافذة «مايكروسوفت فيجوال بيسك للتطبيقات».
  2. انقر على «إدراج» > «وحدة»، ثم انسخ والصق الكود التالي في نافذة الوحدة.
  3. كود VBA: إزالة جميع الأحرف غير الرقمية
    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: تنفيذ الكود
    1. بعد لصق هذا الكود، اضغط على مفتاح F5 لتشغيله.
    2. في مربع الحوار المنبثق من Kutools for Excel، اختر النطاق الذي تريد إزالة الأحرف غير الرقمية منه، ثم انقر فوق «موافق».

لقطة شاشة لرمز VBA الذي يحدد النطاق لإزالة الأحرف غير الرقمية في Excel

النتيجة

ثم تتم إزالة جميع الأحرف غير الرقمية من النطاق المحدد.

لقطة شاشة تُظهر أن جميع الأحرف غير الرقمية في النطاق المحدد قد تمت إزالتها

إذا كانت بياناتك تحتوي على أرقام ذات نقاط عشرية، يمكنك استخدام نص VBA التالي:
    1. 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. النتيجة

لقطة شاشة لنتائج رمز VBA تُظهر إزالة الأحرف غير الرقمية من البيانات في Excel