एक्सेल - पंक्तियों की संख्या एक्स की नकल करने के लिए एक मैक्रो

Macros का उपयोग एक्सेल ऑफिस सॉफ्टवेयर में x संख्या के लिए पंक्तियों को कॉपी करने के लिए किया जा सकता है। यदि किसी Excel कार्यपत्रक में रिकॉर्ड की संख्या बहुत अधिक है, तो पंक्तियों से डेटा की प्रतिलिपि बनाने जैसे दोहराव वाले कार्य मैन्युअल रूप से गैर-व्यवहार्य हो जाते हैं। यहां तक कि छोटे वर्कशीट के लिए, किसी कार्यपत्रक में एक्स संख्या के लिए पंक्तियों की प्रतिलिपि बनाने जैसे कार्यों के लिए मैक्रोज़ का उपयोग करना उचित है। मैक्रोज़ न्यूनतम मानव हस्तक्षेप के साथ त्रुटियों की संभावना को कम करने के साथ स्वचालित रूप से कार्य करते हैं। पूर्व लिखित मैक्रोज़ को विभिन्न ऑनलाइन संसाधनों से डाउनलोड किया जा सकता है और वांछित कार्यों को करने के लिए बदला जा सकता है। प्रोग्रामिंग के कुछ ज्ञान की आवश्यकता हो सकती है।

मुद्दा

मैं अपनी स्प्रैडशीट में पहली पंक्ति लेना चाहता हूं, इसे "X" बार की संख्या में कॉपी करता हूं, फिर अगली पंक्ति लेता हूं, पंक्तियों के अंत तक इसे उसी "X" नंबर पर कॉपी करता हूं।

नमूना

 ColA ColB ColC TextA1 TextA2 TextB1 TextB1 TextB2 TextC1 TextC2 TextC2 परिणाम (उदाहरण के लिए 3 बार) ColA ColB ColC TextA1 TextA2 TextA2 TextA1 TextA2 TextA1 TextA2 TextB2 TextB2 TextB2 TextB2 TextB2 TextB2 TextB2 TextB2 TextB2 TextB2 TextB2 TextB2 TextB2 TextB2 TextB2

उपाय

यह मैक्रो है:

 सब टेस्ट () डिम रींग एज़ रेंज, सी अस रेंज डिम आरएनजी १ रेंज, सी १ अस रेंज डिम डेस्ट अस रेंज, जे अस इंटेगर, के अस इंटेगर वर्कशीट्स ("शीट २")। सेल। क्लियर विथ वर्कशीट्स ("शीट १") सेट। rng = Range (.Range ("A2"), .Range ("A2")। End (xlDown)) j = WorksheetFunction.CountA (.Rows ("1: 1")) 'msgbox for every c for rng Set rng1 = रेंज (c.Offset (0, 1), .Cells (c.Row, Columns.Count)। andnd (xlToLeft)) 'msgbox rng1.Address प्रत्येक c1 के लिए rng1 में सेट करें = Worksheets ("sheet2")। प्रकोष्ठ (पंक्तियाँ, "a")। अंत (xlUp) .Offset (1, 0) 'msgbox dest.Address if c1 = "" तो GoTo line1 dest.Offset (0, 0 = c dest.Offset (0), 1) =। घंटियाँ (1, c1. कॉलम) 'dest.Offset (0, 2) = c1 लाइन 1: अगला c1 अगला c अंतिम छोर अंत के साथ

एक और विधि-डेटाबेस की तालिका तालिका-

रेफरी: wlakenbach ब्लॉग

//spreadsheetpage.com / ...