Note: The other languages of the website are Google-translated. Back to English

كيفية تصفية قائمة وحذف بقية الصفوف المخفية أو المرئية في إكسيل؟

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

احذف الصفوف المخفية في ورقة العمل النشطة برمز VBA
احذف الصفوف المرئية من القائمة المصفاة مع تحديد جميع الخلايا المرئية
احذف بسهولة الصفوف المخفية أو المرئية من القائمة المصفاة باستخدام Kutools for Excel


احذف الصفوف المخفية في ورقة العمل النشطة برمز VBA

سيُظهر لك هذا القسم رمز VBA لحذف الصفوف المخفية في الورقة النشطة. الرجاء القيام بما يلي.

1. قم بتنشيط ورقة العمل التي تحتاجها لحذف الصفوف المخفية ، اضغط قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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

كود فبا: حذف الصفوف المخفية

Sub RemoveHiddenRows()
	Dim xRow As Range
	Dim xRg As Range
	Dim xRows As Range
	On Error Resume Next
	Set xRows = Intersect(ActiveSheet.Range("A:A").EntireRow, ActiveSheet.UsedRange)
	If xRows Is Nothing Then Exit Sub
		For Each xRow In xRows.Columns(1).Cells
			If xRow.EntireRow.Hidden Then
				If xRg Is Nothing Then
					Set xRg = xRow
				Else
					Set xRg = Union(xRg, xRow)
				End If
			End If
		Next
		If Not xRg Is Nothing Then
			MsgBox xRg.Count & " hidden rows have been deleted", , "Kutools for Excel"
			xRg.EntireRow.Delete
		Else
			MsgBox "No hidden rows found", , "Kutools for Excel"
		End If
	End Sub

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

doc حذف الراحة 1

خلاف ذلك ، سوف تحصل على مربع الحوار التالي بعد تشغيل الكود.

doc حذف الراحة 1

ملاحظة: لا يمكن لرمز VBA أعلاه حذف الصفوف المخفية من القائمة المصفاة فحسب ، بل يمكنه أيضًا حذف الصفوف المخفية التي أخفيتها يدويًا من قبل.


حذف الصفوف المرئية من القائمة المصفاة مع تحديد جميع الخلايا المرئية ميزة

لحذف الصفوف المرئية من القائمة المصفاة ، يرجى القيام بما يلي.

1. حدد جميع الصفوف التي تمت تصفيتها ، واضغط على F5 مفتاح لفتح إذهب إلى مربع الحوار ، ثم انقر فوق خاص زر. انظر لقطة الشاشة:

doc حذف الراحة 1

2. في ال انتقل إلى خاص مربع الحوار، والتحقق من الخلايا المرئية فقط الخيار ، ثم انقر فوق OK .

doc حذف الراحة 1

3. الآن تم تحديد جميع الصفوف المرئية ، انقر بزر الماوس الأيمن فوق التحديد ، ثم انقر فوق حذف الصفوف.

doc حذف الراحة 1

حتى الآن ، يتم حذف جميع الصفوف المرئية من القائمة المصفاة.


احذف بسهولة الصفوف المخفية أو المرئية من القائمة المصفاة باستخدام Kutools for Excel

قد لا تكون الطريقتان المذكورتان أعلاه هي الحلول المرغوبة للعديد من مستخدمي Excel ، وهنا نقدم لك أداة مفيدة. مع ال حذف الصفوف والأعمدة المخفية (المرئية) فائدة كوتولس ل إكسيل، يمكنك بسهولة حذف الصفوف المخفية في النطاق / الأوراق المحددة أو الورقة النشطة أو جميع أوراق العمل في Excel.

قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.

1. إذا كنت تريد فقط حذف الصفوف المخفية أو المرئية من قائمة تمت تصفيتها ، فيرجى تحديد النطاق الذي تمت تصفيته يدويًا ، ثم النقر فوق كوتولس > حذف > حذف الصفوف والأعمدة المخفية (المرئية). انظر لقطة الشاشة:

2. في ال حذف الصفوف والعمود المخفي (المرئي) مربع الحوار ، والحفاظ على في النطاق المحدد المحدد في إنظر في القائمة المنسدلة (يمكنك تحديد خيارات أخرى حسب حاجتك) ، تحقق من الصفوف الخيار في نوع الحذف القسم ، وفي النوع التفصيلي القسم ، تحقق صفوف مرئية or الصفوف المخفية خيار ما تحتاجه. وأخيرًا انقر فوق ملف OK .

3. ثم ينبثق مربع حوار لإخبارك بعدد الصفوف التي تم حذفها ، يرجى النقر فوق OK .

  إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30-يوم) من هذه الأداة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.


احذف الصفوف المخفية أو المرئية من القائمة التي تمت تصفيتها باستخدام Kutools for Excel


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

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

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (7)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إعادة الملاحظات: الماكرو لعمليات حذف الصفوف المخفية - يستغرق هذا وقتًا طويلاً للتشغيل على 900 ألف صف ليكون مفيدًا. أكثر من ساعتين على OC'd Threadripper 2X ولا يزال قيد التشغيل (كان لابد من إنهاء المهمة). أي طريقة لتحسينه لاستخدام نوى متعددة أم أن هذا أحد قيود VBA؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
تم تحسين الكود. يرجى المحاولة. شكرا لك على تعليقك.

Sub RemoveHiddenRows ()
Dim xFlag كما منطقي
خافت xStr ، xTemp كسلسلة
Dim xDiv، xMod As Long
خافت أنا ، xCount ، xRows طويلة
Dim xRg، xCell، xDRg As Range
خافت xArr () كسلسلة
على خطأ استئناف التالي
Application.ScreenUpdating = خطأ
Application.EnableEvents = خطأ
قم بتعيين xRg = Intersect (ActiveSheet.Range ("A: A"). EntireRow ، ActiveSheet.UsedRange)
إذا كان xRg لا شيء ، فاخرج من Sub
xRows = xRg.Rows.Count
تعيين xRg = xRg (1)
xFlag = صحيح
xTemp = ""
xCount = 0
لأني = 1 إلى xRows
تعيين xCell = xRg.Offset (I - 1، 0)
افعل بينما xFlag
إذا كان xCell.EntireRow.Hidden ثم
xStr = xCell.Address
xFlag = خطأ
آخر
GoTo Ctn
إنهاء حالة
أنشوطة
إذا كان xCell.EntireRow.Hidden ثم
xTemp = xStr & "،" & xCell.Address
إنهاء حالة
إذا كان Len (xTemp)> 171 ثم
xCount = xCount + 1
ReDim Preserve xArr (1 To xCount)
xArr (xCount) = xStr
xStr = xCell.Address
آخر
xStr = xTemp
إنهاء حالة
الشركة التونسية للملاحة:
التالى
xCount = xCount + 1
ReDim Preserve xArr (1 To xCount)
xArr (xCount) = xStr
بالنسبة إلى I = xCount To 1 Step -1
إذا كنت = 1 ثم
xStr = Mid (xArr (I)، InStr (xArr (I)، "،") + 1، Len (xArr (I)) - InStr (xArr (I)، "،"))
آخر
xStr = xArr (I)
إنهاء حالة
إذا كان xDRg لا شيء إذن
تعيين xDRg = النطاق (xStr)
آخر
تعيين xDRg = Union (xDRg، Range (xStr))
إنهاء حالة
إذا كان (Len (xDRg.Address)> = 244) أو (xCount = 1) ثم
xDRg.EntireRow.Delete
تعيين xDRg = لا شيء
إنهاء حالة
التالى
Application.EnableEvents = صحيح
Application.ScreenUpdating = ترو
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
رائع شكرا لك! سنراجع في فرصتي التالية / أحتاج إلى هذا والرد مرة أخرى.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عمل كود VBA لحذف الصفوف المخفية بشكل مثالي بدون تلاعب. شكرا!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا للمعلومة. لقد كان هذا مفيدًا. من فضلك هل هناك طريقة للتصفية والحذف لأرقام محددة في صفوف تصل إلى مليون؟ هل يمكن تعديل الكود أعلاه للقيام بذلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
آسف لم تختبر الكود في مثل هذه البيانات الصفية الضخمة. ربما يمكنك عمل نسخة من بياناتك واختبار ما إذا كان الرمز يمكن أن يعمل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، رمز VBA رائع ومفيد.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL