انتقل إلى المحتوى الرئيسي

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

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

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

احذف كل صف آخر في Excel برمز VBA

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


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

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

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

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

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

DOC-DELETE-CORY-ROW5 -2 DOC-DELETE-CORY-ROW12

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


حدد كل الصفوف الأخرى أو الأعمدة ثم احذفها مرة واحدة

كوتولس ل إكسيل's حدد الفاصل الزمني للصفوف والأعمدة يمكن أن تساعدك الأداة المساعدة في العثور على كل الصفوف أو الأعمدة الأخرى أو تحديدها ، وبعد ذلك يمكنك القيام ببعض العمليات حسب حاجتك. انقر لتنزيل Kutools for Excel!


السهم الأزرق الحق فقاعة احذف كل صف آخر في Excel برمز VBA

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

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

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

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

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. ثم اضغط OK، يتم حذف كل صف آخر في النطاق المحدد من الصف الثاني مرة واحدة ، انظر الصورة:

DOC-DELETE-CORY-ROW5 -2 DOC-DELETE-CORY-ROW12

السهم الأزرق الحق فقاعة احذف كل صف أو عمود آخر في Excel باستخدام Kutools for Excel

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

كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. 

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

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

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

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

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

DOC-DELETE-CORY-ROW5 -2 DOC-DELETE-CORY-ROW12

انقر لمعرفة المزيد حول ميزة تحديد صفوف وأعمدة الفاصل الزمني.

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

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


السهم الأزرق الحق فقاعةالعرض التوضيحي: احذف كل صف أو عمود آخر باستخدام Kutools for Excel

كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!

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

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (11)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
An easy way to put 0 or 1 in the column instead is to add a formula column: =IF(MOD(ROW(), 2) = 0, 0, 1). That might help if you'd rather not type 0,1,01, etc.
This comment was minimized by the moderator on the site
another way is to add a new column in front of your data, so column A is blank, then just enter a b a b a b as you go down the rows in column A - so "a" in A1, "b" in A2, "a" in A3, "b" in A4. then you can drag the new "a" and "b" cells down for all rows of data. then sort column A alphabetically, and you get all the odd rows with an "a" at the top and all the even rows with a "b" at the bottom. this is probably the easiest way.
This comment was minimized by the moderator on the site
You're genious :)
This comment was minimized by the moderator on the site
Easiest? How is that different from the 0,1 method? ;-)
This comment was minimized by the moderator on the site
This is actually very useful if you have a large number of rows and can't enter the 2 settings in manually. if you drag 0,1 down, it continues to 2, 3, 4...but if you drag a,b down, it will repeat as a,b,a,b...all the way down. Thanks!
This comment was minimized by the moderator on the site
That would be great, except column C is all 0
This comment was minimized by the moderator on the site
This is really really helpful. thanks
This comment was minimized by the moderator on the site
Great trick...thank you. I love simple sneaky tricks like this
This comment was minimized by the moderator on the site
This was really helpful. thanks,
This comment was minimized by the moderator on the site
In cell B1: =row(A1) Drag this down all of column B. In cell C1: =mod(B1,2) Drag this down all of column C. Apply a filter and in column C select all 0s or 1s as required.
This comment was minimized by the moderator on the site
Richarddddd, Sneaky! I like that, and it was useful to me today. Thanks.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations