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

كيفية إزالة الخلايا أو الصفوف إذا لم يكن غامقًا في Excel؟

لنفترض أن لديك مجموعة من البيانات بخلايا غامقة وليست غامقة كما هو موضح أدناه ، ما تحتاجه الآن هو إزالة الخلايا أو الصفوف إذا لم تكن غامقة. بدلاً من إزالة الخلايا غير الغامقة واحدة تلو الأخرى يدويًا ، يقدم هذا البرنامج التعليمي الحيل لك لحلها بسرعة في Excel.

إزالة المستند إن لم يكن غامقًا 1

قم بإزالة الصفوف إذا لم تكن بخط عريض باستخدام VBA

قم بإزالة الخلايا إذا لم تكن غامقة باستخدام Find and Replace and Select Range Helper

قم بإزالة الصفوف / الخلايا إذا لم تكن غامقة باستخدام Kutools for Excel فكرة جيدة 3


v قم بإزالة الصفوف إذا لم تكن بخط عريض باستخدام VBA

لإزالة الصفوف إذا لم تكن غامقة ، يمكنك استخدام رمز VBA للتعامل معها.

1. صحافة F11 + البديل مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، ثم لصق رمز VBA أدناه في ملف وحدة نافذة.

فبا: أزل الصفوف إذا لم تكن غامقة.

Sub DeleteNonBolded()
'UpdatebyKutoolsforExcel20151116
    Dim xRg As Range
    Dim xDelRg As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    Dim I As Long
    Dim xBold As Variant
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range", "Kutools for Excel", xAddress, , , , , 8)
    Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "This VBA cannot support multiple range", , "Kutools for Excel"
        Exit Sub
    End If
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        xBold = xRg.Rows(I).Cells.Font.Bold
        If TypeName(xBold) = "Boolean" Then
            If xBold = False Then
                If xDelRg Is Nothing Then
                    Set xDelRg = xRg.Rows(I).EntireRow
                Else
                    Set xDelRg = Union(xRg.Rows(I).EntireRow, xDelRg)
                End If
            End If
        End If
    Next
    xDelRg.Delete
    Application.ScreenUpdating = xUpdate
End Sub

3. صحافة F5 مفتاح لتشغيل كود فبا. في ظهرت كوتولس ل إكسيل مربع الحوار ، يرجى تحديد النطاق الذي ستزيله من الصفوف بدون خلايا غامقة ، وانقر فوق OK .

إزالة المستند إن لم يكن غامقًا 2

وبعد ذلك يمكنك رؤية الصفوف التي لا تحتوي على خلايا غامقة تمت إزالتها

إزالة المستند إن لم يكن غامقًا 1دوك السهم الأيمنإزالة المستند إن لم يكن غامقًا 3

ملاحظة: يمكن إزالة الصفوف فقط عندما لا تكون جميع الخلايا في نفس الصف غامقة.


قم بإزالة الخلايا إذا لم تكن غامقة باستخدام Find and Replace and Select Range Helper

إذا كنت تريد فقط إزالة محتويات الخلية من الخلايا غير الغامقة ، فيمكنك استخدام وظيفة البحث والاستبدال لتحديد الخلايا الغامقة أولاً ، ثم استخدم كوتولس ل إكسيلالصورة حدد مساعد النطاق لعكس تحديد الخلايا غير الغامقة ، ثم أزل المحتويات.

1. حدد نطاق البيانات حيث تريد إزالة الخلايا غير الغامقة ، واضغط على CTRL + F لتمكين بحث واستبدال الحوار ، وانقر فوق مزيد من الخيارات زر. انظر لقطة الشاشة:

إزالة المستند إن لم يكن غامقًا 4

2. انقر شكل للذهاب إلى ابحث عن التنسيق الحوار ، وتحت الخط علامة التبويب، حدد جريء من نوع الخط قائمة. انظر لقطة الشاشة:

إزالة المستند إن لم يكن غامقًا 5

3. انقر OK > جد كل، ويتم سرد كافة الخلايا ذات الخط الغامق في ملف بحث واستبدال الحوار والصحافة السيطرة + أ لتحديد كل منهم ، ثم أغلق ملف بحث واستبدال الحوار. انظر لقطة الشاشة:

إزالة المستند إن لم يكن غامقًا 6

4. ثم احتفظ بهذه الخلايا محددة وانقر كوتولس > أختار > حدد مساعد النطاق. انظر لقطة الشاشة:

إزالة المستند إن لم يكن غامقًا 7

5. في مربع حوار الفرقعة ، تحقق اختيار معكوس الخيار أولاً ، ثم حدد نطاق البيانات الأصلي. الآن يمكنك رؤية التحديد معكوسًا. انظر لقطة الشاشة:

إزالة المستند إن لم يكن غامقًا 8

6. انقر اغلاق. الآن اضغط حذف مفتاح لإزالة محتويات الخلية من الخلايا غير الغامقة.

إزالة المستند إن لم يكن غامقًا 9


قم بإزالة الصفوف / الخلايا إذا لم تكن غامقة باستخدام Kutools for Excel

الطرق المذكورة أعلاه ليست سهلة بما فيه الكفاية ، في هذه الحالة ، يمكنك استخدامها كوتولس ل إكسيلالصورة حدد الخلايا ذات التنسيق فائدة لتحديد الخلايا غير الغامقة بسرعة ، ثم إزالتها.

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

1. حدد نطاق البيانات الذي تحتاجه ، وانقر فوق كوتولس > أختار > حدد الخلايا ذات التنسيق. انظر لقطة الشاشة:

إزالة المستند إن لم يكن غامقًا 15

2. في مربع حوار الفرقعة ، انقر فوق اختر تنسيق من الخلية زر لتحديد خلية واحدة غير غامقة من نطاق البيانات ، ثم تحقق جريء فقط من القائمة أدناه في قسم الخط. انظر لقطة الشاشة:

إزالة المستند إن لم يكن غامقًا 11

3. انقر Ok، وينبثق مربع حوار لتذكيرك بعدد الخلايا المحددة ، فقط انقر نعم لإغلاقه.

إزالة المستند إن لم يكن غامقًا 12

الآن يتم تحديد جميع الخلايا غير الغامقة ، واضغط على حذف مفتاح لإزالة محتويات الخلية. أو إذا كنت تريد إزالة الصفوف غير الغامقة ، فانقر بزر الماوس الأيمن فوق أي من الخلايا المحددة وحددها حذف > الصف بأكمله. انظر لقطات الشاشة:

إزالة المستند إن لم يكن غامقًا 13دوك السهم الأيمنإزالة المستند إن لم يكن غامقًا 14

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

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

🤖 مساعد 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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations