VBA - Χρησιμοποιώντας τη λειτουργία IF για 2 κελιά

Θέμα

Έχω ψάξει ανεπιτυχώς παντού για μια απάντηση στο πώς να δημιουργήσετε ένα βρόχο IF για την ακόλουθη κατάσταση:

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

π.χ.

Κυψέλη A1: Anne

Κυψέλη Α2: Anne

Κυψέλη A3: Bob

Κυψέλη A4: Τσάρλι

Έτσι μεταξύ των A1 και A2 θα εισαχθούν δύο γραμμές κενών. Μεταξύ του Bob & Charlie εισάγονται άλλες 2 κενές σειρές.

Λύση

Δοκιμάστε τη μακροεντολή

όταν ενεργοποιείτε τη μακροεντολή ...

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

 Υποσύνολο (): Στήλες ("A: A") Σειρά Key1: = Περιοχή ("A1"), Order1: = xlAscending, Header: = xlGuess Dim j Ως ακεραίο, = InputBox ("πληκτρολογήστε το πρώτο κελί υπό αναφορά π.χ. A10") m = Εύρος (r) .Row j = Περιοχή ("A10") End (xlDown) .Row 'j είναι η τελευταία σειρά Για k = 1 Στάδιο -1 Εάν τα Κύτταρα (k, 1) Κύτταρα (k - 1, 1) Τότε Εμβέλεια (Κύτταρα (k, 1), Κύτταρα (k + 1, 1)).