प्रतिलिपि बनाते समय और डेटा जोड़ते हुए पंक्ति जोड़ें - एक्सेल टिप्स

एड ने लिखा और एक साधारण मैक्रो के बारे में पूछा:

क्या आपके पास एक मैक्रो है जो एक स्प्रेडशीट में (नीचे या सेल पॉइंटर पर) पंक्तियों को जोड़ सकता है, फिर पिछली पंक्ति से कॉपी करें और नई पंक्ति में डेटा डालें? और, अंत में कुछ कोशिकाओं में डेटा को हटा दें।

यहां एक मैक्रो है जो सेलपॉइंटर के ऊपर एक पंक्ति सम्मिलित करेगा और पूर्व पंक्ति की सामग्री को कॉपी करेगा। मान लें कि आपका डेटा A से T तक फैला है, और आप नई पंक्ति की कोशिकाओं H, K, और M की सामग्री को हटाना चाहते हैं

सेल पॉइंटर के संबंध में मैक्रो काम करने के लिए मैं कीवर्ड एक्टिवसेल का उपयोग करूंगा।

Sub AddRowForEd() ActiveCell.EntireRow.Insert Cells(ActiveCell.Row - 1, 1).Resize(1, 20).Copy _ Destination:=Cells(ActiveCell.Row, 1) Cells(ActiveCell.Row, 8).Clear ' Column H Cells(ActiveCell.Row, 11).Clear ' Column K Cells(ActiveCell.Row, 13).Clear ' Column M End Sub