كيفية إزالة الأصفار الأولية من سلسلة نصية تحتوي على أحرف وأرقام في 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 الآن!
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في 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 وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد