كيف يمكنني حذف كل صف آخر في Excel بسرعة؟
إذا كنت ترغب في حذف كل صف أو عمود آخر في Excel بسرعة، فإن المفتاح الأساسي يكمن في كيفية تحديد تلك الصفوف أو الأعمدة البديلة بفعالية أولاً، ثم تطبيق عملية الحذف عليها دفعة واحدة. وتعرض لك هذه المقالة طرقًا ذكية لتحديد كل صف أو عمود آخر بسرعة، تليها خطوات الحذف الفوري.
حذف كل صف آخر في Excel باستخدام أمر التصفية
حذف كل صف آخر في Excel باستخدام كود VBA
حذف كل صف أو عمود آخر في Excel باستخدام Kutools لـ Excel
حذف كل صف آخر في Excel باستخدام أمر التصفية
Microsoft Excel's أمر التصفيةيمكنه مساعدتك على تصفية كل صف آخر بسرعة ثم حذفها دفعة واحدة، يُرجى اتباع الخطوات التالية:
1. في عمود فارغ بجانب البيانات الأصلية، أدخل0،1،0،1…،0،1. في هذا المثال، نُدخل الأرقام في عمود المساعدة C. انظر لقطة الشاشة التالية:
2. حدد العمود C، ثم انقر على زرالتصفيةالموجود ضمن علامة التبويببيانات. بعد ذلك، انقر على الزر السهم بجانب الخلية C1، وحدد فقط خيار0 الموجود تحت خيارتحديد الكل. انظر لقطة الشاشة:
3. بعد ذلك، سيتم إخفاء جميع الصفوف التي تحتوي على القيمة 1. حدد الصفوف المرئية التي تحتوي على القيمة 0، ثم انقر علىالصفحة الرئيسية > حذف > حذف صفوف الورقةلحذف هذه الصفوف. وبذلك يتم حذف كل صف آخر، وبعد ذلك ستحتاج إلى النقر مرة أخرى على زرالتصفيةلإظهار الصفوف التي تحتوي فقط على القيمة 1. انظر لقطات الشاشة:
 |  |  |
4. أخيرًا، يمكنك حذف عمود المساعدة C متى شئت.
حدد كل صف أو عمود آخر (أو كل الصفوف/الأعمدة ذات الرقم n)، ثم احذفها دفعة واحدة
Kutools لـ Excel's تحديد صفوف / أعمدة بفاصل زمنييمكنك أداة تحديد الصفوف والأعمدة من العثور على كل صف أو عمود آخر (أو كل الصفوف/الأعمدة ذات الرقم n) وتحديدها، وبعد ذلك يمكنك تنفيذ العمليات التي تحتاجها.انقر لتنزيل Kutools لـ Excel!
حذف كل صف آخر في Excel باستخدام كود VBA
في الواقع، يُعد ماكرو VBA أيضًا خيارًا ممتازًا لحل هذه المشكلة.
1.اضغط مع الاستمرار على مفتاحيAlt+F11 في Excel، وسيتم فتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
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
قد يبدو استخدام ماكرو VBA أمرًا معقدًا بعض الشيء للمستخدم المبتدئ في Microsoft Excel. لكن أداةتحديد صفوف / أعمدة بفاصل زمنيمنKutools لـ Excelيمكنها مساعدتك على حذف كل صف آخر بسرعة!
بعد تثبيتKutools لـ Excel، يُرجى اتباع الخطوات التالية:
1. حدد النطاق الذي تريد حذف كل صف آخر منه، ثم طبّق هذه الأداة بالنقر علىKutools > تحديد > تحديد صفوف / أعمدة بفاصل زمني….
2. في مربع حوارتحديد صفوف / أعمدة بفاصل زمني، حدِّد الإعدادات كما هو موضح في لقطة الشاشة التالية، ثم انقر على زرموافقلتحديد كل صف آخر أولاً.
3. بعد ذلك، سيتم تحديد كل صف آخر في المنطقة المحددة وتظليله. انظر لقطة الشاشة:
4. بعد ذلك، يمكنك حذف جميع الصفوف المحددة الأخرى بسرعة بالنقر علىالصفحة الرئيسية > حذف > حذف صفوف الورقةلحذف كل هذه الصفوف. انظر لقطات الشاشة:
 | |  |
باستخدام هذه الميزة، يمكنك حذف جميع الصفوف أو الأعمدة ذات الرقم n بحسب حاجتك.
نزّل Kutools لـ Excel وجربه مجانًا الآن!
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل