كيفية حذف الصفوف أو النطاقات المتطابقة عبر أوراق متعددة في Excel؟
عند العمل مع مصنفات Excel التي تحتوي على أوراق عمل متعددة، قد تجد أنه من الضروري حذف الصفوف المتطابقة أو النطاقات المحددة في جميع الأوراق في نفس الوقت. على سبيل المثال، قد تحتاج إلى إزالة صفوف الملخص، البيانات القديمة، أو الأقسام المتكررة من كل ورقة عمل في مصنف قياسي. إجراء هذه الحذفات يدويًا في كل ورقة يمكن أن يكون غير فعال ومعرض للأخطاء، خاصة في الملفات الكبيرة. لحسن الحظ، هناك طرق عملية متاحة لمساعدتك على حذف الصفوف أو النطاقات نفسها بكفاءة عبر جميع الأوراق المحددة. يقدم هذا المقال طريقتين رئيسيتين ويقدم إرشادات، نصائح، تحذيرات، واستكشاف للأخطاء لمساعدتك على إنجاز المهمة بسلاسة ودقة.
حذف الصفوف أو النطاقات المتطابقة عبر أوراق متعددة عن طريق تجميع جميع الأوراق
حذف الصفوف أو النطاقات المتطابقة عبر أوراق متعددة باستخدام أكواد VBA
حذف الصفوف أو النطاقات المتطابقة عبر أوراق متعددة عن طريق تجميع جميع الأوراق
يتيح لك تجميع أوراق العمل تطبيق نفس الإجراءات على العديد من الأوراق في وقت واحد. هذه الطريقة مباشرة للغاية ومفيدة بشكل خاص عندما تكون الأوراق مهيكلة بشكل متطابق وتريد أن تنعكس التغييرات في كل ورقة. عند التجميع، سيتم تنفيذ أي إجراء — مثل حذف الصفوف أو النطاقات — في نفس المكان تمامًا عبر جميع الأعضاء في المجموعة.
السيناريوهات المطبقة: هذه الحلول مثالية عندما:
- جميع أوراق عملك لها هيكل متطابق (عدد وترتيب الصفوف/الأعمدة نفسه).
- تريد حذف نفس الصفوف أو النطاقات في كل ورقة في نفس الوقت.
ومع ذلك، توخى الحذر: أي عملية تُجرى أثناء تجميع الأوراق ستؤثر على جميع الأوراق المجمعة. إذا كانت أوراق عملك تختلف في الهيكل، فقد تحدث عمليات حذف غير مقصودة.
للحذف الصفوف أو النطاقات المتطابقة من أوراق متعددة مجمعة، اتبع الخطوات التالية:
1. انقر بزر الماوس الأيمن على أي علامة ورقة في المصنف الحالي. من قائمة النقر بزر الماوس الأيمن، اختر تحديد كافة الأوراق. سيقوم هذا بتجميع جميع أوراق العمل معًا.
نصيحة: إذا كنت بحاجة فقط لتجميع أوراق معينة (وليس جميعها)، اضغط مع الاستمرار على Ctrl وانقر على علامات الأوراق التي تريد تجميعها، ثم انقر بزر الماوس الأيمن واختر تجميع الأوراق.
2. بينما جميع أوراق العمل مجمعة، حدد الصفوف أو النطاقات التي تريد حذفها في الورقة النشطة. عند حذف هذه الصفوف أو النطاقات باستخدام زر الحذف أو بالنقر بزر الماوس الأيمن واختيار حذف، سيتم حذف نفس الصفوف أو النطاقات تلقائيًا في نفس الموضع عبر جميع الأوراق المجمعة.
تحذير: التراجع (Ctrl+Z) سيؤثر أيضًا على جميع الأوراق المجمعة. تحقق مرتين من أن المنطقة الصحيحة محددة قبل الحذف، لأن هذا الإجراء لا يمكن عكسه بشكل منفصل في كل ورقة.
3. بمجرد الانتهاء من عمليات الحذف الخاصة بك، من الضروري فك تجميع أوراق العمل. انقر بزر الماوس الأيمن مرة أخرى على أي علامة ورقة واختر فك تجميع الأوراق من القائمة. ستعمل هذه الخطوة على منع أي تغييرات عرضية إضافية من التأثير على جميع الأوراق في نفس الوقت.
اقتراحات عملية: قبل التجميع، ضع في اعتبارك حفظ نسخة احتياطية من مصنفك. إذا كانت هناك صيغ تعتمد على الصفوف التي يتم حذفها، قم بمراجعة الآثار المحتملة. عند فك التجميع، تأكد من اختفاء [مجموعة] من اسم الملف في شريط العنوان في Excel.
استكشاف الأخطاء وإصلاحها: إذا وجدت أن إجراءً تم تطبيقه على الصفوف الخاطئة في أوراق متعددة، استخدم التراجع فورًا، أعد التجميع، وكرر العملية مع اختيار دقيق. تحقق دائمًا من حالة المجموعة قبل تحرير المزيد.
حذف نفس الصفوف أو النطاقات عبر أوراق متعددة باستخدام أكواد VBA
إذا كنت بحاجة إلى إزالة نفس الصفوف أو النطاقات المحددة في العديد من أوراق العمل، خاصة عند التعامل مع سيناريوهات معقدة أو عدد كبير من الأوراق، فإن استخدام VBA (Visual Basic for Applications) يوفر بديلًا سريعًا ومرنًا. يسمح VBA بالتخصيص، المعالجة الدفعية، ويمكن تخصيصه لمعايير متقدمة أو لحذف صفوف/نطاقات غير متصلة.
السيناريوهات المطبقة: اختر هذه الطريقة عندما:
- تحتاج إلى حذف نفس الصفوف/النطاقات في عدد كبير من الأوراق أو تكرار مثل هذه المهام بشكل متكرر.
- متطلبات الحذف الخاصة بك تتضمن منطقًا أكثر تعقيدًا (مثل نطاقات متغيرة، بناءً على إدخال المستخدم).
- أوراق العمل لا تسمح بتجميع سهل بسبب الهياكل المختلفة أو المعقدة.
نقاط للانتباه: تشغيل كود VBA سيعدل بياناتك مباشرة. يوصى بشدة بحفظ نسخة احتياطية من مصنفك قبل المتابعة. أيضًا، تأكد من تمكين ماكرو في إعدادات Excel الخاص بك.
حذف نفس الصفوف عبر أوراق متعددة
1. اضغط على Alt + F11 في نفس الوقت لفتح نافذة محرر Microsoft Visual Basic for Applications (VBA).
2. في محرر VBA، انقر على إدراج > وحدة لإنشاء وحدة جديدة. بعد ذلك، انسخ والصق الكود التالي لـ VBA في نافذة كود الوحدة:
Sub bleh()
Dim xWs As Worksheet
Set xWs = ActiveSheet
ThisWorkbook.Worksheets.Select
Rows("4:5").Select
Selection.Delete
xWs.Select
End Subملاحظة: في كود VBA، 4:5 يعني أن الصفوف 4 و 5 سيتم حذفها في جميع أوراق العمل في المصنف الحالي. إذا كنت ترغب في حذف صفوف مختلفة، قم بتغيير هذه القيم حسب الحاجة. على سبيل المثال، لحذف الصف 2 فقط، استبدل 4:5 بـ 2:2.
3. اضغط على مفتاح F5 لتنفيذ الكود. سيتم حذف الصفوف المحددة من كل ورقة في مصنفك على الفور.
نصائح وتذكيرات: إذا حدث خطأ (مثل محاولة حذف صفوف غير موجودة في ورقة أقصر)، تحقق من أن جميع الأوراق تحتوي على صفوف كافية. سيقوم الكود بمعالجة الأوراق المرئية؛ قد تسبب الأوراق المخفية أو المحمية أخطاء إذا لم يتم التعامل معها بشكل صحيح.
استكشاف الأخطاء وإصلاحها: إذا لم يحدث شيء أو لم يتم حذف بعض الصفوف كما هو متوقع، تأكد من اختيار الوحدة الصحيحة ولا يحتوي الكود على أخطاء نحوية. تحقق أيضًا من حالة حماية الورقة.
حذف نفس النطاقات عبر أوراق متعددة
إذا كنت تريد حذف (مسح) نفس نطاق الخلايا (مثل كتلة من البيانات مثل B2:D10) عبر كل ورقة عمل، يمكنك استخدام كود VBA التالي. هذا النهج مفيد في الحالات التي تريد فيها إزالة البيانات من منطقة معينة بدلاً من الصفوف بأكملها.
Private Sub CommandButton2_Click()
Dim xRg As Range
Dim xTxt As String
Dim xWs As Worksheet
On Error Resume Next
Set xWs = ActiveSheet
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the range you want to delete across multiple sheets:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg.ClearContents
ThisWorkbook.Worksheets.Select
ActiveWindow.SelectedSheets.FillAcrossSheets xRg, xlFillWithContents
xWs.Select
End Subبعد نسخ ولصق كود VBA في الوحدة، اضغط على F5 لتشغيل الماكرو. في النافذة المنبثقة المسماة "Kutools لـ Excel"، حدد النطاق الذي ترغب في حذفه عبر جميع الأوراق، ثم انقر على موافق.
بمجرد تأكيد اختيارك، سيتم مسح القيم في النطاق المحدد من كل ورقة عمل في المصنف الحالي.
اقتراحات عملية: هذه الطريقة هي الأفضل عندما تحتاج إلى مسح القيم من نفس نطاق الخلية في أوراق متعددة. لاحظ أن "الحذف" هنا يزيل محتوى الخلية ولكنه لا يقوم بالفعل بتحريك الخلايا لأعلى/يسار؛ لن يتم إجراء تغييرات هيكلية على ورقة عملك (مثل حذف الصفوف/الأعمدة بالكامل) إلا إذا كان كود VBA الخاص بك يشير إليه بشكل واضح.
احتياطات: احمِ بياناتك بحفظ الملف قبل تنفيذ الماكرو. إذا كانت الورقة المحددة محمية أو مخفية، قد يعيد VBA خطأ أو يتخطى تلك الورقة.
استكشاف الأخطاء وإصلاحها: إذا لم تظهر مربع الحوار، تأكد من تمكين الماكرو وأنك قد ألصقت الكود الكامل بشكل صحيح. إذا تم حذف النطاق الخاطئ، أعد تشغيل الماكرو مع الاختيار الصحيح.
اقتراحات ملخص: كل من طرق تجميع أوراق العمل وVBA تمكن من الحذف الفعّال عبر أوراق متعددة. اتخذ القرار بناءً على هيكل مصنفك ومدى تكرار حاجتك لهذه المهام. للاستخدام المنتظم، احفظ إجراءات VBA الخاصة بك للوصول السريع وفكر في تخصيص الكود لاستهداف أوراق أو نطاقات معينة.
بدائل أخرى
- التكرار اليدوي باستخدام العثور/الاستبدال: إذا كان لديك عدد قليل من الأوراق، يمكنك التبديل بين كل واحدة، تحديد الصفوف أو النطاقات المستهدفة، وحذفها يدويًا. على الرغم من استهلاكه للوقت في الأعداد الكبيرة، إلا أن هذه الطريقة تتجنب خطر التغييرات غير المقصودة على مستوى الورقة بالكامل.
- استخدام صيغة Excel (الطريقة غير المباشرة): في بعض السيناريوهات المعقدة، يمكنك استخدام الصيغ والأعمدة المساعدة (مثل وظائف INDIRECT، MATCH، و IF) لتحديد الصفوف للإزالة، ثم حذفها يدويًا بعد التصفية. هذه التقنية مناسبة أكثر لتحديد البيانات بدلاً من الحذف المباشر عبر الأوراق ولكن يمكن أن تساعد في التحقق البصري قبل الحذف اليدوي.
مقالات ذات صلة:
- كيفية حذف الصفوف ذات القيم المفقودة/الفراغات في أعمدة معينة في Excel؟
- كيفية حذف الصفوف إذا كانت الخلية أكبر/أقل من قيمة معينة في Excel؟
- كيفية حذف جميع الصفوف باستثناء الصف الأول للعنوان في Excel؟
- كيفية حذف جميع الصفوف أسفل صف معين أو الخلية النشطة في 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد