Excel में सेल की सभी रिक्त पंक्तियाँ या केवल पहली पंक्ति को कैसे हटाएँ?
आपको कक्षों में रिक्त स्थान के साथ मिश्रित अनेक पंक्तियों वाली एक कार्यपुस्तिका प्राप्त हो सकती है। सेल में इन रिक्त पंक्तियों को कैसे हटाएं? और केवल पहली पंक्ति को हटाने के बारे में क्या ख्याल है? यह लेख आपको चरण दर चरण इससे निपटने में मदद करेगा.
VBA कोड वाले कक्षों में सभी रिक्त पंक्तियाँ हटाएँ
VBA कोड वाले कक्षों में केवल पहली पंक्ति हटाएँ
VBA कोड वाले कक्षों में सभी रिक्त पंक्तियाँ हटाएँ
जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है, कक्षों में सभी रिक्त पंक्तियों को हटाने के लिए, आप इसे पूरा करने के लिए निम्नलिखित VBA कोड चला सकते हैं।
1। दबाएं ऑल्ट + F11 आपके कीबोर्ड पर कुंजियाँ, फिर यह खुलता है अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल. फिर नीचे दिए गए VBA कोड को कॉपी और पेस्ट करें मॉड्यूल खिड़की.
VBA कोड: कक्षों में सभी रिक्त पंक्तियाँ हटाएँ
Sub DoubleReturn()
Dim xRng As Range, xCell As Range
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
For I = 1 To Len(xCell) - Len(WorksheetFunction.Substitute(xCell, Chr(10), ""))
xCell = Replace(xCell, Chr(10) + Chr(10), Chr(10))
Next
Next
End Sub
3। दबाएं F5 कोड चलाने की कुंजी. फिर रिक्त पंक्तियों वाले कक्षों का चयन करें जिन्हें आप हटा देंगे एक्सेल के लिए कुटूल संवाद बकस। और अंत में क्लिक करें OK बटन.
फिर आप देख सकते हैं कि सभी रिक्त पंक्तियाँ निर्दिष्ट कक्षों से हटा दी गई हैं जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है। पाठ अभी भी विभिन्न पंक्तियों में स्थित हैं।
VBA कोड वाले कक्षों में केवल पहली पंक्ति हटाएँ
जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है, सेल A2 और A3 में पहली पंक्ति को हटाने के लिए, निम्नलिखित VBA कोड मदद कर सकता है।
1। दबाएं ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल. फिर नीचे दिए गए VBA कोड को कॉपी और पेस्ट करें मॉड्यूल खिड़की.
VBA कोड: कक्षों में केवल पहली पंक्ति हटाएँ
Option Explicit
Sub RemoveFirstLine(ByRef Target As Range)
Dim xCell As Range
For Each xCell In Target.Cells
xCell.Value = Right(xCell.Value, Len(xCell.Value) - InStr(1, xCell.Value, vbLf))
Next
End Sub
Sub StartRemove()
Dim xRng As Range
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
RemoveFirstLine xRng
End Sub
3। दबाएं F5 कोड चलाने की कुंजी. पॉप अप में एक्सेल के लिए कुटूल संवाद बॉक्स में, कृपया उन कक्षों का चयन करें जिन्हें आपको केवल पहली पंक्ति को हटाने की आवश्यकता है, और फिर क्लिक करें OK बटन.
फिर आप देख सकते हैं कि सभी पहली पंक्तियाँ निर्दिष्ट सेल से हटा दी गई हैं जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है।
संबंधित लेख:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!