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