एकाधिक स्प्रेडशीट से डेटा कैसे निकालें
एक एक्सेल स्प्रेडशीट से डेटा निकालने से चादरों की कोशिकाओं की सामग्री को चर में बदल दिया जाता है। कार्यपुस्तिका तब मानों को एक नई शीट में पेस्ट कर सकती है, उन्हें एक दस्तावेज़ में निर्यात कर सकती है या उन पर गणना कर सकती है। उदाहरण के लिए, वर्कबुक में शीट की एक श्रृंखला हो सकती है, प्रत्येक आपकी कंपनी की बिक्री की अवधि को कवर करती है। एक विज़ुअल बेसिक मैक्रो प्रत्येक शीट को बदले में खोल सकता है और एक विशिष्ट सेल की सामग्री की प्रतिलिपि बना सकता है, जो प्रत्येक शीट से बिक्री के योगों की सूची तैयार करता है।
1।
Excel का Visual Basic Editor खोलने के लिए "Alt-F11" दबाएं।
2।
मैक्रो ब्लॉक खोलने के लिए निम्न कोड टाइप करें:
उप mcrExtractData ()
3।
मानों की एक सरणी बनाने के लिए निम्न पंक्ति जोड़ें:
लंबे समय के रूप में मंद (1 से 10) निकालते हैं
"1" और "10" को पहली और आखिरी शीट से बदलें, जिसका डेटा आप निकालना चाहते हैं। उदाहरण के लिए, शीट 3 से 12 तक डेटा निकालने के लिए, लाइन का उपयोग करें:
लंबे समय के रूप में मंद (3 से 12)
4।
एक चर घोषित करने के लिए निम्नलिखित लाइन जोड़ें जो मैक्रो का लूप उपयोग करेगा:
मुझे पूर्णांक के रूप में मंद
5।
फॉर-नेक्स्ट लूप खोलने के लिए निम्न पंक्ति जोड़ें:
I = 1 से 10 के लिए
"1" और "10" को पहली और आखिरी शीट से बदलें, जिसका डेटा आप निकालना चाहते हैं। उदाहरण के लिए, शीट 3 से 12 तक डेटा निकालने के लिए, लाइन का उपयोग करें:
I = 3 से 12 के लिए
6।
पहली शीट को सक्रिय करने के लिए निम्नलिखित पंक्ति जोड़ें:
शीट (i) .Activate
7।
पहली शीट से डेटा निकालने के लिए निम्न पंक्ति जोड़ें:
extractedValue (i) = रेंज ("C1") मान
"C1" को उस सेल से बदलें, जिसका डेटा आप निकालना चाहते हैं। उदाहरण के लिए, सेल E10 का मान निकालने के लिए, लाइन का उपयोग करें:
extractedValue (i) = रेंज ("E10")। मान
8।
फॉर-नेक्स्ट लूप को बंद करने के लिए निम्न पंक्ति जोड़ें:
अगला मैं
9।
मैक्रो को समाप्त करने के लिए निम्न पंक्ति जोड़ें:
अंत उप
10।
मैक्रो को चलाने के लिए "F5" कुंजी दबाएँ।