نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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

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

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

حذف الصفوف الخفية أو المرئية من القائمة التي تمت تصفيتها مع كوتولس ل إكسيل

علامة تبويب Office تمكين التحرير والتصفح في Tabbed ، وجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ الأكثر استخدامًا أو تعقيدًا والمخططات وأي شيء آخر إلى مفضلاتك ، ثم أعد استخدامها سريعًا في المستقبل.
  • أكثر من ميزات نص 20: استخراج الرقم من سلسلة النص ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية ...
  • دمج الأدوات: العديد من المصنفات والأوراق في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقدان البيانات ؛ دمج الصفوف المكررة ومجموع ...
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد إلى ملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة ...
  • لصق الطفر الصفوف المخفية / المصفاة ؛ عدد ومبلغ بواسطة لون الخلفية. إنشاء قائمة بريدية و إرسال رسائل البريد الإلكتروني حسب قيمة الخلية...
  • فلتر سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ فرز حسب الأسبوع ، اليوم ، التردد وغير ذلك ؛ تصفية / فلترة بواسطة جريئة ، الصيغ ، التعليق ...
  • أكثر من ميزات 300 القوية ؛ يعمل مع Office 2007-2019 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.

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


سيعرض هذا القسم رمز فبا لحذف الصفوف المخفية في ورقة نشطة. يرجى القيام على النحو التالي.

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 زر لحذف الصفوف المخفية. انظر لقطة الشاشة:

دوك حذف بقية شنومكس

وإلا، سوف تحصل على مربع الحوار التالي بعد تشغيل التعليمات البرمجية.

دوك حذف بقية شنومكس

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


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

لحذف الصفوف المرئية من القائمة التي تمت تصفيتها، يرجى إجراء ما يلي.

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

دوك حذف بقية شنومكس

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

دوك حذف بقية شنومكس

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

دوك حذف بقية شنومكس

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


حذف الصفوف الخفية أو المرئية من القائمة التي تمت تصفيتها مع كوتولس ل إكسيل

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

كوتولس ل إكسيل : مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس.

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

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

دوك حذف بقية شنومكس

3. ثم مربع الحوار للملوثات العضوية الثابتة لاقول لكم كم تم حذف الصفوف، الرجاء النقر فوق OK .

دوك حذف بقية شنومكس


حذف الصفوف الخفية أو المرئية من القائمة التي تمت تصفيتها مع كوتولس ل إكسيل

كوتولس ل إكسيل يتضمن أكثر من أدوات إكسوم إكسيل مفيد. مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تنزيل النسخة التجريبية المجانية الآن!


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

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

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Bill · 3 months ago
    VBA code to Delete hidden rows worked perfectly with no fiddling. THANK YOU!!
  • To post as a guest, your comment is unpublished.
    Maximillian Eckemoff · 1 years ago
    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?
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      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