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

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

الرقم التلقائي أو إعادة الترقيم بعد التصفية برمز VBA

رقم تلقائي أو إعادة ترقيم بعد التصفية باستخدام Kutools for Excel

الرقم التلقائي أو إعادة الترقيم بعد التصفية برمز VBA

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

1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

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

كود فبا: الرقم التلقائي أو إعادة الترقيم بعد التصفية

Sub Renumbering()
	'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)
	Set WorkRng = WorkRng.Columns(1).SpecialCells(xlCellTypeVisible)
	xIndex = 1
	For Each Rng In WorkRng
		Rng.Value = xIndex
		xIndex = xIndex + 1
	Next
End Sub

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

4. ثم اضغط OK، وتمت إعادة ترقيم خلايا النطاق المحددة بالتتابع كما هو موضح أدناه:

ملاحظة: سيؤدي هذا الرمز إلى تدمير أرقام صفوف السلسلة الأصلية عند إلغاء وظيفة التصفية. لذلك تحتاج إلى نسخ بياناتك احتياطيًا أولاً.

رقم تلقائي أو إعادة ترقيم بعد التصفية باستخدام Kutools for Excel

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

بعد تثبيت كوتولس ل إكسيليرجى القيام بما يلي:

1. حدد الخلايا التي تريد إعادة ترقيمها للبيانات المصفاة.

2. ثم اضغط كوتولس > إدراج > أدخل رقم التسلسل، انظر لقطة الشاشة:

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

4. ثم قم بإنشاء أرقام قائمة التسلسل كما تريد في القسم السفلي الأيسر ، انظر لقطة الشاشة:

5. بعد تحديد التسلسل ، انقر فوق أضف زر ، وأضيف عنصر التسلسل في مربع الحوار ، انظر الصورة:

6. ثم انقر فوق نطاق التعبئة ،  وتمت إعادة ترقيم البيانات التي تمت تصفيتها مرة واحدة. انظر لقطة الشاشة:

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!

عرض توضيحي: رقم تلقائي أو إعادة ترقيم بعد التصفية باستخدام Kutools for Excel

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

كيف ترقيم الخلايا المدمجة تلقائيًا في إكسيل؟

---

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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

• إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
• دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
• أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء... 

---

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

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...