Ο Ed έγραψε και ρώτησε για μια απλή μακροεντολή:
Έχετε μια μακροεντολή που μπορεί να προσθέσει σειρές σε ένα υπολογιστικό φύλλο (στο κάτω μέρος ή στο δείκτη κελιού) και, στη συνέχεια, να αντιγράψετε από την προηγούμενη σειρά και να εισαγάγετε τα δεδομένα στη νέα σειρά; Και, τέλος, διαγράψτε δεδομένα σε ορισμένα κελιά.
Ακολουθεί μια μακροεντολή που θα εισαγάγει μια σειρά πάνω από το δείκτη κυψέλης και θα αντιγράψει τα περιεχόμενα της προηγούμενης σειράς. Ας υποθέσουμε ότι τα δεδομένα σας εκτείνονται από το Α στο Τ και ότι θέλετε να διαγράψετε το περιεχόμενο των κελιών της νέας σειράς H, K και M
Θα χρησιμοποιήσω τη λέξη-κλειδί ActiveCell για να κάνω τη μακροεντολή να λειτουργεί σε σχέση με το δείκτη κελιού.
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
