كيفية حذف جميع النطاقات ما عدا المحددة في إكسيل؟
في Excel ، يمكننا حذف النطاقات المحددة بسرعة وبشكل مباشر ، ولكن هل سبق لك أن حاولت حذف محتويات الخلية الأخرى باستثناء النطاقات المحددة؟ في هذه المقالة ، سأقدم لك بعض الحيل لحل هذه المهمة في Excel بسرعة وسهولة.
احذف كل النطاقات ماعدا المحددة برمز VBA
احذف جميع النطاقات باستثناء المحددة باستخدام Select Range Helper of Kutools for Excel
احذف جميع النطاقات باستثناء المحددة باستخدام Copy Ranges of Kutools for Excel
احذف كل النطاقات ماعدا المحددة برمز VBA
لا توجد طريقة مباشرة لك لحذف جميع قيم الخلايا غير المحددة مرة واحدة ، ولكن قد يساعدك رمز VBA التالي ، يرجى القيام بما يلي:
1. الرجاء الضغط على CTRL مفتاح لتحديد الخلايا التي تريد الاحتفاظ بها.
2. صحافة ALT + F11 مفاتيح في نفس الوقت لفتح Microsoft Visual Basic للتطبيق نافذة.
3. في Microsoft Visual Basic للتطبيق مربع حوار النافذة ، انقر فوق إدراج > وحدة، ثم انسخ والصق رمز VBA أدناه في ملف وحدة نافذة.
كود فبا: احذف جميع قيم الخلايا ما عدا النطاقات المحددة
Sub ClearAllExceptSelection()
'updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the ranges want to keep", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In ActiveSheet.UsedRange
If Intersect(xCell, xRg) Is Nothing Then
xCell.Clear
End If
Next
Application.ScreenUpdating = xUpdate
End Sub
4. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، ويظهر مربع موجه لتذكيرك بتحديد نطاق الخلايا التي تريد الاحتفاظ بها ، إذا قمت بتحديد النطاقات في الخطوة 1 ، يرجى النقر فوق OK، إذا لم يكن كذلك ، يمكنك تحديد الخلايا التي تريدها في مربع المطالبة ، وإدخال الفاصلات للفصل بين النطاقات المتعددة ، ثم النقر فوق OK زر ، انظر لقطة الشاشة:
5. بعد النقر OK، تم حذف جميع قيم الخلايا الأخرى ولكن تم ترك النطاقات المحددة فقط ، انظر لقطة الشاشة:
احذف جميع النطاقات باستثناء المحددة باستخدام Select Range Helper of Kutools for Excel
إذا كنت قد قمت بتثبيت كوتولس ل إكسيل، بما لديها اختيار معكوس سمة من سمات حدد مساعد النطاق الأداة المساعدة ، يمكنك عكس التحديد بسرعة ، ثم حذف التحديدات المعكوسة مرة واحدة.
| كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. |
بعد تثبيت كوتولس ل إكسيل، يرجى القيام بما يلي: تحميل مجاني Kutools لبرنامج Excel الآن! )
1. حدد نطاقات الخلايا التي تريد الاحتفاظ بها.
2. ثم اضغط كوتولس > أختار > حدد مساعد النطاق، انظر لقطة الشاشة:
3. في حدد مساعد النطاق مربع الحوار ، تحقق اختيار معكوس، انظر لقطة الشاشة:
4. ثم اسحب الماوس لتحديد النطاق الذي تريده لعكس التحديدات. عندما تحرر الماوس ، يتم إلغاء تحديد الخلايا المحددة ويتم تحديد الخلايا غير المحددة مرة واحدة. انظر لقطة الشاشة:
5. ثم أغلق مربع الحوار ، واضغط على حذف مفتاح لحذف التحديدات مرة واحدة. وتم الاحتفاظ بالخلايا التي تريدها فقط ، انظر الصورة:
تحميل مجاني Kutools لبرنامج Excel الآن!
احذف جميع النطاقات باستثناء المحددة باستخدام Select Range Helper of Kutools for Excel
فائدة أخرى-نسخ النطاقات of كوتولس ل إكسيل يمكن أن يساعدك أيضًا في إنهاء هذه المهمة ، ما عليك سوى نسخ النطاقات المحددة إلى ورقة عمل جديدة ، ثم حذف ورقة العمل القديمة.
بعد تثبيت كوتولس ل إكسيليرجى اتباع الخطوات التالية: تحميل مجاني Kutools لبرنامج Excel الآن! )
1. معلق CTRL مفتاح لتحديد نطاقات الخلايا التي تريد الاحتفاظ بها.
2. ثم اضغط كوتولس > نسخ النطاقات، انظر لقطة الشاشة:
3. وفي نسخ نطاقات متعددة مربع الحوار ، تحقق الكل الخيار تحت لصق خاص، التحقق من بما في ذلك ارتفاع الصف و بما في ذلك عرض العمود إذا كنت تريد الاحتفاظ بارتفاع الصف وعرض العمود الذي تريده ، فراجع لقطة الشاشة:
4. ثم اضغط Ok ، وسيظهر مربع موجه آخر لتذكيرك بتحديد خلية لوضع الخلايا المنسوخة ، يرجى تحديد خلية في ورقة عمل جديدة ، انظر لقطة الشاشة:
5. ثم انقر فوق OK، وقد تم لصق النطاقات المحددة فقط في ورقة العمل الجديدة ، والآن يمكنك حذف ورقة العمل الأصلية حسب حاجتك.
تحميل مجاني Kutools لبرنامج Excel الآن!
العرض التوضيحي: احذف جميع النطاقات باستثناء المحددة باستخدام كوتولس فور إكسيل
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
