एक्सेल: किसी एकल कक्ष से डेटा कैसे एकत्र करें और इसे एक तालिका में रखें? [बन्द है]

Question

मेरे पास एक मैक्रो है जो कुछ गणना करता है और फिर एक सेल में दिखाई देने वाला परिणाम पैदा करता है। जब मैं मैक्रो को फिर से चलाता हूं तो यह उसी सेल में एक और परिणाम उत्पन्न करता है। मैं उस सेल से डेटा कॉपी करना चाहता हूं और इसे एक तालिका में रखता हूं, चलो सेल बी 1 में कहते हैं। और फिर सेल C1 में अगला परिणाम। और इसलिए जब तक मेरे पास डेटा तालिका नहीं है।

क्या ऐसा करने के लिए एक सरल तरीका है?

और क्या मैं मैक्रो रन (कह सकता हूं) 100 बार कर सकता हूं और हर बार ऊपर बताए अनुसार टेबल पर डेटा कॉपी कर सकता हूं?

धन्यवाद!

Comments

लूप को शामिल करने के लिए आपको अपने मैक्रो को संशोधित करने की आवश्यकता है जो परिणामों की संख्या पर नज़र रखता है और आउटपुट को अगले उपलब्ध सेल में आउटपुट तालिका में रखता है। इसे पढ़ें VBA में लूप्स के बारे में ट्यूटोरियल । कुछ कोड लिखने का प्रयास करें और फिर, यदि आप समस्याओं में भाग लेते हैं, तो इस समस्या को संपादित करने के लिए इस समस्या को चित्रित करें। हमेशा कोड को शामिल करना सबसे अच्छा होता है जो त्रुटि देता है, और यदि संभव हो तो परिणामों का एक स्क्रीनशॉट ।।

— Bandersnatch

Answer 1

यहाँ एक सुपर सरल मैक्रो उदाहरण है:

Sub MaintainHistory()
    Dim s As String, n As Long, v As Variant
    v = Rnd()
    Range("A1") = v
    If Range("B1") = "" Then
        Range("B1") = v
    Else
        n = Cells(Rows.Count, "B").End(xlUp).Row + 1
        Range("B" & n) = v
    End If
End Sub

Comments

यह काम करता है लेकिन यह अजीब परिणाम रिकॉर्ड करता है। जब मैं सेल A1 (संपूर्ण 4) में एक पूरी संख्या दर्ज करता हूं और मैक्रो चलाता हूं, तो 4 एक दशमलव (0.52 ...) में बदल जाता है और 'कि' बी 1 में सारणीबद्ध हो जाता है। अगर मैं फिर से (A1 = 4 के साथ) फिर से कोशिश करता हूं तो यह एक अलग दशमलव (0.76 ...) में बदल जाता है और इसे सेल बी 2 में बदल देता है, और इसी तरह।

— user869299

ऐसा इसलिए है क्योंकि मैक्रो लाइन 3 में एक यादृच्छिक संख्या उत्पन्न करता है और इसे A1 में डालता है। मुझे लगता है कि जीएस केवल एक तालिका भरने के लिए प्रदर्शन कर रहा था, इसलिए आप उस हिस्से को अपने मैक्रो में जोड़ सकते हैं। यदि आप तीसरी और चौथी पंक्ति को बदलते हैं: v = Range("A1").Value, यह मैक्रो A1 में मान लेगा और कॉलम B में अगले रिक्त सेल में डाल देगा।

— Bandersnatch