Διαγραφή γραμμών σε διαφορετικά φύλλα μέσω VBA

Εάν θέλετε έναν τρόπο διαγραφής όλων των παρόμοιων αριθμών γραμμών εν κινήσει, τότε αυτό το άρθρο είναι για εσάς.

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

Ερώτηση): Θέλω να διαγράψω την ίδια σειρά σε πολλά φύλλα εργασίας χρησιμοποιώντας κώδικα VBA. Αυτό που θέλω είναι να διαγράψω όλες τις γραμμές στο βιβλίο εργασίας, ανεξάρτητα από το πόσα φύλλα υπάρχουν στο τρέχον αρχείο. Θέλω να διαγράψω τον επιλεγμένο αριθμό σειράς και από τα 5 φύλλα.

Πρώτα απ 'όλα, ας εισάγουμε τα παρόμοια δεδομένα σε όλα τα φύλλα εργασίας στην ίδια τοποθεσία

Πρέπει να ακολουθήσουμε τα παρακάτω βήματα:

Κάντε κλικ στην καρτέλα Προγραμματιστής
Από την ομάδα κώδικα επιλέξτε Visual Basic

Εισαγάγετε τον ακόλουθο κώδικα στην τυπική μονάδα:-

Sub DeleteRows ()

Dim shtArr, i As Long, xx As Long

shtArr = Array ("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")

xx = Επιλογή. Σειρά

Για i = LBound (shtArr) Προς UBound (shtArr)

Φύλλα (shtArr (i)). Σειρές (xx) .EntireRow. Διαγραφή

Επόμενο i

Τέλος υπο

Τώρα τοποθετήστε τον κέρσορα σε οποιοδήποτε κελί A1 & στο Sheet1.
Τύπος ALT + F8 για εκτέλεση της μακροεντολής. θα βρείτε τον επιλεγμένο αριθμό σειράς να διαγράφεται σε όλα τα φύλλα.
Το ακόλουθο στιγμιότυπο εμφανίζει τα δεδομένα του φύλλου 1 και του φύλλου 2 ως παράδειγμα. όταν εκτελείτε αυτήν την άσκηση θα βρείτε παρόμοια λύση σε όλα τα αντίστοιχα φύλλα.