कार्यपत्रक में अगला खाली पंक्ति भरें - एक्सेल टिप्स

पीके पूछता है:

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

अच्छा प्रश्न। मान लें कि मान Sheet1 के C10 और E12 में हैं और आप चाहते हैं कि उन्हें Sheet2 में अगली पंक्ति में जोड़ा जाए।

यहां असली ट्रिक है Sheet2 पर अगली पंक्ति को खोजने के लिए कोड। Sheet2 (A65536) में अंतिम पंक्ति पर शुरू करना और फिर उपयोग करना। और (xlup) कॉलम A. में डेटा के साथ अंतिम पंक्ति ढूंढेगा उस पंक्ति में 1 जोड़ना आपको Sheet2 पर डेटा के लिए अगली पंक्ति में इंगित करेगा। इस कोड का उपयोग करें:

Sub CopyThem() NextRow = Worksheets("Sheet2").Range("A65536").End(xlUp).Row + 1 Worksheets("Sheet2").Cells(NextRow, 1).Resize(1, 2).Value = Array( _ Worksheets("Sheet1").Range("C10").value, _ Worksheets("Sheet1").Range("E12").value) End Sub