Πώς να εισαγάγετε κενές γραμμές όταν αλλάζει η τιμή στο Excel;

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

Εισαγάγετε κενές γραμμές όταν αλλάζει η τιμή με τη συνάρτηση Subtotal

Εισαγάγετε συγκεκριμένο αριθμό κενών γραμμών όταν αλλάζει η τιμή με μια ισχυρή δυνατότητα

Εισαγάγετε κενές γραμμές όταν αλλάζει η τιμή με βοηθητικές στήλες

Εισαγάγετε κενές γραμμές όταν αλλάζει η τιμή με τον κώδικα VBA

Εισαγάγετε κενές γραμμές όταν αλλάζει η τιμή με τη συνάρτηση Subtotal

Με την ΥΠΟΣΥΝΟΛΟ δυνατότητα, μπορείτε να εισαγάγετε κενές γραμμές μεταξύ των δεδομένων όταν η τιμή αλλάζει ως εξής βήματα:

1. Επιλέξτε το εύρος δεδομένων που θέλετε να χρησιμοποιήσετε.

2. Κλίκ ημερομηνία > ΥΠΟΣΥΝΟΛΟ για να ανοίξετε το ΥΠΟΣΥΝΟΛΟ πλαίσιο διαλόγου και στο ΥΠΟΣΥΝΟΛΟ διαλόγου, κάντε τις ακόλουθες επιλογές:

1: Επιλέξτε το όνομα της στήλης στο οποίο θέλετε να εισαγάγετε κενές γραμμές με βάση την αλλαγή της τιμής κάτω Σε κάθε αλλαγή στο τμήμα;

2: Επιλέξτε Κόμης από το Χρησιμοποιήστε τη λειτουργία αναπτυσσόμενη λίστα

3: Ελέγξτε το όνομα της στήλης στο οποίο θέλετε να εισαγάγετε το υποσύνολο στο Προσθήκη υποσυνόλου σε πλαίσιο λίστας

3. Στη συνέχεια κάντε κλικ στο κουμπί OK, οι γραμμές αθροίσματος έχουν εισαχθεί μεταξύ των διαφόρων προϊόντων και τα σύμβολα διάρθρωσης εμφανίζονται στα αριστερά του πίνακα, δείτε το στιγμιότυπο οθόνης:

4. Και, στη συνέχεια, κάντε κλικ στον αριθμό 2 στο επάνω μέρος του συμβόλου διάρθρωσης για να εμφανίσετε μόνο τις συνολικές γραμμές.

5. Στη συνέχεια, επιλέξτε τα δεδομένα του συνολικού εύρους και πατήστε Alt +; πλήκτρα συντόμευσης για να επιλέξετε μόνο τις ορατές σειρές, δείτε το στιγμιότυπο οθόνης:

6. Αφού επιλέξετε τις ορατές σειρές, τότε πατήστε το Διαγραφή πλήκτρο στο πληκτρολόγιο και έχουν αφαιρεθεί όλες οι συνολικές σειρές.

7. Στη συνέχεια, κάντε κλικ σε οποιοδήποτε άλλο κελί και επιστρέψτε ημερομηνία > Κατάργηση ομαδοποίησης > Εκκαθάριση περιγράμματος για να καταργήσετε τα περιγράμματα, δείτε το στιγμιότυπο οθόνης:

8. Τα σύμβολα διάρθρωσης έχουν διαγραφεί ταυτόχρονα και μπορείτε να δείτε ότι έχουν εισαχθεί κενές γραμμές μεταξύ των δεδομένων όταν αλλάζει η τιμή, δείτε το στιγμιότυπο οθόνης:

9. Επιτέλους, μπορείτε να διαγράψετε τη στήλη Α όπως χρειάζεστε.

Εισαγάγετε συγκεκριμένο αριθμό κενών γραμμών όταν αλλάζει η τιμή με μια ισχυρή δυνατότητα

Εάν δοκιμάσετε με τις παραπάνω ενοχλητικές μεθόδους, εδώ, θα παρουσιάσω ένα χρήσιμο εργαλείο, Kutools για Excel's Διακρίνετε τις διαφορές μπορεί να σας βοηθήσει να εισαγάγετε αλλαγή σελίδας, κενές γραμμές, κάτω περίγραμμα ή χρώμα πλήρωσης όταν η τιμή του κελιού αλλάζει γρήγορα και εύκολα.

Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:

1. Κλίκ Kutools > Μορφή > Διακρίνετε τις διαφορές, δείτε το στιγμιότυπο οθόνης:

2. Στην Διακρίνετε τις διαφορές ανά βασική στήλη πλαίσιο διαλόγου, κάντε τις ακόλουθες λειτουργίες:

• Επιλέξτε το εύρος δεδομένων που θέλετε να χρησιμοποιήσετε και, στη συνέχεια, επιλέξτε τη στήλη κλειδιού στην οποία θέλετε να εισαγάγετε κενές γραμμές βάσει.
• Στη συνέχεια, ελέγξτε Κενή σειρά Επιλογή από το Επιλογές και εισαγάγετε τον αριθμό των κενών γραμμών που θέλετε να εισαγάγετε.

3. Στη συνέχεια κάντε κλικ στο κουμπί Ok κουμπί και ο συγκεκριμένος αριθμός κενών σειρών έχει εισαχθεί στα δεδομένα εάν αλλάξει η τιμή του κελιού, δείτε στιγμιότυπα οθόνης:

Κάντε κλικ για λήψη του Kutools για Excel και δωρεάν δοκιμή τώρα!

Εισαγάγετε κενές γραμμές όταν αλλάζει η τιμή με βοηθητικές στήλες

Με τις βοηθητικές στήλες, μπορείτε να εισαγάγετε τον τύπο πρώτα και, στη συνέχεια, να εφαρμόσετε το Εύρεση και αντικατάσταση επιτέλους, εισάγετε τις κενές σειρές μεταξύ των μεταβαλλόμενων τιμών. Κάντε τα εξής:

1. Σε ένα κενό κελί C3, εισαγάγετε αυτόν τον τύπο = A3 = A2και στο κελί D4 εισαγάγετε αυτόν τον τύπο = A4 = A3, δείτε το στιγμιότυπο οθόνης:

2. Στη συνέχεια, επιλέξτε C3: D4 και σύρετε τη λαβή πλήρωσης στο εύρος που θέλετε να εφαρμόσετε αυτούς τους τύπους και θα λάβετε Οι αληθινοί or Ψευδής στα κελιά, δείτε το στιγμιότυπο οθόνης:

3. Και στη συνέχεια πατήστε Ctrl + F για να ανοίξετε το Εύρεση και αντικατάσταση διαλόγου, στο αναδυόμενο παράθυρο διαλόγου, πληκτρολογήστε ΨΕΥΔΗΣ μέσα στο βρείτε αυτό πλαίσιο κειμένου κάτω Εύρεση καρτέλα και κάντε κλικ στο κουμπί Επιλογές για να επεκτείνετε αυτό το παράθυρο διαλόγου και επιλέξτε Αξίες από το Κοιτάξτε μέσα αναπτυσσόμενη λίστα, δείτε το στιγμιότυπο οθόνης:

4. Πατήστε Βρείτε όλα κουμπί και, στη συνέχεια, πατήστε Ctrl + A για να επιλέξετε όλα τα αποτελέσματα της εύρεσης, όλα τα FALSE κελιά έχουν επιλεγεί ταυτόχρονα, δείτε το στιγμιότυπο οθόνης:

6. Κλείστε το Εύρεση και αντικατάσταση διάλογο, στο επόμενο βήμα, μπορείτε να εισαγάγετε κενές γραμμές κάνοντας κλικ Αρχική > Κύριο θέμα > Εισαγωγή σειρών φύλλωνκαι έχουν εισαχθεί κενές γραμμές στα δεδομένα όταν αλλάζει η τιμή με βάση τη στήλη Α, δείτε στιγμιότυπα οθόνης:

7. Τέλος, μπορείτε να διαγράψετε τη βοηθητική στήλη C και D όπως χρειάζεστε.

Εισαγάγετε κενές γραμμές όταν αλλάζει η τιμή με τον κώδικα VBA

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

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.

Κωδικός VBA: Εισαγάγετε κενές γραμμές όταν αλλάζει η τιμή

Sub InsertRowsAtValueChange()
'Update by Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 2 Step -1
    If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Then
        WorkRng.Cells(i, 1).EntireRow.Insert
    End If
Next
Application.ScreenUpdating = True
End Sub

3. Στη συνέχεια πατήστε F5 για να εκτελέσετε αυτόν τον κώδικα και θα εμφανιστεί ένα πλαίσιο προτροπής για να σας επιτρέψει να επιλέξετε δεδομένα μιας στήλης που θέλετε να εισαγάγετε κενές γραμμές όταν αλλάζει η τιμή στην οποία βασίζεστε, δείτε το στιγμιότυπο οθόνης:

4. Και στη συνέχεια κάντε κλικ στο κουμπί OK, οι κενές γραμμές έχουν εισαχθεί μεταξύ δεδομένων όταν η τιμή αλλάζει με βάση τη στήλη A.