Excel - Πληρωμή δεδομένων σύμφωνα με τη μεταβλητή

Θέμα

Θέλω να συμπληρώσω ένα φύλλο του Excel με έναν μεταβλητό αριθμό γραμμών σύμφωνα με έναν αριθμό που έχει εισαχθεί σε μια σταθερή στήλη.

 στήλη ABCD r1 2009096 1001 19 5 r2 2009097 1002 12 2 r3 2009097 1003 36 6 r4 2009099 1004 10 3 r5 2009099 1005 11 3 r6 2009099 1006 12 2 r7 2009099 1007 13 4 r8 2009101 1008 25 5 r9 2009102 1009 19 5 

Σύμφωνα με τους αριθμούς που εισάγονται στη στήλη Δ, σκοπεύω να λάβω το ακόλουθο αποτέλεσμα:

 στήλη ABC r1 2009096 1001 19 r2 2009096 1001 19 r3 2009096 1001 19 r4 2009096 1001 19 r5 2009096 1001 19 r6 2009097 1002 12 r7 2009097 1002 12 r8 2009097 1003 36 r9 2009097 1003 36 r10 2009097 1003 36 r11 2009097 1003 36 r12 2009097 1003 36 r13 2009097 1003 36 

Λύση

Υποθέτοντας ότι τα δεδομένα βρίσκονται στο φύλλο1, ξεκινώντας από τη σειρά 1 (χωρίς επικεφαλίδα).

Το αποτέλεσμα θα εμφανιστεί στο φύλλο2.

Διορθώστε τα ονόματα των φύλλων και δημιουργήστε πρώτα αντίγραφα ασφαλείας του αρχείου και, στη συνέχεια, δείτε αν αυτή η μακροεντολή αποδίδει το επιθυμητό αποτέλεσμα:

 Υπό εξέταση () DimLRow, lRow2, x, y Ως αύξων αριθμός lRow = Φύλλα ("φύλλο1") Εύρος ("E" & Rows.Count) .End (xlUp) .Row Για κάθε κελί σε φύλλα .Επιλέξτε Εύρος (Κύτταρα (cell.Row, "A"), Κύτταρα (cell.Row, "D"), ) Αντίγραφο lRow2 = Φύλλα ("Φύλλο2") Εύρος ("A" & Rows.Count) .End (xlUp) .Offset (1, 0). lRow2) .PasteSpecial y = y + 1 Loop Μέχρι x = y Επόμενο κελί End Sub 

Χάρη στην TrowaD για αυτή την συμβουλή.