انتقل إلى المحتوى الرئيسي

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

بالنسبة إلى القائمة المصفاة ، قد تحتاج إلى حذف الصفوف المخفية أو المرئية من أجل الاحتفاظ بالبيانات المفيدة فقط. في هذه المقالة ، سوف نعرض لك طرق حذف باقي الصفوف المخفية أو المرئية من قائمة تمت تصفيتها في 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 AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi this VBA code is awesome useful.
This comment was minimized by the moderator on the site
Thanks for the info. This has been instructive. Please is there a way to filter and delete for specific numbers in rows of up to 1 million? Can the code above be modified to do so?
This comment was minimized by the moderator on the site
Hi,
Sorry did not test the code in such huge row data. Maybe you can make a copy of your data and test if the code can work.
This comment was minimized by the moderator on the site
VBA code to Delete hidden rows worked perfectly with no fiddling. THANK YOU!!
This comment was minimized by the moderator on the site
Feedback re: the macro for hidden row deletions - this takes too long to run on 900k rows to be useful. 2+ hours on an OC'd Threadripper 1950X and still running (had to end task). Any way to optimize it to use multiple cores or is this a VBA limitation?
This comment was minimized by the moderator on the site
Hi,
The code has been optimized. Please have a try. Thank you for your comment.

Sub RemoveHiddenRows()
Dim xFlag As Boolean
Dim xStr, xTemp As String
Dim xDiv, xMod As Long
Dim I, xCount, xRows As Long
Dim xRg, xCell, xDRg As Range
Dim xArr() As String
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
Set xRg = Intersect(ActiveSheet.Range("A:A").EntireRow, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
Set xRg = xRg(1)
xFlag = True
xTemp = ""
xCount = 0
For I = 1 To xRows
Set xCell = xRg.Offset(I - 1, 0)
Do While xFlag
If xCell.EntireRow.Hidden Then
xStr = xCell.Address
xFlag = False
Else
GoTo Ctn
End If
Loop
If xCell.EntireRow.Hidden Then
xTemp = xStr & "," & xCell.Address
End If
If Len(xTemp) > 171 Then
xCount = xCount + 1
ReDim Preserve xArr(1 To xCount)
xArr(xCount) = xStr
xStr = xCell.Address
Else
xStr = xTemp
End If
Ctn:
Next
xCount = xCount + 1
ReDim Preserve xArr(1 To xCount)
xArr(xCount) = xStr
For I = xCount To 1 Step -1
If I = 1 Then
xStr = Mid(xArr(I), InStr(xArr(I), ",") + 1, Len(xArr(I)) - InStr(xArr(I), ","))
Else
xStr = xArr(I)
End If
If xDRg Is Nothing Then
Set xDRg = Range(xStr)
Else
Set xDRg = Union(xDRg, Range(xStr))
End If
If (Len(xDRg.Address) >= 244) Or (xCount = 1) Then
xDRg.EntireRow.Delete
Set xDRg = Nothing
End If
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
Awesome, thank you! Will review at my next opportunity / need for this and reply back.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations