كيفية حذف نفس الصفوف أو النطاقات عبر أوراق متعددة في إكسيل؟
توصي هذه المقالة بطريقتين لحذف نفس الصفوف أو النطاقات عبر أوراق متعددة في نفس الوقت في Excel. الرجاء القيام بما يلي.
احذف نفس الصفوف أو النطاقات عبر أوراق متعددة مع تجميع كل الأوراق
احذف نفس الصفوف أو النطاقات عبر أوراق متعددة باستخدام أكواد VBA
احذف نفس الصفوف أو النطاقات عبر أوراق متعددة مع تجميع كل الأوراق
من السهل تجميع جميع أوراق العمل ثم حذف نفس الصفوف أو النطاقات من أوراق العمل هذه في نفس الوقت.
1. انقر بزر الماوس الأيمن فوق أي علامة تبويب ورقة في المصنف الحالي ، ثم انقر فوق حدد كافة الأوراق من قائمة النقر بزر الماوس الأيمن.
2. الآن تم تحديد جميع أوراق العمل ، إذا قمت بحذف صفوف أو نطاقات معينة في ورقة عمل ، فسيتم حذف نفس الصفوف أو النطاقات في أوراق العمل الأخرى معًا.
3. بعد حذف الصفوف أو النطاقات في جميع الأوراق ، يرجى النقر بزر الماوس الأيمن فوق علامة تبويب الورقة ثم النقر فوق فك تجميع الأوراق من قائمة النقر بزر الماوس الأيمن لفك تجميع جميع أوراق العمل.
احذف نفس الصفوف أو النطاقات عبر أوراق متعددة باستخدام أكواد VBA
إلى جانب الطريقة المذكورة أعلاه ، يمكنك تشغيل أكواد فبا التالية لحذف نفس الصفوف أو النطاقات عبر ورقة عمل متعددة.
احذف نفس الصفوف عبر أوراق متعددة
1. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ والصق رمز فبا التالي في نافذة التعليمات البرمجية.
كود فبا: احذف نفس الصفوف عبر أوراق متعددة في إكسيل
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 عبر أوراق عمل متعددة في المصنف الحالي. يمكنك تغييرها إلى الصف المطلوب.
3. صحافة F5 مفتاح لتشغيل التعليمات البرمجية ، ثم يتم حذف الصفوف المحددة على الفور من جميع الأوراق في المصنف الحالي.
احذف نفس النطاقات عبر أوراق متعددة
لحذف نفس النطاقات عبر أوراق متعددة ، يمكنك تجربة رمز 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 مفتاح لتشغيل التعليمات البرمجية ، وظهورها كوتولس ل إكسيل في مربع الحوار ، حدد النطاق الذي ستحذفه عبر أوراق متعددة ، ثم انقر فوق OK .
الآن يتم حذف قيم الخلايا في هذا النطاق المحدد من جميع الأوراق في المصنف الحالي على الفور.
مقالات ذات صلة:
- كيفية حذف الصفوف ذات القيم المفقودة / الفارغة في أعمدة معينة في إكسيل؟
- كيفية حذف الصفوف إذا كانت الخلية أكبر / أقل من قيمة معينة في إكسيل؟
- كيفية حذف جميع الصفوف باستثناء صف الرأس الأول في إكسيل؟
- كيفية حذف جميع الصفوف الموجودة أسفل صف معين أو خلية نشطة في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!