كيف يمكن الاحتفاظ بالأصفار البادئة أو حذفها في Excel؟

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

• تعيين تنسيق الخلية للحفاظ على الأصفار البادئة
• استخدم دالة TEXT لإضافة أصفار بادئة
• أضف أصفارًا بادئة تلقائيًا باستخدام VBA
• أضف أصفارًا بادئة بسرعة باستخدام Kutools لـ Excel

• تحويل النص إلى القيمة إلى إزالة الأصفار الأولية
• إزالة الأصفار الأولية باستخدام صيغة
• حذف الأصفار البادئة تلقائيًا باستخدام VBA
• إزالة بنقرة واحدة باستخدام Kutools لـ Excel

كيفية الاحتفاظ بالأصفار البادئة أو إضافتها في Excel

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

تعيين تنسيق الخلية للحفاظ على الأصفار البادئة

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

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

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

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

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

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

المزايا:بسيطة جدًّا ولا تتطلب صيغًا، وتضمن تطابق النص بدقة.

العيوب:غير مناسبة لتحويل الأرقام دفعةً واحدة، ويجب تعيينها قبل إدخال البيانات.

استخدام دالة TEXT لإضافة أصفار بادئة

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

على سبيل المثال، إذا كانت القيمة في الخلية A1 هي 32423، ولكنك تريد أن تكون النتيجة المعروضة دائمًا مكوَّنة من 8 أرقام: 00032423.

1. أدخل الصيغة التالية في خلية أخرى (مثل B1):

=TEXT(A1,"00000000")

2. اضغط Enter للتأكيد. ستعرض خلية الصيغة القيمة الأصلية مع إضافة عدد الأصفار البادئة المحدَّد.

إذا كنت بحاجة إلى تطبيق ذلك على صفوف متعددة، انسخ خلية الصيغة لأسفل (اسحب مقبض التعبئة أو استخدم Ctrl+C/Ctrl+V) وقم بتعديل المرجعيات حسب الحاجة.

شرح المعاملات:يشير عدد الأصفار في"00000000" إلى الطول الكلي المطلوب للرقم. قم بتعديلها وفقًا لاحتياجاتك في التنسيق.

نصائح:إذا كنت بحاجة إلى حشو بأحرف غير رقمية (مثل A001)، فعدّل سلسلة التنسيق وفقًا لذلك (مثل)"A000").

المزايا:تطبيق سهل لتنسيق بطول ثابت، ويمكنك نسخ الصيغة إلى نطاقات كبيرة.

العيوب:الناتج يكون على هيئة نص، ولا يُصلح للاستخدام في العمليات الحسابية اللاحقة.

أضف أصفارًا بادئة تلقائيًا باستخدام VBA

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

1. انتقل إلىأدوات المطور > Visual Basic، أو اضغط علىAlt + F11 لفتح محرر VBA. ثم في النافذة، اخترإدراج > وحدة نمطية، والصق الكود التالي:

Sub AddLeadingZeros()
'Updated by Extendoffice
    Dim WorkRng As Range
    Dim xCell As Range
    Dim strLen As Integer
    Dim strZeros As String
    Dim fixedLen As Integer
    Dim xTitleId As String
    
    On Error Resume Next
    xTitleId = "Kutools for Excel"
    
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range to pad with leading zeros", xTitleId, WorkRng.Address, Type:=8)
    
    If WorkRng Is Nothing Then Exit Sub
    
    fixedLen = Application.InputBox("How many digits should each entry be?", xTitleId, "", Type:=1)
    If fixedLen < 1 Then Exit Sub
    
    Application.ScreenUpdating = False
    For Each xCell In WorkRng
        If Not IsEmpty(xCell.Value) And IsNumeric(xCell.Value) Then
            strLen = Len(xCell.Value)
            If strLen < fixedLen Then
                strZeros = String(fixedLen - strLen, "0")
                xCell.NumberFormat = "@"
                xCell.Value = strZeros & CStr(xCell.Value)
            End If
        End If
    Next
    Application.ScreenUpdating = True
    
    MsgBox "Leading zeros added successfully!", vbInformation, xTitleId
End Sub

2. بعد إدخال الكود، اضغط على زر. سيظهر مربع حوار يطلب منك تحديد نطاق الخلايا المستهدفة، ثم إدخال الطول الثابت المطلوب.

سيقوم البرنامج النصي تلقائيًا بإضافة أصفار بادئة لكل خلية بحيث يتطابق كل إدخال مع الطول المحدد.

احتياطات:يُعدّل هذا البرنامج النصي قيم الخلايا مباشرةً. يُوصى بعمل نسخة احتياطية من ورقة العمل قبل تشغيله على مجموعات بيانات كبيرة أو حساسة.

المزايا:معالجة سريعة بالجملة، ويدعم أي طول ثابت تحدده.

العيوب:يتطلب أذونات ماكرو وبعض الخبرة في استخدام VBA.

أضف أصفارًا بادئة بسرعة باستخدام Kutools لـ Excel

أضف/احذف أصفارًا بادئة باستخدام Kutools لـ Excel

لإضافة نفس عدد الأصفار البادئة إلى الخلايا بسرعة (لتنسيق الرموز أو المعرّفات)، تقدّم أداةKutools لـ Excelوظيفةإضافة نص. توفّر هذه الأداة معاينة فورية ومعالجة دفعية لضمان الدقة عند تعديل البيانات المنسقة.（تنزيل مجاني الآن! Kutools لـ Excel)

1. أولًا، يجب تنسيق خلايا الوجهة كـنص. حدد الخلايا، ثم انقر علىالرئيسية، وانتقل إلى مجموعةالرقميةواخترنصمن القائمة المنسدلة.

2. مع استمرار تحديد الخلايا، انقر علىKutools > نص > إضافة نص.

3. في مربع حوارإضافة نص، أدخل عدد الأصفار التي تريد إضافتها، وفعّل الخيارقبل الحرف الأول. يمكنك معاينة النتيجة في اللوحة اليمنى.

4. انقر علىموافقأوتطبيقلإضافة الأصفار البادئة إلى جميع الخلايا المحددة.

هذا مفيد لتنسيق دفعي للمعرّفات وأرقام الفهارس.

حذف الأصفار البادئة

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

تحويل النص إلى القيمة إلى إزالة الأصفار الأولية

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

بعد ذلك، تُحوَّل الأرقام المخزَّنة كنص إلى قيم رقمية مع إزالة الأصفار البادئة.

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

لتحويل الأرقام المخزَّنة كنص مع أصفار بادئة إلى قيم رقمية مرة أخرى، اختر خلية فارغة مجاورة لقائمتك (مثل B1). أدخل:

=VALUE(A1)

بعد الضغط على Enter، ستعرض خلية الصيغة الرقم الأصلي مع إزالة الأصفار البادئة تلقائيًا. اسحب لأسفل لتطبيق الصيغة على خلايا إضافية حسب الحاجة.

يُعد هذا الأسلوب عمليًّا جدًّا عندما تريد توحيد بيانات نصية مستوردة بسرعة أو تحويل السلاسل الرقمية لأغراض الحساب.

المزايا:سريع وسهل الاستخدام، ويؤدي أداءً ممتازًا في التحويل الجماعي.

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

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

1. لنفترض أن الخلية A1 تحتوي على "00032423"، وتريد الاحتفاظ بآخر 5 أرقام فقط. أدخل هذه الصيغة في خلية فارغة (مثل B1):

=RIGHT(A1,5)

بعد الضغط على Enter، ستعرض صيغتك "32423". غيّر معامل الرقم لتحديد عدد الأحرف النهائية التي تريد الاحتفاظ بها. وإذا كنت تعلم أن هناك دائمًا 3 أصفار بادئة لإزالتها، يمكنك أيضًا استخدام:

=RIGHT(A1,LEN(A1)-3)

تحذف هذه الصيغة أول 3 أحرف بغض النظر عن قيمتها. انسخ الصيغة لأسفل إذا لزم الأمر لمزيد من الخلايا.

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

المزايا:مرونة في إزالة التنسيقات الثابتة ومعالجة الرموز غير الرقمية.

العيوب:يتطلب تعديلًا يدويًّا للبيانات ذات الطول المتغير.

حذف الأصفار البادئة تلقائيًا باستخدام VBA

يوفّر VBA للمستخدمين المتقدمين مرونة إضافية لإزالة الأصفار البادئة دفعةً واحدة حسب الطلب. لاستخدام VBA:

1. اضغطAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.

2. في نافذة VBA، انقر علىإدراج > وحدة نمطية (Module)، ثم انسخ والصق الكود المقدَّم:

VBA: حذف الأصفار البادئة في Excel

Sub DeleteZero()
'updateby20140616
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)
WorkRng.NumberFormat = "General"
WorkRng.Value = WorkRng.Value
End Sub

3. انقر على زرتشغيل (Run). سيظهر مربع حوار Kutools for Excel لتتمكن من تحديد نطاق الخلايا المستهدفة لإزالة الأصفار. راجع لقطة الشاشة:

4. انقر علىموافق (OK)، وستُحذف الأصفار البادئة من تحديدك فورًا.

يُعد هذا الحل مثاليًا لأتمتة المهام المتكررة، أو تخصيص المنطق، أو تطبيق القواعد بشكل انتقائي على مجموعات البيانات الكبيرة.

المزايا:قابل للتخصيص بشكل كبير، ومثالي للاحتياجات المعقدة.

العيوب:يتطلب معرفةً أساسيةً بـ VBA وتصريحًا لتشغيل الماكرو.

إزالة بنقرة واحدة باستخدام Kutools لـ Excel

مع تثبيتKutools لـ Excel، يمكنك إزالة جميع الأصفار البادئة من خلايا متعددة فورًا بنقرات قليلة باستخدام أداةإزالة الأصفار الأولية.（تنزيل مجاني Kutools لـ Excel الآن!)

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

سيؤكّد لك مربع الحوار عدد الخلايا التي تم تعديلها.

انقر علىموافق (OK)لإنهاء العملية وإغلاق مربع الحوار.

يُعد هذا الأسلوب مثاليًا لإزالة الأصفار البادئة من نطاقات واسعة بسهولة تامة—بدون تعقيدات الصيغ وأي إعداد إضافي!

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

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

للمهام الإضافية التي تتضمن تنسيقًا مخصصًا معقدًا أو عمليات تحرير جماعية متكررة، فكّر في الجمع بين أدوات VBA وKutools لتحقيق سير عمل أكثر كفاءة.

مقالات ذات صلة:

• حذف قائمة منسدلة في Excel
• حذف قائمة منسدلة واحدة أو جميع القوائم جدول بيانات محوري في Excel

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

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

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

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

مزيد من التفاصيل حول Kutools لـ Excel...تنزيل مجاني...

---

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

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

مزيد من التفاصيل حول Office Tab...تنزيل مجاني...

---

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

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

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

مزيد من التفاصيل حول Kutools for Office...تنزيل مجاني...