एक्सेल में विशिष्ट टेक्स्ट के ऊपर रिक्त पंक्ति कैसे डालें?

जब आप वर्कशीट पर काम करते हैं, तो क्या आपने कभी किसी कॉलम में किसी विशिष्ट टेक्स्ट के ऊपर रिक्त पंक्ति डालने का प्रयास किया है? उदाहरण के लिए, कॉलम ए में कुछ नाम हैं, अब, मैं उन कक्षों के ऊपर रिक्त पंक्तियाँ सम्मिलित करना चाहता हूँ जिनमें "माइक" नाम है जैसा कि बाएँ स्क्रीनशॉट में दिखाया गया है, हो सकता है, आपके लिए एक्सेल में इस कार्य को हल करने का कोई सीधा तरीका न हो . इस लेख में, मैं एक्सेल में इस काम से निपटने के लिए कुछ अच्छी युक्तियों के बारे में बात करूंगा।

VBA कोड के साथ विशिष्ट पाठ के ऊपर रिक्त पंक्ति डालें

एक्सेल के लिए कुटूल के साथ विशिष्ट पाठ के ऊपर खाली पंक्ति डालें

VBA कोड के साथ विशिष्ट पाठ के ऊपर रिक्त पंक्ति डालें

विशिष्ट पाठ के ऊपर रिक्त पंक्ति को मैन्युअल रूप से एक-एक करके सम्मिलित करने से बहुत समय बर्बाद होगा, यहाँ, मैं आपके लिए एक VBA कोड बनाऊँगा ताकि आप विशिष्ट सेल मान के ऊपर रिक्त पंक्ति को एक बार में सम्मिलित कर सकें।

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

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और फिर निम्नलिखित मैक्रो को इसमें पेस्ट करें मॉड्यूल खिड़की।

वीबीए कोड: विशिष्ट पाठ के ऊपर तुरंत रिक्त पंक्ति डालें

Sub test1()
'updateby Extendoffice
    Dim i As Long
    Dim xLast As Long
    Dim xRng As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = Application.ActiveWindow.RangeSelection.Address
    Set xRng = Application.InputBox("please select the column with specific text:", "Kutools for Excel", xTxt, , , , , 8)
    If xRng Is Nothing Then Exit Sub
    If (xRng.Columns.Count > 1) Then
        MsgBox "the selected range must be one column", , "Kutools for Excel"
        Exit Sub
    End If
    xLast = xRng.Rows.Count
    For i = xLast To 1 Step -1
      If InStr(1, xRng.Cells(i, 1).Value, "Mike") > 0 Then
        Rows(xRng.Cells(i, 1).Row).Insert shift:=xlDown
      End If
    Next
End Sub

3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक डायलॉग बॉक्स आपको कॉलम डेटा का चयन करने की याद दिलाने के लिए पॉप आउट होगा जिसमें विशिष्ट टेक्स्ट है जिसे आप ऊपर पंक्ति में सम्मिलित करना चाहते हैं, स्क्रीनशॉट देखें:

4। और फिर क्लिक करें OK बटन, रिक्त पंक्तियाँ विशिष्ट पाठ "माइक" के ऊपर डाली गई हैं।

नोट: उपरोक्त कोड में, आप टेक्स्ट मान को बदल सकते हैं "माइक"किसी भी अन्य मान के लिए जो आप स्क्रिप्ट से चाहते हैं यदि InStr(1, xRng.Cells(i, 1).Value, "Mike") > 0 फिर.

एक्सेल के लिए कुटूल के साथ विशिष्ट पाठ के ऊपर खाली पंक्ति डालें

यदि आपके पास एक्सेल के लिए कुटूल, के साथ अपने विशिष्ट कक्षों का चयन करें सुविधा, आप पहले निर्दिष्ट सेल मानों का चयन कर सकते हैं, और फिर रिक्त पंक्तियों को एक साथ सम्मिलित करने के लिए एक्सेल की इन्सर्ट शीट रो उपयोगिता को लागू कर सकते हैं।

स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया निम्नानुसार करें:

1. वह डेटा श्रेणी चुनें जिसका आप उपयोग करना चाहते हैं.

2। तब दबायें कुटूल > चुनते हैं > विशिष्ट कक्षों का चयन करें, स्क्रीनशॉट देखें:

3. में विशिष्ट कक्षों का चयन करें संवाद बॉक्स में, चयन करें सेल नीचे चयन प्रकार, और फिर उन मानदंडों को निर्दिष्ट करें जिनकी आपको आवश्यकता है विशिष्ट प्रकार अनुभाग, इस मामले में, मैं चुनूंगा बराबरी से विशिष्ट प्रकार, और वह नाम दर्ज करें जिसे मैं चुनना चाहता हूं, स्क्रीनशॉट देखें:

4। तब दबायें Ok बटन, सभी सेल जिनका मान माइक है, एक ही बार में चुने गए हैं, स्क्रीनशॉट देखें:

5. विशिष्ट टेक्स्ट सेल का चयन करने के बाद, कृपया क्लिक करें होम > सम्मिलित करें > शीट पंक्तियाँ सम्मिलित करें, और रिक्त पंक्तियाँ चयनित पाठ के ऊपर डाली जाएंगी, स्क्रीनशॉट देखें:

 एक्सेल के लिए कुटूल अभी डाउनलोड करें और निःशुल्क परीक्षण करें!

डेमो: एक्सेल के लिए कुटूल के साथ विशिष्ट टेक्स्ट के ऊपर खाली पंक्ति डालें

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

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

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

अधिक पढ़ें... मुफ्त डाउनलोड...

---

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

• Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
• नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
• आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!

अधिक पढ़ें... मुफ्त डाउनलोड...