एक्सेल में मर्ज किए गए सेल को ऑटो नंबर कैसे दें?
हम एक्सेल में विभिन्न आकार के मर्ज किए गए सेल की सूची में श्रृंखला संख्याएँ कैसे भर सकते हैं? सबसे पहले हमारे दिमाग में मर्ज किए गए सेल को भरने के लिए ऑटोफिल हैंडल को खींचना है, लेकिन, इस मामले में, हमें निम्नलिखित चेतावनी संदेश मिलेगा, और मर्ज किए गए सेल को नहीं भर सकते।
चूँकि भरण हैंडल मर्ज की गई कोशिकाओं का समर्थन नहीं करता है, यहाँ, मैं इस समस्या को हल करने के लिए कुछ अन्य तरकीबों के बारे में बात कर सकता हूँ।
ऑटो नंबर/मर्ज किए गए सेल को VBA कोड से भरें
ऑटो नंबर/मर्ज किए गए सेल को VBA कोड से भरें
निम्नलिखित VBA कोड आपको चयनित मर्ज की गई कोशिकाओं को शीघ्रता से क्रमांकित करने में मदद कर सकता है। कृपया इस प्रकार करें:
1. दबाए रखें ALT + F11 कुंजियाँ, और यह खुल जाती है एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: ऑटो नंबर मर्ज किए गए सेल
Sub NumberCellsAndMergedCells()
'Update 20141028
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)
xIndex = 1
Set Rng = WorkRng.Range("A1")
Do While Not Intersect(Rng, WorkRng) Is Nothing
Rng.Value = xIndex
xIndex = xIndex + 1
Set Rng = Rng.MergeArea.Offset(1)
Loop
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स पॉप आउट होगा जिससे आप उन मर्ज किए गए सेल का चयन कर सकेंगे जिन्हें आप भरना चाहते हैं, स्क्रीनशॉट देखें:
4. मर्ज किए गए सेल्स को सेलेक्ट करने के बाद क्लिक करें OK, अब, आपके चयनित मर्ज किए गए सेल अनुक्रमिक संख्याओं से भर गए हैं, स्क्रीनशॉट देखें:
संबंधित आलेख:
एक्सेल में फिल्टर के बाद ऑटो नंबर या रीनंबर कैसे करें?
एक्सेल में समान डेटा के साथ आसन्न पंक्तियों को जल्दी से कैसे मर्ज करें?
एक्सेल में सेलों को कैसे अलग करें और डुप्लिकेट मान कैसे भरें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!