كيف يمكن إزالة الخلايا أو الصفوف التي لا تكون بخط عريض في Excel؟
افترض أن لديك نطاقًا من البيانات يحتوي على عريض وليس عريض كما هو موضح في لقطة الشاشة أدناه، والآن تحتاج إلى إزالة الخلايا أو الصفوف إذا لم تكن بخط عريض. بدلاً من إزالة الخلايا غير عريض واحدة تلو الأخرى يدويًا، يقدم لك هذا البرنامج التعليمي حيلًا لحلها بسرعة في Excel.
إزالة الصفوف إذا لم تكن بخط عريض باستخدام VBA
إزالة الخلايا إذا لم تكن بخط عريض باستخدام البحث والاستبدال ومساعد النطاق
إزالة الصفوف/الخلايا إذا لم تكن بخط عريض باستخدام Kutools لـ Excel 
v إزالة الصفوف إذا لم تكن بخط عريض باستخدام VBA
لإزالة الصفوف التي ليست بخط عريض، يمكنك استخدام كود VBA للتعامل مع هذه المهمة بسهولة.
1. اضغط علىAlt + F11 لفتح نافذةمايكروسوفت فيجوال بيسيك للتطبيقات.
2. انقر علىإدراج > وحدة نمطية، ثم الصق كود VBA أدناه في نافذةالوحدة النمطيةالجديدة.
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 Sub3. اضغط علىF5 لتشغيل كود VBA. في مربع الحوارKutools لـ Excelالمنبثق، حدد النطاق الذي تريد إزالة صفوفه غير العريضة، ثم انقر على زرموافق.
بعد ذلك، سترى أن الصفوف التي لا تحتوي على نص عريض قد تمت إزالتها.
ملاحظة: يمكن حذف الصفوف فقط عندما تكون جميع الخلايا في الصف نفسه غير مدمجة.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
إزالة الخلايا إذا لم تكن بخط عريض باستخدام البحث والاستبدال ومساعد النطاق
إذا كنت تريد فقط حذف محتويات الخلايا غير العريضة، يمكنك استخدام دالة البحث والاستبدال لتحديد الخلايا العريضة أولًا، ثم استخدام أداةKutools لـ Excelمعمساعد النطاقلعكس التحديد إلى الخلايا غير العريضة، ثم حذف المحتويات.
1. حدد نطاق البيانات الذي تريد إزالة الخلايا غير العريضة منه، ثم اضغط علىCtrl + F لفتح مربع حوارالبحث والاستبدال، وانقر بعد ذلك على زرخيارات. راجع لقطة الشاشة:
2. انقر علىتنسيقللانتقال إلى مربع حوارتنسيق البحث، ثم في تبويبالخط، اخترعريضمن قائمةنمط الخط. راجع لقطة الشاشة:
3. انقر علىموافق > بحث عن الكل، وسيتم عرض جميع الخلايا العريضة في مربع حوارالبحث والاستبدال. بعد ذلك، اضغط علىCtrl + A لتحديدها جميعًا، ثم أغلق مربع حوارالبحث والاستبدال. راجع لقطة الشاشة:
4. بعد ذلك، احتفظ بهذه الخلايا مُحدَّدة، ثم انقر علىKutools > تحديد > مساعد النطاق. راجع لقطة الشاشة:
5. في مربع الحوار المنبثق، اختر أولاً خيارعكس التحديد، ثم حدد نطاق البيانات الأصلي. الآن سترى أن التحديد قد انعكس! راجع لقطة الشاشة:
6. انقر علىإغلاق، ثم اضغط على مفتاحDelete لإزالة محتويات الخلايا غير العريضة.
إزالة الصفوف/الخلايا إذا لم تكن بخط عريض باستخدام Kutools لـ Excel
الطرق السابقة ليست سهلة بما يكفي! وفي هذه الحالة، يمكنك استخدام أداةKutools لـ Excelمع ميزةتحديد الخلايا بنفس التنسيقلتحديد الخلايا غير العريضة بسرعة، ثم حذفها.
بعدالتثبيت المجاني لـKutools لـ Excel، يُرجى اتباع الخطوات التالية:
1. حدد نطاق البيانات المطلوبة، ثم انقر علىKutools > تحديد > تحديد الخلايا بنفس التنسيق. راجع لقطة الشاشة:
2. في مربع الحوار المنبثق، انقر على زرتحديد التنسيق من الخليةلاختيار خلية غير عريضة من نطاق البيانات، ثم حدد خيارعريضفقط من القائمة أدناه في قسم الخط. راجع لقطة الشاشة:
3. انقر علىموافق، وسيظهر مربع حوار يُذكّرك بعدد الخلايا المحددة؛ فقط انقر علىنعملإغلاقه.
الآن، بعد أن تم تحديد جميع الخلايا غير العريضة، اضغط على مفتاحDelete لإزالة محتوياتها. أو إذا كنت ترغب في حذف الصفوف غير العريضة بالكامل، فانقر بزر الماوس الأيمن على أيٍّ من الخلايا المحددة، ثم اخترحذف > الصف بأكمله. راجع لقطات الشاشة:
عرض توضيحي: إزالة الخلايا/الصفوف إذا لم تكن بخط عريض
مقالات ذات صلة:
- كيف يمكن تحويل الروابط التشعبية إلى نص عادي في Excel؟
- كيف تحسب الخلايا التي تبدأ أو تنتهي بنصٍ معين في Excel؟
- كيف تحسب التكرارات وتزيلها من قائمة في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل