मुख्य सामग्री पर जाएं

एक्सेल में किसी सूची को कैसे फ़िल्टर करें और बाकी छिपी या दृश्यमान पंक्तियों को कैसे हटाएं?

लेखक: सिलुविया अंतिम संशोधित: 2020-04-28

फ़िल्टर की गई सूची के लिए, आपको केवल उपयोगी डेटा रखने के लिए छिपी हुई या दृश्यमान पंक्तियों को हटाने की आवश्यकता हो सकती है। इस लेख में, हम आपको एक्सेल में फ़िल्टर की गई सूची की बाकी छिपी या दिखाई देने वाली पंक्तियों को हटाने के तरीके दिखाएंगे।

VBA कोड के साथ सक्रिय वर्कशीट में छिपी हुई पंक्तियाँ हटाएँ
सभी दृश्यमान कक्षों का चयन करके फ़िल्टर की गई सूची की दृश्यमान पंक्तियाँ हटाएँ
एक्सेल के लिए कुटूल के साथ फ़िल्टर की गई सूची की छिपी या दृश्यमान पंक्तियों को आसानी से हटाएं


VBA कोड के साथ सक्रिय वर्कशीट में छिपी हुई पंक्तियाँ हटाएँ

यह अनुभाग आपको सक्रिय शीट में छिपी पंक्तियों को हटाने के लिए VBA कोड दिखाएगा। कृपया निम्नानुसार करें.

1. छुपी हुई पंक्तियों को हटाने के लिए आपको जिस वर्कशीट की आवश्यकता है उसे सक्रिय करें, दबाएँ ऑल्ट + F11 खोलने के लिए एक साथ कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2. एप्लिकेशन विंडो के लिए Microsoft Visual Basic में, क्लिक करें सम्मिलित करें > मॉड्यूल. और फिर नीचे दिए गए VBA कोड को कॉपी करके मॉड्यूल विंडो में पेस्ट करें।

वीबीए कोड: छिपी हुई पंक्तियाँ हटाएँ

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

अन्यथा, कोड चलाने के बाद आपको निम्नलिखित डायलॉग बॉक्स मिलेगा।

दस्तावेज़ बाकी हटाएं 1

नोट: उपरोक्त वीबीए कोड न केवल फ़िल्टर की गई सूची की छिपी हुई पंक्तियों को हटा सकता है, बल्कि उन छिपी हुई पंक्तियों को भी हटा सकता है जिन्हें आपने पहले मैन्युअल रूप से छिपाया है।


सभी दृश्यमान कक्षों की सुविधा का चयन करके फ़िल्टर की गई सूची की दृश्यमान पंक्तियाँ हटाएँ

फ़िल्टर की गई सूची की दृश्य पंक्तियों को हटाने के लिए, कृपया निम्नानुसार कार्य करें।

1. सभी फ़िल्टर की गई पंक्तियों का चयन करें, और दबाएँ F5 कुंजी को खोलने के लिए करने के लिए जाओ डायलॉग बॉक्स, फिर क्लिक करें विशिष्ट बटन। स्क्रीनशॉट देखें:

दस्तावेज़ बाकी हटाएं 1

2। में जाने के लिए विशेष संवाद बॉक्स में, चेक करें केवल दृश्यमान कोशिकाएं विकल्प, और फिर क्लिक करें OK बटन.

दस्तावेज़ बाकी हटाएं 1

3. अब सभी दृश्यमान पंक्तियाँ चयनित हैं, चयन पर राइट क्लिक करें और फिर क्लिक करें पंक्ति हटाएं.

दस्तावेज़ बाकी हटाएं 1

अब तक, सभी दृश्यमान पंक्तियाँ फ़िल्टर की गई सूची से हटा दी गई हैं।


एक्सेल के लिए कुटूल के साथ फ़िल्टर की गई सूची की छिपी या दृश्यमान पंक्तियों को आसानी से हटाएं

उपरोक्त दो विधियां कई एक्सेल उपयोगकर्ताओं के लिए वांछित समाधान नहीं हो सकती हैं, यहां हम आपको एक उपयोगी टूल पेश करते हैं। उसके साथ छिपी हुई (दृश्यमान) पंक्तियाँ और कॉलम हटाएँ की उपयोगिता एक्सेल के लिए कुटूल, आप एक्सेल में चयनित रेंज/शीट, सक्रिय शीट या सभी वर्कशीट में छिपी हुई पंक्तियों को आसानी से हटा सकते हैं।

आवेदन करने से पहले एक्सेल के लिए कुटूल, कृपया सबसे पहले इसे डाउनलोड करें और इंस्टॉल करें.

1. यदि आप केवल फ़िल्टर की गई सूची की छिपी या दृश्य पंक्तियों को हटाना चाहते हैं, तो कृपया फ़िल्टर की गई श्रेणी को मैन्युअल रूप से चुनें, और फिर क्लिक करें कुटूल > मिटाना > छिपी हुई (दृश्यमान) पंक्तियाँ और कॉलम हटाएँ. स्क्रीनशॉट देखें:

2। में छिपी हुई (दृश्यमान) पंक्तियाँ और कॉलम हटाएँ संवाद बॉक्स, रखें चयनित रेंज में में चयनित यहां देखो ड्रॉप-डाउन सूची (आप अपनी आवश्यकता के अनुसार अन्य विकल्प चुन सकते हैं), जांचें पंक्तियाँ में विकल्प प्रकार हटाएँ अनुभाग, और में विस्तृत प्रकार अनुभाग, जाँच करें दृश्यमान पंक्तियाँ or छुपी हुई पंक्तियाँ विकल्प जैसा आपको चाहिए। और अंत में क्लिक करें OK बटन.

3. फिर एक डायलॉग बॉक्स पॉप अप होता है जो आपको बताता है कि कितनी पंक्तियाँ हटा दी गई हैं, कृपया क्लिक करें OK बटन.

  यदि आप इस उपयोगिता का निःशुल्क परीक्षण (30-दिन) चाहते हैं, कृपया इसे डाउनलोड करने के लिए क्लिक करें, और फिर उपरोक्त चरणों के अनुसार ऑपरेशन लागू करने के लिए जाएं।


एक्सेल के लिए कुटूल के साथ फ़िल्टर की गई सूची की छिपी या दृश्य पंक्तियों को हटाएं

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 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