मुख्य सामग्री पर जाएं

Excel में एकाधिक शीटों में समान कक्षों से सूची कैसे बनाएं?

लेखक: केली अंतिम संशोधित: 2017-03-17

मान लीजिए कि हम प्रत्येक मासिक बिक्री तालिका को एक अलग वर्कशीट में तैनात करते हैं जैसा कि नीचे दिए गए स्क्रीन शॉट में दिखाया गया है, और सभी बिक्री तालिकाओं का लेआउट समान है। अब हम अनेक कार्यपत्रकों में सभी योग मानों (सेल E6) से एक सूची बनाना चाहते हैं। इसे कैसे पूरा करें? और यदि प्रत्येक कार्यपत्रक के योग मानों से एक गतिशील सूची बनाई जाए तो क्या होगा? आपके लिए दो तरीके हैं:

दस्तावेज़ एकाधिक शीटों की सूची बनाएं 1

VBA के साथ एकाधिक शीटों में समान कक्षों से एक सूची बनाएं

एक्सेल के लिए कुटूल के साथ कई शीटों में समान कोशिकाओं से एक गतिशील सूची बनाएं

आसानी से एकाधिक वर्कशीट/वर्कबुक को एक वर्कशीट/वर्कबुक में संयोजित करें

विभिन्न कार्यपुस्तिकाओं से दर्जनों शीटों को एक शीट में संयोजित करना कठिन हो सकता है। लेकिन Excel के लिए Kutools के साथ संयोजित करें (कार्यपत्रक और कार्यपुस्तिकाएँ) उपयोगिता, आप इसे कुछ ही क्लिक से पूरा कर सकते हैं!

विज्ञापन कंबाइन शीट पुस्तकें 1


निम्नलिखित वीबीए कोड के साथ, आप कई वर्कशीट में निर्दिष्ट सेल से आसानी से एक सूची बना सकते हैं। आप इस प्रकार कर सकते हैं:

चरण 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 नामक एक नई वर्कशीट में कॉपी किए जाते हैं। स्क्रीन शॉट देखें:

दस्तावेज़ एकाधिक शीटों की सूची बनाएं 2

यह वीबीए सूची को एक नई वर्कशीट में भर देगा, और सूची में मान स्थिर हैं जो मूल मानों के साथ नहीं बदलेंगे।

हालाँकि, कभी-कभी आप सूची को निर्दिष्ट सीमा में भरना चाह सकते हैं, और सूची मानों को हर समय निर्दिष्ट कोशिकाओं में मूल मानों के साथ पत्राचार करने की आवश्यकता हो सकती है। इन जरूरतों को पूरा करने के लिए आपको निम्नलिखित विधि आज़मानी चाहिए।


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

एक्सेल के लिए कुटूल - एक्सेल के लिए 300 से अधिक आवश्यक उपकरणों से भरा हुआ। बिना किसी क्रेडिट कार्ड की आवश्यकता के पूर्ण-विशेषताओं वाले 30-दिवसीय निःशुल्क परीक्षण का आनंद लें! अभी डाउनलोड करो!

चरण 1: उस रेंज का चयन करें जहां आप डायनामिक सूची भरेंगे, और क्लिक करें कुटूल > अधिक > वर्कशीट को गतिशील रूप से देखें.

दस्तावेज़ गतिशील रूप से शीट 1 को संदर्भित करता है

चरण 2: आरंभिक कार्यपत्रक संदर्भ भरें संवाद बॉक्स में,

दस्तावेज़ एकाधिक शीटों की सूची बनाएं 5

(1) क्लिक करें ऑर्डर भरें बॉक्स, और ड्रॉप डाउन सूची से एक भरण प्रकार का चयन करें। हमारे मामले में, हम चयन करते हैं सेल दर सेल वर्टिकल भरें;

(2) में फार्मूला भरें बॉक्स में, वह सेल पता निर्दिष्ट करें जिससे आप एक गतिशील सूची बनाएंगे और फिर क्लिक करें ताला बटन  सूत्र को लॉक करने के लिए.

(3) क्लिक करें रेंज भरें बटन.

अब आप देखेंगे कि सभी कार्यपत्रकों में निर्दिष्ट कक्षों में मान नीचे दिए गए स्क्रीन शॉट के अनुसार निर्दिष्ट सीमा में भरे हुए हैं:

जब मूल मान बदल जाते हैं, तो इस निर्दिष्ट सूची में संबंधित मान स्वचालित रूप से बदल जाएंगे।

एक्सेल के लिए कुटूल - 300 से अधिक आवश्यक उपकरणों के साथ सुपरचार्ज एक्सेल। बिना किसी क्रेडिट कार्ड की आवश्यकता के पूर्ण-विशेषताओं वाले 30-दिवसीय निःशुल्क परीक्षण का आनंद लें! अब समझे


एक्सेल के लिए कुटूल: आपकी उंगलियों पर 300 से अधिक उपयोगी उपकरण! आज ही बिना किसी सुविधा सीमा के अपना 30-दिवसीय निःशुल्क परीक्षण प्रारंभ करें। अब डाउनलोड करें!

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

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

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

Description


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

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Very helpful bit of coding, saved hours of work creating a table from lots of separate data worksheets
This comment was minimized by the moderator on the site
Thank you very much for this. Just saved me hours of work as I had to go through 200 sheets doing data input... One thing to note for people is to click the cell you want it to use prior to opening ip and running the macro. Scratched my head for a couple minutes as the worksheet was opening up but didn't know why the information wasn't showing
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations