كيفية إعادة الترقيم التلقائي أو إعادة الترقيم بعد التصفية في 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
مقالة ذات صلة:
كيف ترقيم الخلايا المدمجة تلقائيًا في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!