كيفية إزالة الخلايا أو الصفوف إذا لم يكن غامقًا في 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
الطرق المذكورة أعلاه ليست سهلة بما فيه الكفاية ، في هذه الحالة ، يمكنك استخدامها كوتولس ل إكسيلالصورة حدد الخلايا ذات التنسيق فائدة لتحديد الخلايا غير الغامقة بسرعة ، ثم إزالتها.
كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. |
بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:
1. حدد نطاق البيانات الذي تحتاجه ، وانقر فوق كوتولس > اختار > حدد الخلايا ذات التنسيق. انظر لقطة الشاشة:
2. في مربع حوار الفرقعة ، انقر فوق اختر تنسيق من الخلية زر لتحديد خلية واحدة غير غامقة من نطاق البيانات ، ثم تحقق جريء فقط من القائمة أدناه في قسم الخط. انظر لقطة الشاشة:
3. انقر Ok، وينبثق مربع حوار لتذكيرك بعدد الخلايا المحددة ، فقط انقر نعم لإغلاقه.
الآن يتم تحديد جميع الخلايا غير الغامقة ، واضغط على حذف مفتاح لإزالة محتويات الخلية. أو إذا كنت تريد إزالة الصفوف غير الغامقة ، فانقر بزر الماوس الأيمن فوق أي من الخلايا المحددة وحددها حذف > الصف بأكمله. انظر لقطات الشاشة:



قم بإزالة الخلايا / الصفوف إذا لم تكن غامقة
مقالات ذات صلة:
- كيفية تحويل الارتباطات التشعبية إلى نص عادي في إكسيل؟
- كيف نحسب إذا كانت الخلايا تبدأ أو تنتهي بنص معين في إكسيل؟
- كيفية حساب التكرارات وإزالتها من قائمة في إكسيل؟
أفضل أدوات إنتاجية المكتب
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
- إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
- سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
- دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
- حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
- نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
- استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
- سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
- اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
- أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
