एक्सेल में निश्चित अंतराल पर विशिष्ट संख्या में कॉलम कैसे डालें?

एक्सेल के अपने दैनिक उपयोग में, आपको ऐसी स्थिति का सामना करना पड़ सकता है जिसकी आपको आवश्यकता है मौजूदा कॉलमों के बीच और कॉलम जोड़ें. बेशक, आप इन्सर्ट फ़ंक्शन का उपयोग करके कॉलम को एक-एक करके सम्मिलित कर सकते हैं। लेकिन जब आप बड़े डेटा का सामना कर रहे हों और हर दूसरे या नौवें कॉलम के बाद तीन कॉलम डालने की आवश्यकता हो, तो इन्सर्ट फ़ंक्शन स्पष्ट रूप से प्रभावी नहीं होता है। तो आप कार्य को शीघ्रता से कैसे पूरा कर सकते हैं? इस ट्यूटोरियल में, हम समस्या को हल करने के दो आसान तरीकों के बारे में बात करेंगे।

वीबीए कोड के साथ निश्चित अंतराल पर डेटा रेंज में विशिष्ट संख्या में रिक्त कॉलम डालें

एक अद्भुत सुविधा के साथ निश्चित अंतराल पर डेटा रेंज में विशिष्ट संख्या में रिक्त कॉलम डालें

हम नीचे का उपयोग कर सकते हैं वीबीए कोड प्रत्येक nवें कॉलम के बाद एक विशिष्ट संख्या में रिक्त कॉलम डालने के लिए। कृपया निम्नानुसार करें.

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

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

वीबीए कोड: निश्चित अंतराल पर डेटा में विशिष्ट संख्या में कॉलम डालें

Sub InsertColumnsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xColumns As Integer
Dim xColumnsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xColumnsCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xColumns + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xColumnsCount / xInterval)
    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select
   Application.Selection.EntireColumn.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3। दबाएं F5 इस कोड को चलाने की कुंजी. आपको चयन करने की याद दिलाने के लिए एक प्रॉम्प्ट बॉक्स सामने आएगा डेटा रेंज़ जिसमें आप खाली कॉलम डालना चाहते हैं।

4. क्लिक करें OK बटन। एक और प्रॉम्प्ट बॉक्स खुलता है, कृपया दर्ज करें स्तंभ अंतरालों की संख्या में कॉलम अंतराल दर्ज करें डिब्बा।

5. क्लिक करना जारी रखें OK बटन। तीसरा प्रॉम्प्ट बॉक्स खुलता है, कृपया निर्दिष्ट करें प्रत्येक अंतराल पर आप जितने कॉलम सम्मिलित करना चाहते हैं बक्से में।

6. क्लिक करें OK परिणाम प्राप्त करने के लिए बटन.

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

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

1. पहले मौजूदा डेटा रेंज का चयन करें। तब दबायें कुटूल > सम्मिलित करें > रिक्त पंक्तियाँ एवं कॉलम सम्मिलित करें.

2. रिक्त पंक्तियाँ एवं कॉलम सम्मिलित करें संवाद बॉक्स पॉप अप होता है. आप रेंज बॉक्स में प्रदर्शित चरण 1 में आपके द्वारा चुनी गई डेटा रेंज देख सकते हैं। चुने रिक्त स्तम्भ में विकल्प सम्मिलित करें टाइप करें अनुभाग। और निर्दिष्ट करें स्तंभ अंतरालों की संख्या और वे कॉलम जिन्हें आप प्रत्येक अंतराल पर सम्मिलित करना चाहते हैं. यहां मैं 1 और 3 अलग-अलग इनपुट करता हूं।

3. क्लिक करें OK सेटिंग समाप्त करने और परिणाम प्राप्त करने के लिए बटन।

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

---

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

एक्सेल के लिए कुटूल आपकी अधिकांश समस्याओं का समाधान करता है, और आपकी उत्पादकता को 80% तक बढ़ाता है

• सुपर फॉर्मूला बार (पाठ और सूत्र की अनेक पंक्तियों को आसानी से संपादित करें); लेआउट पढ़ना (बड़ी संख्या में सेल को आसानी से पढ़ें और संपादित करें); फ़िल्टर की गई रेंज में चिपकाएँ...
• कक्षों/पंक्तियों/स्तंभों को मर्ज करें और डेटा रखना; विभाजित कोशिकाओं की सामग्री; डुप्लिकेट पंक्तियों और योग/औसत को संयोजित करें... डुप्लिकेट सेल रोकें; रेंज की तुलना करें...
• डुप्लिकेट या अद्वितीय का चयन करें पंक्तियाँ; रिक्त पंक्तियाँ चुनें (सभी कोशिकाएँ खाली हैं); सुपर फाइंड और फ़ज़ी फाइंड कई कार्यपुस्तिकाओं में; यादृच्छिक चयन...
• सटीक प्रति सूत्र संदर्भ बदले बिना एकाधिक कक्ष; स्वतः संदर्भ बनाएँ एकाधिक शीट्स के लिए; बुलेट डालें, चेक बॉक्स और बहुत कुछ...
• पसंदीदा और त्वरित रूप से सम्मिलित सूत्र, रेंज, चार्ट और चित्र; कोशिकाओं को एन्क्रिप्ट करें पासवर्ड के साथ; मेलिंग सूची बनाएं और ईमेल भेजें...
• पाठ निकालें, टेक्स्ट जोड़ें, स्थिति के अनुसार हटाएँ, अंतरिक्ष निकालें; पेजिंग सबटोटल बनाएं और प्रिंट करें; सेल सामग्री और टिप्पणियों के बीच कनवर्ट करें...
• सुपर फ़िल्टर (फ़िल्टर योजनाओं को अन्य शीटों पर सहेजें और लागू करें); उन्नत सॉर्ट महीने/सप्ताह/दिन, आवृत्ति और अधिक के अनुसार; विशेष फ़िल्टर बोल्ड, इटैलिक द्वारा...
• वर्कबुक और वर्कशीट को मिलाएं; प्रमुख स्तंभों के आधार पर तालिकाएँ मर्ज करें; डेटा को एकाधिक शीट में विभाजित करें; बैच कनवर्ट xls, xlsx और पीडीएफ...
• पिवोट टेबल ग्रुपिंग द्वारा सप्ताह संख्या, सप्ताह का दिन और बहुत कुछ... अनलॉक, लॉक किए गए सेल दिखाएँ विभिन्न रंगों से; उन कक्षों को हाइलाइट करें जिनमें सूत्र/नाम हो...

अधिक पढ़ें... संपूर्ण सुविधाएँ 30-दिवसीय निःशुल्क परीक्षण... खरीदना... 

---

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

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

अधिक पढ़ें... संपूर्ण सुविधाएँ 30-दिवसीय निःशुल्क परीक्षण... खरीदना...