كيف يمكن حذف الصفوف أو النطاقات المتطابقة عبر أوراق متعددة في Excel؟
عند العمل مع مصنف Excel يحتوي على أوراق عمل متعددة، قد تجد نفسك بحاجة إلى حذف صفوف متطابقة أو نطاقات محددة من جميع الأوراق دفعة واحدة. فعلى سبيل المثال، قد تحتاج إلى إزالة صفوف ملخص أو بيانات قديمة أو أقسام متكررة من كل ورقة في مصنف قياسي. وتنفيذ هذه العمليات يدويًّا في كل ورقة قد يكون غير فعّال وعرضةً للأخطاء، خاصةً عند التعامل مع ملفات كبيرة. لحسن الحظ، توجد طرق عملية تتيح لك حذف الصفوف أو النطاقات نفسها بكفاءة عبر جميع أوراق العمل المطلوبة. ويقدّم هذا المقال طريقتين رئيسيتين، إلى جانب إرشاداتٍ ونصائحَ وتحذيراتٍ وإرشاداتٍ لاستكشاف الأخطاء وإصلاحها، لضمان إنجاز مهمتك بسلاسة ودقة.
حذف نفس الصفوف أو النطاقات عبر أوراق متعددة بتجميع جميع الأوراق
حذف نفس الصفوف أو النطاقات عبر أوراق متعددة باستخدام أكواد VBA
حذف نفس الصفوف أو النطاقات عبر أوراق متعددة بتجميع جميع الأوراق
يتيح لك تجميع أوراق العمل تطبيق نفس الإجراءات على عدة أوراق دفعة واحدة. وتُعد هذه الطريقة مباشرةً وفعّالةً بشكل خاص عندما تكون الأوراق ذات هيكل متطابق وترغب في أن تنعكس التغييرات على كل ورقة منها. فبمجرد التجميع، سيؤثر أي إجراء — مثل حذف الصفوف أو النطاقات — في نفس الموضع بالضبط عبر جميع الأوراق المجمعة.
السيناريوهات المناسبة:هذا الحل مثالي عندما:
- تتميّز جميع أوراق العمل لديك بهيكل متطابق—بنفس عدد الصفوف والأعمدة وبنفس الترتيب.
- تريد حذف نفس الصفوف أو النطاقات من كل ورقة في آنٍ واحد.
مع ذلك، احذر: أي عملية تُجرى أثناء تجميع الأوراق ستؤثر علىجميعأوراق العمل المجمعة. إذا اختلفت هياكل أوراق عملك، فقد يؤدي ذلك إلى حذف غير مقصود.
لحذف صفوف أو نطاقات متطابقة من أوراق متعددة مجمعة، اتبع الخطوات التالية:
1. انقر بزر الماوس الأيمنعلى أي لسان ورقة في المصنف الحالي الخاص بك. من قائمة النقر بزر الماوس الأيمن، اخترتحديد جميع الأوراق. سيؤدي ذلك إلى تجميع جميع أوراق العمل معًا.
تلميح:إذا كنت بحاجة فقط إلى تجميع أوراق محددة (وليس جميعها)، فاضغط مع الاستمرار علىCtrl، ثم انقر على علامات أوراق العمل التي تريد تجميعها، وبعد ذلك انقر بزر الماوس الأيمن واخترتجميع الأوراق.
2. بينما تكون جميع أوراق العمل مجمعة، حدّد الصفوف أو النطاقات التي ترغب في حذفها في ورقة العمل الحالية. عند استخدام زرحذفأو النقر بزر الماوس الأيمن واختيارحذف، سيتم حذف نفس الصفوف أو النطاقات تلقائيًّا من نفس الموضع في جميع الأوراق المجمعة.
تحذير:سيؤثر الأمر «تراجع» (Ctrl+Z) أيضًا على جميع الأوراق المجمعة. تأكد مرتين من أن المنطقة الصحيحة محددة قبل الحذف، لأن هذا الإجراء لا يمكن التراجع عنه بشكل منفصل في كل ورقة.
3. بمجرد الانتهاء من عمليات الحذف، من الضروري فك تجميع أوراق العمل. انقر بزر الماوس الأيمنعلى أي لسان ورقة مرة أخرى واخترفك تجميع الأوراقمن القائمة. ستمنعك هذه الخطوة من إدخال تغييرات عرضية مستقبلية تؤثر على جميع الأوراق دفعة واحدة.
اقتراحات عملية:قبل التجميع، فكّر في حفظ نسخة احتياطية من مصنفك. وإذا كانت هناك صيغ تعتمد على الصفوف التي سيتم حذفها، فراجِع الآثار المحتملة بدقة. وعند فك التجميع، تأكد من اختفاء [Group] من اسم الملف في شريط عنوان Excel.
استكشاف الأخطاء وإصلاحها:إذا لاحظت أن إجراءً ما طُبِّق على صفوف خاطئة عبر أوراق متعددة، فاستخدم أمر «تراجع» فورًا، ثم أعد التجميع وكرّر العملية مع تحديد دقيق. تأكد دائمًا من حالة التجميع قبل إجراء أي تعديلات إضافية.
حذف نفس الصفوف أو النطاقات عبر أوراق متعددة باستخدام أكواد VBA
إذا كنت بحاجة إلى حذف نفس الصفوف أو النطاقات المحددة عبر العديد من أوراق العمل—خاصةً في السيناريوهات المعقدة أو عند التعامل مع عدد كبير من الأوراق—فإن استخدام VBA (Visual Basic for Applications) يُعد خيارًا سريعًا ومرنًا. فهو يمكّنك من التخصيص والمعالجة الدفعية، ويمكنك تكييفه لتلبية معايير أكثر تقدمًا أو لحذف صفوف أو نطاقات غير متجاورة بسهولة.
السيناريوهات المناسبة:اختر هذه الطريقة عندما:
- تحتاج إلى حذف نفس الصفوف أو النطاقات عبر عدد كبير من الأوراق، أو أن هذه المهام تتكرر بشكل متكرر.
- تتضمن متطلبات الحذف لديك منطقًا أكثر تعقيدًا، مثل استخدام نطاقات متغيرة استنادًا إلى إدخال المستخدم.
- لا تتيح أوراق العمل التجميع السهل نظرًا لاختلاف هياكلها أو تعقيدها.
نقاط يجب الانتباه إليها:يؤدي تشغيل كود VBA إلى تعديل بياناتك مباشرةً. لذا، يُوصى بشدة بحفظ نسخة احتياطية من مصنفك قبل المتابعة، والتأكد من تفعيل وحدات الماكرو في إعدادات Excel الخاصة بك.
حذف نفس الصفوف عبر أوراق متعددة
1. اضغطAlt+F11 في الوقت نفسه لفتح نافذة محررمايكروسوفت فيجوال بيسيك للتطبيقات (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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل