كيفية إزالة الأصفار الأولية من سلسلة نصية تحتوي على أحرف وأرقام في Excel؟

لنفترض أن لدي قائمة من السلاسل النصية التي تحتوي على بعض الأصفار الأولية، والآن أريد إزالة كل الأصفار الأولية من السلاسل النصية للحصول على النتيجة التالية. كيف يمكنني حل هذه المهمة في Excel بسرعة وسهولة؟

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

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

إزالة الأصفار الأولية من السلاسل النصية باستخدام دالة معرفة من قبل المستخدم

إضافة أصفار أولية إلى السلاسل النصية باستخدام Kutools لـ Excel

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

في Excel، لا توجد طريقة مباشرة لإزالة الأصفار الأولية من السلاسل، ولكن يمكنك تطبيق الصيغة التالية للمصفوفة لحل المشكلة.

1. الرجاء كتابة هذه الصيغة: =MID(A2,MATCH(TRUE,(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)<>"0"),0),LEN(A2)) (A2 هي الخلية التي تريد إزالة الأصفار الأولية منها) في خلية فارغة حيث تريد الحصول على النتيجة، مثل C2، ثم اضغط على Ctrl + Shift + Enter معًا للحصول على النتيجة الصحيحة، انظر إلى لقطة الشاشة:

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

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

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

بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:

1. حدد الخلايا التي تريد إزالة جميع الأصفار الأولية منها، ثم انقر فوق Kutools > نص > إزالة الأصفار الأولية، انظر إلى لقطة الشاشة:

2. وبعد ذلك يتم حذف جميع الأصفار الأولية في السلاسل النصية مرة واحدة، انظر إلى لقطة الشاشة:

قم بتنزيل وتجربة Kutools لـ Excel الآن!

إزالة الأصفار الأولية من السلاسل النصية باستخدام دالة معرفة من قبل المستخدم

باستثناء صيغة المصفوفة أعلاه، الكود VBA التالي يمكن أن يساعدك أيضًا، يرجى القيام بما يلي:

1. اضغط باستمرار على ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

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

كود VBA: إزالة الأصفار الأولية من السلاسل النصية:

Function RemoveLeadingZeros(Str As String)
'updateby Extendoffice
  Do While Left(Str, 1) = "0"
    Str = Mid(Str, 2)
  Loop
  RemoveLeadingZeros = Str
End Function 

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

إضافة أصفار أولية إلى السلاسل النصية باستخدام Kutools لـ Excel

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

بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:

1. حدد خلايا السلاسل النصية التي تريد إضافة أصفار أولية إليها.

2. ثم انقر فوق Kutools > نص > إضافة نص، انظر إلى لقطة الشاشة:

3. في مربع الحوار إضافة نص، أدخل الأصفار التي تريد إضافتها قبل السلاسل النصية في مربع النص، ثم حدد قبل الحرف الأول من الموضع، انظر إلى لقطة الشاشة:

4. ثم انقر فوق زر موافق أو تطبيق، سيتم إدراج العدد المحدد من الأصفار قبل جميع السلاسل النصية المحددة، انظر إلى لقطة الشاشة:

قم بتنزيل وتجربة Kutools لـ Excel الآن!