Excel में सेल मान के आधार पर पंक्ति को स्वचालित रूप से कैसे सम्मिलित करें?
VBA के साथ सेल मान के आधार पर नीचे पंक्ति डालें
एक्सेल के लिए कुटूल के साथ सेल वैल्यू के आधार पर ऊपर पंक्ति डालें
VBA के साथ सेल मान के आधार पर नीचे पंक्ति डालें
वीबीए चलाकर सेल मान के आधार पर पंक्ति सम्मिलित करने के लिए, कृपया नीचे दिए गए चरणों का पालन करें:
1। दबाएँ ऑल्ट + F11 एक साथ चाबियाँ, और ए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की बाहर निकलती है.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, फिर पॉपिंग पर VBA कोड के नीचे पेस्ट करें मॉड्यूल खिड़की.
वीबीए: सेल मान के आधार पर नीचे पंक्ति डालें।
Sub BlankLine()
'Updateby20150203
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step - 1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "0" Then
Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
3। क्लिक करें F5 कुंजी या रन बटन, एक संवाद पॉप आउट होता है, और शून्य वाले कॉलम का चयन करें। स्क्रीनशॉट देखें:
4। क्लिक करें OK. फिर शून्य मान से नीचे रिक्त पंक्तियाँ डाली जाएंगी।
टिप:
1. यदि आप अन्य मान के आधार पर पंक्तियाँ सम्मिलित करना चाहते हैं, तो आप बदल सकते हैं 0 वीबीए में आप जो भी मूल्य चाहते हैं: यदि Rng.Value = "0" तो.
2. यदि आप शून्य या अन्य मान से ऊपर पंक्तियाँ सम्मिलित करना चाहते हैं, तो आप नीचे दिए गए VBA कोड का उपयोग कर सकते हैं।
VBA: शून्य मान से ऊपर पंक्ति सम्मिलित करें:
Sub BlankLine()
'Updateby20150203
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step - 1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "0" Then
Rng.EntireRow.Insert Shift: = xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
एक्सेल के लिए कुटूल के साथ सेल वैल्यू के आधार पर ऊपर पंक्ति डालें
यदि आप वीबीए से परिचित नहीं हैं, तो आप कोशिश कर सकते हैं एक्सेल के लिए कुटूल's विशिष्ट कक्षों का चयन करें उपयोगिता, और फिर ऊपर पंक्तियाँ डालें।
एक्सेल के लिए कुटूल, से अधिक के साथ 300 सुविधाजनक कार्य, आपके कार्यों को और अधिक आसान बनाते हैं। | ||
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया नीचे दिए अनुसार कार्य करें:(अब एक्सेल के लिए नि:शुल्क कुटूल डाउनलोड करें!)
1. उस सूची का चयन करें जिसमें से आप विशिष्ट कक्षों का पता लगाना चाहते हैं और क्लिक करें कुटूल > चुनते हैं > विशिष्ट कक्षों का चयन करें. स्क्रीनशॉट देखें:
2. पॉपिंग डायलॉग में, चेक करें पूरी पंक्ति विकल्प, और फिर चयन पर जाएं बराबरी से विशिष्ट प्रकार सूची बनाएं, और फिर वह मान दर्ज करें जिसे आप सही टेक्स्टबॉक्स में ढूंढना चाहते हैं। स्क्रीनशॉट देखें:
3। क्लिक करें Ok, और एक संवाद आपको चयनित पंक्तियों की संख्या याद दिलाने के लिए पॉप अप होता है, बस इसे बंद करें।
4. कर्सर को एक चयनित पंक्ति पर रखें, और चयन करने के लिए राइट क्लिक करें सम्मिलित करें संदर्भ मेनू से. स्क्रीनशॉट देखें:
अब पंक्तियों को एक विशिष्ट मान के आधार पर ऊपर डाला गया है।
सेल वैल्यू के आधार पर ऊपर पंक्तियाँ डालें
संबंधित लेख:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!