كيف يمكن إخفاء عدة صفوف أو أعمدة فارغة في Excel دفعةً واحدة؟
غالبًا ما تحتوي أوراق عمل Excel على صفوف أو أعمدة فارغة قد تُعقّد بياناتك وتجعل قراءتها أكثر صعوبة. ويمكن أن يسهم إخفاء هذه الصفوف أو الأعمدة الفارغة في تحسين وضوح البيانات وعرضها بشكل أفضل. ويغطي هذا الدليل طرقًا مختلفة لإخفاء عدة صفوف أو أعمدة فارغة بسرعة وكفاءة.
إخفاء عدة صفوف فارغة أو أعمدة باستخدام كود VBA
إخفاء عدة صفوف فارغة أو أعمدة باستخدام KUTOOLS AI
حذف عدة صفوف فارغة أو أعمدة باستخدام Kutools لـ Excel
إخفاء عدة صفوف فارغة أو أعمدة بسرعة باستخدام كود VBA
يمكنك استخدام كود VBA التالي لإخفاء عدة صفوف أو أعمدة فارغة في ورقة العمل بسرعة وسهولة.
1. اضغط مع الاستمرار على مفتاحي «ALT» + "F11" لفتح نافذة «Microsoft Visual Basic for Applications».
2.انقر على «Insert» > «Module»، ثم الصق الكود التالي في نافذة «Module».
كود VBA: إخفاء عدة صفوف فارغة في ورقة العمل
Sub HideEmpties()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For I = 1 To xRg.Row + xRg.Rows.Count
If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
xRg.Rows(I).EntireRow.Hidden = True
End If
Next
End Sub
3. بعد ذلك، اضغط مفتاح "F5" لتشغيل هذا الكود، وستظهر لك نافذة منبثقة لتذكيرك بتحديد نطاق البيانات الذي تريد إخفاء الصفوف الفارغة فيه. انظر لقطة الشاشة:
4. ثم انقر على زر «موافق»، وسيتم إخفاء الصفوف الفارغة دفعةً واحدة. انظر لقطة الشاشة:
ملاحظة: لإخفاء عدة أعمدة فارغة، يُرجى تطبيق كود VBA التالي:
كود VBA: إخفاء عدة أعمدة فارغة في ورقة العمل
Sub HideEmpties()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For I = 1 To xRg.Column + xRg.Columns.Count
If Application.WorksheetFunction.CountA(xRg.Columns(I)) = 0 Then
xRg.Columns(I).EntireColumn.Hidden = True
End If
Next
End Sub
إخفاء عدة صفوف فارغة أو أعمدة باستخدام KUTOOLS AI
إذا كنت تبحث عن حلٍّ أسرع وأكثر أتمتة، فإن أداة «Kutools لـ Excel» توفّر لك ميزة مثالية لهذه المهمة. فباستخدام مساعد KUTOOLS AI، يكفي أن تصف متطلباتك بلغة طبيعية، وسيتولى KUTOOLS AI تنفيذ الباقي نيابةً عنك.
بعد تثبيت Kutools لـ Excel، انقر على «Kutools» > «مساعد الذكاء الاصطناعي» لفتح لوحة «مساعد KUTOOLS AI»، ثم اتبع الخطوات التالية في اللوحة:
- حدد نطاق البيانات الذي ترغب في استخدامه.
- بعد ذلك، اكتب المتطلَب في مربع الدردشة، مثل:
«إخفاء صفوف فارغة»: إخفاء عدة صفوف فارغة في التحديد
«إخفاء أعمدة فارغة»: إخفاء عدة أعمدة فارغة في التحديد - ثم اضغط مفتاح «Enter» أو انقر على زر «إرسال». سيقوم KUTOOLS AI بتحليل سؤالك، وبعد الانتهاء، انقر على زر «تنفيذ» للحصول على النتيجة.
حذف عدة صفوف فارغة أو أعمدة باستخدام Kutools لـ Excel
في هذا القسم، سأتحدث عن كيفية حذف عدة صفوف فارغة أو أعمدة غير مرغوب فيها ضمن نطاق أو ورقة عمل أو مصنف كامل. ويمكن لأداة «حذف الصفوف/الأعمدة المخفية (المرئية» من «Kutools لـ Excel» أن تساعدك في إنجاز هذه المهمة بأسرع وقت ممكن.)
بعد تثبيت Kutools لـ Excel، يُرجى اتباع الخطوات التالية:
1. حدد نطاق البيانات الذي تريد حذف الصفوف أو الأعمدة الفارغة منه، ثم انقر على «Kutools» > «Delete» > «حذف الصفوف/الأعمدة المخفية (المرئية)»، انظر لقطة الشاشة:
2. في مربع حوار «حذف الصفوف/الأعمدة المخفية (المرئية)»، اختر «النطاق المحدد» من القائمة المنسدلة «Look in» (يمكنك أيضًا اختيار خيار آخر من هذه القائمة حسب الحاجة)، وحدّد «Rows» أو «Columns» من قسم «نوع الحذف»، ثم اختر «صفوف فارغة» أو «أعمدة فارغة» ضمن قسم «النوع التفصيلي». انظر لقطة الشاشة:
3. ثم انقر على زر «موافق»، وسيتم حذف صفوف فارغة أو الأعمدة في التحديد دفعة واحدة. انظر لقطة الشاشة:
ملاحظة: باستخدام هذه الميزة، يمكنك حذف الصفوف أو الأعمدة المخفية أو المرئية بحسب حاجتك—سواءً ضمن التحديد أو ورقة العمل أو المصنف بأكمله.
الخاتمة
إذا كنت ترغب في إخفاء الصفوف أو الأعمدة الفارغة تلقائيًا، يمكنك استخدام كود VBA، الذي يُمكّنك من تصفية وإخفاء الصفوف والأعمدة الفارغة بسرعة وفق قواعد محددة مسبقًا. أما إذا لم تكن ملمًّا بـ VBA، فيوفّر لك Kutools لـ Excel حلاً أكثر بديهية، يسمح لك بإخفاء أو حذف الصفوف والأعمدة الفارغة بنقرة واحدة دون الحاجة إلى كتابة أي كود، مما يعزز كفاءة عملك بشكل ملحوظ. وباختيارك الطريقة الأنسب لاحتياجاتك، يمكنك تحسين إدارة جداول 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل