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

كيفية حذف نفس الصفوف أو النطاقات عبر أوراق متعددة في إكسيل؟

توصي هذه المقالة بطريقتين لحذف نفس الصفوف أو النطاقات عبر أوراق متعددة في نفس الوقت في 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 .

الآن يتم حذف قيم الخلايا في هذا النطاق المحدد من جميع الأوراق في المصنف الحالي على الفور.


مقالات ذات صلة:

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

🤖 مساعد 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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have a multiple data in multiple sheets and I want to delete some data with specific code in all sheets. kindly suggest.
This comment was minimized by the moderator on the site
Hi Ranit Mehta,
I don't quite understand your question. In the post, we provided a piece of VBA code for deleting data in the same range in multiple worksheets. I am not sure if this meets your needs.
The code is as follows:
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
This comment was minimized by the moderator on the site
Muchas gracias por el aporte, me ahorro mucho tiempo de trabajo.Bendiciones.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations