Excel - μακροεντολή προς το κελί αναζήτησης και προσθήκη νέας σειράς

Θέμα

Θέλω να δημιουργήσω μια μακροεντολή η οποία θα εξετάσει για παράδειγμα την στήλη Α και θα βρει τον τελευταίο αριθμό που εισήγαγε στη συνέχεια προσθέτοντας μια γραμμή κάτω από αυτήν και να το κάνει αυτό κάθε φορά που έτρεξε.

Λύση

Μπορείτε να χρησιμοποιήσετε αυτήν τη μακροεντολή:

 Sub Insert_Row () Dim n Ως ακέραιο n = Κύτταρα (Rows.Count, 1) .End (xlUp) .Κατά σειρά (n) .Επιλέξτε Selection.Insert Shift: = xlUp End Sub 

Σημείωση

Χάρη στην ακουαρέλα για αυτή την άκρη στο φόρουμ.