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

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

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

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

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

---

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

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

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

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 .

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

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

---

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

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

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

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

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

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

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

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

---

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

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

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

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

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

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

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

  قم بإزالة الخلايا / الصفوف إذا لم تكن غامقة

---

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

• كيفية تحويل الارتباطات التشعبية إلى نص عادي في إكسيل؟
• كيف نحسب إذا كانت الخلايا تبدأ أو تنتهي بنص معين في إكسيل؟
• كيفية حساب التكرارات وإزالتها من قائمة في إكسيل؟