Excel - Αντιγραφή εάν ικανοποιείται το εύρος συνθηκών

Θέμα

Θέλω να αντιγράψω τα δεδομένα από το φύλλο σε άλλο εάν το εύρος εισαγωγής πληρούται σε άλλο φύλλο

• Όλα τα δεδομένα μου είναι σε φύλλο που ονομάζεται "ένθετο" σειρά, G φύλλο "ένθετο" έχει τα ονόματα των ανθρώπων
• Στο πεδίο φύλλου "Dom" B4: b17 έχει τη λίστα των ονομάτων αυτής της ομάδας
• Εάν τα ονόματα που εμφανίζονται στο φύλλο του Dom που εμφανίζονται στο φύλλο "εισαγωγής", θέλω να αντιγράψω αυτή τη σειρά στη γραμμή 75 και παραπάνω στο φύλλο Dom

Λύση

Το "Row, G φύλλο" περιέχει "τα ονόματα των ανθρώπων"

G δεν μπορεί να είναι μια σειρά μόνο μια στήλη υποθέτοντας σε g στήλη έπρεπε να κάνω ένα φύλλο δείγματος

Το φύλλο εισόδου θα μοιάζει με αυτό από τη στήλη A έως H

col.G col H

 δεδομένα ονόματος a 1 s 2 d 3 f 4 g 5 h 6 

Το φύλλο Dom θα είναι έτσι

 col B row4 adgkwryuzcbmnp 

Έγραψα μακροεντολή τρέχει τη μακροεντολή και να δούμε αν αυτό είναι αυτό που θέλετε. Θα ήταν πιο χρήσιμο εάν δώσατε ένα μικρό απόσπασμα από ένθετα και στρώματα σπιτιών. Αν θέλετε και μπορείτε να τροποποιήσετε τη μακροεντολή ώστε να ταιριάζει με τα δεδομένα σας.

ΚΑΛΥΤΕΡΗ ΑΠΟΘΗΚΕΥΣΕΤΕ ΤΟ ΑΡΧΙΚΟ ΑΡΧΕΙΟ ΑΣΦΑΛΕΙΑ ΠΟΛΛΑΠΛΗ ΓΙΑ ΑΝΑΚΑΛΥΨΗ ΕΑΝ Ο ΝΟΜΟΣ ΠΑΙΖΕΙ ΚΑΝΕΙΣ.

 (B4: B17) x = c (x) Για το c cind (), το c είναι το εύρος, c ως το εύρος, x ως το συμβολοσειρά, .Ορισμός με τα φύλλα εργασίας ("εισαγάγετε"). UsedRange Set cfind = .Cells.Find (what: = x, lookat = = xlWhole) Αν δεν υπάρχει τίποτα τότε cfind.EntireRow.Copy End με .Range ("A75"). (.) (.) (.Range ("A75"), .Cells (Rows.Count, "A"). )) EntireRow.Delete End With End Sub 

Χάρη στον Venkat για αυτό το άκρη.