Excel में एकाधिक शीटों में समान कक्षों से सूची कैसे बनाएं?
मान लीजिए कि हम प्रत्येक मासिक बिक्री तालिका को एक अलग वर्कशीट में तैनात करते हैं जैसा कि नीचे दिए गए स्क्रीन शॉट में दिखाया गया है, और सभी बिक्री तालिकाओं का लेआउट समान है। अब हम अनेक कार्यपत्रकों में सभी योग मानों (सेल E6) से एक सूची बनाना चाहते हैं। इसे कैसे पूरा करें? और यदि प्रत्येक कार्यपत्रक के योग मानों से एक गतिशील सूची बनाई जाए तो क्या होगा? आपके लिए दो तरीके हैं:
VBA के साथ एकाधिक शीटों में समान कक्षों से एक सूची बनाएं
एक्सेल के लिए कुटूल के साथ कई शीटों में समान कोशिकाओं से एक गतिशील सूची बनाएं
आसानी से एकाधिक वर्कशीट/वर्कबुक को एक वर्कशीट/वर्कबुक में संयोजित करें
विभिन्न कार्यपुस्तिकाओं से दर्जनों शीटों को एक शीट में संयोजित करना कठिन हो सकता है। लेकिन Excel के लिए Kutools के साथ संयोजित करें (कार्यपत्रक और कार्यपुस्तिकाएँ) उपयोगिता, आप इसे कुछ ही क्लिक से पूरा कर सकते हैं!
VBA के साथ एकाधिक शीटों में समान कक्षों से एक सूची बनाएं
निम्नलिखित वीबीए कोड के साथ, आप कई वर्कशीट में निर्दिष्ट सेल से आसानी से एक सूची बना सकते हैं। आप इस प्रकार कर सकते हैं:
चरण 1: उस निर्दिष्ट सेल का चयन करें जिससे आप अपनी सूची बनाएंगे। हमारे मामले में, हम सेल E6 का चयन करते हैं।
चरण 2: प्रेस ऑल्ट + F11 एप्लिकेशन विंडो के लिए Microsoft Visual Basic खोलने के लिए कुंजियाँ एक साथ क्लिक करें सम्मिलित करें > मॉड्यूल, और फिर निम्नलिखित कोड को मॉड्यूल विंडो में पेस्ट करें।
वीबीए: एकाधिक शीटों में समान कक्षों से एक सूची बनाएं
Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "KutoolsforExcel"
RngAddress = Application.ActiveCell.Address
Set xAddWs = Application.ActiveWorkbook.Sheets.Add
xAddWs.Name = xTitleId
i = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xTitleId Then
xAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Value
i = i + 1
End If
Next
End Sub
चरण 3: प्रेस F5 कुंजी या क्लिक करें रन इस VBA को चलाने के लिए बटन।
फिर सभी वर्कशीट पर निर्दिष्ट सेल से सभी मान KutoolsforExcel नामक एक नई वर्कशीट में कॉपी किए जाते हैं। स्क्रीन शॉट देखें:
यह वीबीए सूची को एक नई वर्कशीट में भर देगा, और सूची में मान स्थिर हैं जो मूल मानों के साथ नहीं बदलेंगे।
हालाँकि, कभी-कभी आप सूची को निर्दिष्ट सीमा में भरना चाह सकते हैं, और सूची मानों को हर समय निर्दिष्ट कोशिकाओं में मूल मानों के साथ पत्राचार करने की आवश्यकता हो सकती है। इन जरूरतों को पूरा करने के लिए आपको निम्नलिखित विधि आज़मानी चाहिए।
एक्सेल के लिए कुटूल के साथ कई शीटों में समान कोशिकाओं से एक गतिशील सूची बनाएं
इस विधि का परिचय देंगे एक्सेल के लिए कुटूलहै वर्कशीट को गतिशील रूप से देखें एकाधिक कार्यपत्रकों में समान कक्षों से एक गतिशील सूची बनाने की उपयोगिता।
एक्सेल के लिए कुटूल - एक्सेल के लिए 300 से अधिक आवश्यक उपकरणों से भरा हुआ। बिना किसी क्रेडिट कार्ड की आवश्यकता के पूर्ण-विशेषताओं वाले 30-दिवसीय निःशुल्क परीक्षण का आनंद लें! अभी डाउनलोड करो!
चरण 1: उस रेंज का चयन करें जहां आप डायनामिक सूची भरेंगे, और क्लिक करें कुटूल > अधिक > वर्कशीट को गतिशील रूप से देखें.
चरण 2: आरंभिक कार्यपत्रक संदर्भ भरें संवाद बॉक्स में,
(1) क्लिक करें ऑर्डर भरें बॉक्स, और ड्रॉप डाउन सूची से एक भरण प्रकार का चयन करें। हमारे मामले में, हम चयन करते हैं सेल दर सेल वर्टिकल भरें;
(2) में फार्मूला भरें बॉक्स में, वह सेल पता निर्दिष्ट करें जिससे आप एक गतिशील सूची बनाएंगे और फिर क्लिक करें ताला बटन सूत्र को लॉक करने के लिए.
(3) क्लिक करें रेंज भरें बटन.
अब आप देखेंगे कि सभी कार्यपत्रकों में निर्दिष्ट कक्षों में मान नीचे दिए गए स्क्रीन शॉट के अनुसार निर्दिष्ट सीमा में भरे हुए हैं:
जब मूल मान बदल जाते हैं, तो इस निर्दिष्ट सूची में संबंधित मान स्वचालित रूप से बदल जाएंगे।
एक्सेल के लिए कुटूल - 300 से अधिक आवश्यक उपकरणों के साथ सुपरचार्ज एक्सेल। बिना किसी क्रेडिट कार्ड की आवश्यकता के पूर्ण-विशेषताओं वाले 30-दिवसीय निःशुल्क परीक्षण का आनंद लें! अब समझे
डेमो
संबंधित आलेख:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!