एक्सेल में सेल वैल्यू के आधार पर पूरी पंक्ति को सक्रिय शीट के नीचे कैसे ले जाएं?
एक्सेल में सेल वैल्यू के आधार पर पूरी पंक्ति को सक्रिय शीट के नीचे ले जाने के लिए, कृपया इस आलेख में वीबीए कोड आज़माएं।
वीबीए कोड के साथ सेल वैल्यू के आधार पर पूरी पंक्ति को सक्रिय शीट के नीचे ले जाएं
वीबीए कोड के साथ सेल वैल्यू के आधार पर पूरी पंक्ति को सक्रिय शीट के नीचे ले जाएं
उदाहरण के लिए, जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है, यदि कॉलम सी में किसी सेल में एक निश्चित मान "संपन्न" है, तो पूरी पंक्ति को वर्तमान शीट के नीचे ले जाएं। कृपया निम्नानुसार करें.
1। दबाएँ ऑल्ट+ F11 खोलने के लिए एक साथ कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल. फिर नीचे दिए गए VBA कोड को कॉपी करके विंडो में पेस्ट करें।
वीबीए कोड: सेल वैल्यू के आधार पर पूरी पंक्ति को सक्रिय शीट के नीचे ले जाएं
Sub MoveToEnd()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xEndRow As Long
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
lOne:
Set xRg = Application.InputBox("Select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Or xRg.Areas.Count > 1 Then
MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
GoTo lOne
End If
xEndRow = xRg.Rows.Count + xRg.Row
Application.ScreenUpdating = False
For I = xRg.Rows.Count To 1 Step -1
If xRg.Cells(I) = "Done" Then
xRg.Cells(I).EntireRow.Cut
Rows(xEndRow).Insert Shift:=xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
नोट: वीबीए कोड में, "करेंकिया गया” वह सेल मान है जिसके आधार पर आप पूरी पंक्ति को स्थानांतरित करेंगे। आप इसे आवश्यकतानुसार बदल सकते हैं।
3। दबाएं F5 कोड को चलाने के लिए कुंजी, फिर पॉपिंग में एक्सेल के लिए कुटूल संवाद बॉक्स में, उस स्तंभ श्रेणी का चयन करें जिसमें निश्चित मान मौजूद है, फिर क्लिक करें OK बटन.
क्लिक करने के बाद OK बटन, पूरी पंक्ति जिसमें निर्दिष्ट कॉलम में "संपन्न" मान शामिल है, स्वचालित रूप से डेटा रेंज के नीचे ले जाया जाता है।
संबंधित लेख:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!