Excel - Συγκρίνοντας 2 στήλες και αφαιρώντας τα διπλά

Θέμα

Θα ήθελα να συγκρίνω 2 στήλες σε ένα υπολογιστικό φύλλο Excel και να αφαιρέσω τα διπλότυπα από τη στήλη Β αν υπάρχουν αντίστοιχα πεδία, π.χ.

 ΑΒ 1 1 2 4 1 6 1 1 3 3 4 2

Έτσι, μετά την εκτέλεση ενός τύπου / μακροεντολής, τότε θα πρέπει να είναι το αποτέλεσμα:

 ΑΒ 1 2 4 1 6 1 3 4 2

Θα ήταν κάποιος αρκετά καλός για να με βοηθήσει με αυτό παρακαλώ;

Λύση

Χρησιμοποιήστε τον ακόλουθο κώδικα:

 Υπολογίστε το (xlUp) .Κατά το iTempCol = Κύτταρα (1, Columns.Count) .End (xlToLeft) .Κολέγιο + 1 (2, iTempCol) .Επιλέξτε ActiveCell.Formula = "= IF (A2 = B2, 1, 0)" Selection.AutoFill Destination: = Περιοχή (Κύτταρα (2, iTempCol), Τα κελιά (lMaxRows, iTempCol)) Γραμμές ("1: 1") Επιλέξτε Αν (ActiveSheet.AutoFilterMode = False), "B"), "Κύτταρα" (lMaxRows, "B")) ClearContents ActiveSheet.AutoFilterMode = False Range (Κύτταρα (iTempCol), Κύτταρα (lMaxRows, iTempCol)