كيفية ترقيم الصفوف بعد إدراج أو حذف الصفوف تلقائيًا في Excel؟

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

ترقيم الصفوف بعد إدراج أو حذف الصفوف تلقائيًا باستخدام الصيغ

ترقيم الصفوف بعد إدراج أو حذف الصفوف تلقائيًا باستخدام كود VBA

ترقيم الصفوف بعد إدراج أو حذف الصفوف تلقائيًا باستخدام الصيغ

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

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

ملاحظة: إذا كانت قائمة الأرقام الخاصة بك تبدأ من الخلية الأولى، يمكنك تغيير الصيغة إلى =ROW()، يمكنك إضافة أو طرح من الصيغة إذا لم تتطابق أرقامك مع الصف الفعلي، على سبيل المثال، =ROW()-3، =ROW()+10…

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

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

اكتشف سحر Excel مع Kutools AI

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

عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!

ترقيم الصفوف بعد إدراج أو حذف الصفوف تلقائيًا باستخدام كود VBA

باستثناء طريقة الصيغة المذكورة أعلاه، يمكنك أيضًا إكمالها باستخدام كود VBA.

1. انتقل إلى ورقة العمل التي تريد إدراج أرقام متتالية فيها تلقائيًا.

2. انقر بزر الماوس الأيمن على علامة ورقة العمل، وحدد عرض الكود من قائمة السياق، في نافذة Microsoft Visual Basic for Applications المنبثقة، يرجى نسخ ولصق الكود التالي في نافذة الوحدة النمطية الفارغة.

كود VBA: ترقيم الصفوف تلقائيًا بعد إدراج أو حذف الصفوف:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160612
    Dim I As Integer
    I = 1
    Application.EnableEvents = False
    For I = 1 To 20
        Range("A" & I).Value = I
    Next
    Range("A21").Value = ""
    Application.EnableEvents = True
End Sub

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

ملاحظة: في الكود أعلاه، الحرف A يشير إلى حرف العمود الذي تريد ملء رقم التسلسل فيه، 1 إلى 20 هي الصفوف التي تريد ترقيمها، وA21 هو المرجع للخلية التالية للخلية الأخيرة المرقمة. يمكنك تغييرها حسب الحاجة.

عرض توضيحي: ترقيم الصفوف بعد إدراج أو حذف الصفوف تلقائيًا في ورقة عمل Excel