كيفية حذف كل صف آخر بسرعة في Excel؟

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

حذف كل صف آخر في Excel باستخدام أمر التصفية

حذف كل صف آخر في Excel باستخدام كود VBA

حذف كل صف أو عمود آخر في Excel باستخدام Kutools لـ Excel

حذف كل صف آخر في Excel باستخدام أمر التصفية

يمكن لأمر التصفية في Microsoft Excel مساعدتك على تصفية كل صف آخر بسرعة ثم حذفهم مرة واحدة، يرجى القيام بما يلي:

1. في عمود فارغ بجانب البيانات الأصلية، أدخل 0،1،0،1 ...، 0،1. في هذه الحالة، نقوم بإدخال الأرقام في العمود المساعد C. انظر إلى لقطة الشاشة التالية:

2. حدد العمود C، واضغط على زر التصفية تحت تبويب البيانات. ثم اضغط على الزر السهم بجانب C1، وتحقق فقط من القيمة 0 أسفل خيار تحديد الكل. انظر لقطة الشاشة:

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

4. وأخيرًا، يمكنك حذف العمود المساعد C حسب الحاجة.

حذف كل صف آخر في Excel باستخدام كود VBA

في الواقع، تعد ماكرو VBA أيضًا خيارًا جيدًا لحل هذه المشكلة.

1. اضغط مع الاستمرار على مفتاح Alt + F11 في Excel، وسيتم فتح نافذة Microsoft Visual Basic for Applications.

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

كود VBA: حذف كل صف آخر في التحديد:

Sub DeleteEveryOtherRow()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Rows.Count To 1 Step -2
    Set rng = InputRng.Cells(i, 1)
    rng.EntireRow.Delete
Next
Application.ScreenUpdating = True
End Sub

3. اضغط على مفتاح F5 لتشغيل هذا الماكرو. ثم ستظهر نافذة منبثقة لاختيار نطاق. انظر لقطة الشاشة:

4. ثم اضغط على موافق، سيتم حذف كل صف آخر في النطاق المحدد بدءًا من الصف الثاني فورًا، انظر لقطة الشاشة:

حذف كل صف أو عمود آخر في Excel باستخدام Kutools لـ Excel

بالنسبة للمستخدمين الجدد في Microsoft Excel، قد يكون استخدام ماكرو VBA معقدًا بعض الشيء. أداة تحديد صفوف وأعمدة الفاصل الزمني الخاصة بـ Kutools لـ Excel يمكن أن تساعدك في حذف كل صف آخر بسرعة.

بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:

1. حدد النطاق الذي تريد حذف كل صف آخر فيه، ثم قم بتطبيق هذه الأداة عن طريق النقر على Kutools > تحديد > تحديد صفوف وأعمدة الفاصل الزمني….

2. في مربع الحوار تحديد صفوف وأعمدة الفاصل الزمني، حدد الإعدادات كما هو موضح في لقطة الشاشة التالية، واضغط على زر موافق لتحديد كل صف آخر أولاً.

3. بعد ذلك، يتم تحديد وإبراز كل صف آخر في التحديد. انظر لقطة الشاشة:

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

مع هذه الميزة، يمكنك أيضًا حذف كل صف أو عمود متكرر حسب الحاجة.

قم بتنزيل وتثبيت النسخة التجريبية المجانية من Kutools لـ Excel الآن!