Αυτό το σεμινάριο θα σας διδάξει πώς να αντιγράφετε (ή να κόβετε) ολόκληρες σειρές ή στήλες χρησιμοποιώντας VBA. Καλύπτουμε τις περιοχές αντιγραφής και επικόλλησης κελιών σε άλλο άρθρο.
Αρχικά θα σας δείξουμε πώς να επικολλήσετε ή να εισαγάγετε αντιγραμμένες γραμμές/στήλες και να συζητήσουμε τις διαφορές. Στη συνέχεια, θα σας δείξουμε όλους τους διαφορετικούς τρόπους αναφοράς γραμμών και στηλών κατά την αντιγραφή ή την αποκοπή.
Γραμμές & στήλες - Επικόλληση έναντι Εισαγωγής
Κατά την επικόλληση γραμμών και στηλών έχετε δύο επιλογές: Μπορείτε να επικολλήσετε πάνω από την υπάρχουσα γραμμή (ή στήλη) ή μπορείτε να εισαγάγετε μια νέα σειρά (ή στήλη).
Ας δούμε τη διαφορά…

Αντιγραφή & Επικόλληση πάνω από υπάρχουσα σειρά / στήλη
Αυτό θα αντιγράψει τη σειρά 1 και θα την επικολλήσει στην υπάρχουσα σειρά 5:
1 | Εύρος ("1: 1"). Εύρος αντιγραφής ("5: 5") |
Αυτό θα αντιγράψει τη στήλη C και θα την επικολλήσει στη στήλη E:
1 | Εύρος ("C: C"). Εύρος αντιγραφής ("E: E") |
Αντιγραφή & εισαγωγή γραμμής / στήλης
Αντ 'αυτού, μπορείτε να εισαγάγετε τη αντιγραμμένη γραμμή ή στήλη και να μετατοπίσετε τις υπάρχουσες γραμμές ή στήλες για να δημιουργήσετε χώρο.
Αυτό θα αντιγράψει τη σειρά 1 και θα την εισαγάγει στη σειρά 5, μετατοπίζοντας τις υπάρχουσες γραμμές προς τα κάτω:
12 | Εύρος ("1: 1"). ΑντιγραφήΕύρος ("5: 5"). Εισαγωγή |
Αυτό θα αντιγράψει τη στήλη C και θα την εισαγάγει στη στήλη Ε, αλλάζοντας τις υπάρχουσες στήλες προς τα δεξιά:
12 | Εύρος ("C: C"). ΑντιγραφήΕύρος ("E: E"). Εισαγωγή |
Αντιγραφή ολόκληρης της σειράς
Παρακάτω θα σας δείξουμε διάφορους τρόπους αντιγραφής της σειράς 1 και επικόλλησης στη σειρά 5.
1 | Εύρος ("1: 1"). Εύρος αντιγραφής ("5: 5") |
1 | Εύρος ("A1"). EntireRow.Copy Range ("A5") |
1 | Σειρές (1). Αντιγραφή σειρών (5) |
Κόψτε και επικολλήστε σειρές
Απλώς χρησιμοποιήστε Αποκοπή αντί Αντιγραφή για να κόψετε και να επικολλήσετε σειρές:
1 | Σειρές (1). Κόψτε σειρές (5) |
Αντιγραφή πολλαπλών σειρών
Ακολουθούν παραδείγματα αντιγραφής πολλαπλών σειρών ταυτόχρονα:
1 | Εύρος ("5: 7"). Εύρος αντιγραφής ("10:13") |
1 | Εύρος ("A5: A7"). EntireRow.Copy Range ("A10: A13") |
1 | Σειρές (5: 7). Αντιγραφή σειρών (10:13) |
Αντιγραφή ολόκληρης στήλης
Μπορείτε να αντιγράψετε ολόκληρες στήλες παρόμοια με την αντιγραφή ολόκληρων σειρών:
1 | Εύρος ("C: C"). Εύρος αντιγραφής ("E: E") |
1 | Εύρος ("C1"). EntireColumn.Copy Range ("C1"). EntireColumn |
1 | Στήλες (3). Εύρος αντιγραφής (5) |
Αποκοπή και επικόλληση στηλών
Απλώς χρησιμοποιήστε Αποκοπή αντί Αντιγραφή για να κόψετε και να επικολλήσετε στήλες:
1 | Εύρος ("C: C"). Εύρος κοπής ("E: E") |
Αντιγραφή πολλαπλών στηλών
Ακολουθούν παραδείγματα αντιγραφής πολλών στηλών ταυτόχρονα:
1 | Εύρος ("C: E"). Εύρος αντιγραφής ("G: I") |
1 | Εύρος ("C1: E1"). EntireColumn.Copy Range ("G1: I1") |
1 | Στήλες (3: 5). Αντιγραφή στηλών (7: 9) |
Αντιγραφή γραμμών ή στηλών σε άλλο φύλλο
Για να αντιγράψετε σε άλλο φύλλο, απλώς χρησιμοποιήστε το αντικείμενο φύλλου:
1 | Φύλλα ("φύλλο1"). Εύρος ("C: E"). Αντιγραφή φύλλων ("φύλλο2"). Εύρος ("G: I") |
Κόψτε γραμμές ή στήλες σε άλλο φύλλο
Μπορείτε να χρησιμοποιήσετε την ίδια ακριβώς τεχνική για να κόψετε και να επικολλήσετε γραμμές ή στήλες σε άλλο φύλλο.
1 | Φύλλα ("φύλλο1"). Εύρος ("C: E"). Κοπή φύλλων ("φύλλο2"). Εύρος ("G: I") |