Excel - Αντιγραφή γραμμών με βάση μια συνθήκη

Το λογισμικό Microsoft Office συνοδεύεται από την εφαρμογή Excel, η οποία έχει γίνει μια εφαρμογή υπολογιστικού φύλλου που χρησιμοποιείται παγκοσμίως χάρη στο φιλικό προς το χρήστη σύστημα διαλογής δεδομένων. Η εφαρμογή Excel Office Software σας επιτρέπει να αντιγράψετε τα δεδομένα που περιέχονται σε μια σειρά σε μια άλλη σειρά και να αντιγράψετε τα ίδια δεδομένα από μια σειρά σε πολλές σειρές χρησιμοποιώντας την ιδιότητα Fill. Σας εξοικονομεί από την ανάγκη να επαναπροσδιορίσετε τις πληροφορίες. Είναι επίσης δυνατή η αντιγραφή σειρών από ένα φύλλο εργασίας, το οποίο έχει επικεφαλίδες στη σειρά 1 και δεδομένα ξεκινώντας από τη σειρά 2 σε ένα άλλο φύλλο εργασίας όπου η στήλη περιέχει όρους. Απαιτείται να γράψετε έναν απλό κώδικα για να αντιγράψετε σειρές από το φύλλο σας σε ένα άλλο φύλλο εργασίας.

Θέμα

Πώς μπορώ να αντιγράψω το Excel ολόκληρη τη σειρά δεδομένων από ένα φύλλο εργασίας που ονομάζεται Inventory Employee Inventory σε ένα άλλο φύλλο εργασίας που ονομάζεται EE, αν η στήλη Q περιέχει TERM. Έχω δοκιμάσει σχεδόν τα πάντα, αλλά τίποτα δεν λειτουργεί. Παρακαλώ βοηθήστε!

Λύση

Υποθέσεις για αυτόν τον κώδικα:

1. Το φύλλο Αποθέματος Εργαζομένων έχει επικεφαλίδες στη σειρά ένα έτσι θα ξεκινήσει τον έλεγχο των δεδομένων στη σειρά 2.

2. Η στήλη Q δεν έχει κενά κελιά.

3. Το φύλλο EEs θα έχει επικεφαλίδες στη σειρά ένα έτσι τα δεδομένα θα ξεκινήσουν την αντιγραφή στη σειρά 2.

 Ορίστε i = Φύλλα ("Απογραφή Εργαζομένων") Ρύθμιση e = Φύλλα ("EE") Dim d Dim jd = 1 j = 2 Μέχρι IsEmpty (i.Range ("Q" & j) "j" = "TERM" Στη συνέχεια d = d + 1 e.Δωμάτια (d) .Value = i.Rows (j).