Μετάβαση στο κύριο περιεχόμενο

Πώς να εισαγάγετε μια κενή σειρά μετά από συγκεκριμένο κείμενο στο Excel;

Συγγραφέας: Xiaoyang Τελευταία τροποποίηση: 2025-01-02

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

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

Εισαγάγετε κενές γραμμές μετά από συγκεκριμένο κείμενο με κώδικα VBA

Εισαγάγετε κενές σειρές μετά από συγκεκριμένο κείμενο με Kutools AI


Εισαγάγετε κενές γραμμές μετά από συγκεκριμένο κείμενο με κώδικα VBA

Μπορείτε να εφαρμόσετε τον παρακάτω κώδικα VBA για να εισαγάγετε κενές γραμμές μετά το συγκεκριμένο κείμενο που χρειάζεστε, κάντε το εξής:

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

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

Κωδικός VBA: Εισαγάγετε κενές γραμμές μετά το συγκεκριμένο κείμενο

Sub Insertrowbelow()
'updateby Extendoffice
    Dim i As Long
    Dim xLast As Long
    Dim xRng As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = Application.ActiveWindow.RangeSelection.Address
    Set xRng = Application.InputBox("please select the column with specific text:", "Kutools for Excel", xTxt, , , , , 8)
    If xRng Is Nothing Then Exit Sub
    If (xRng.Columns.Count > 1) Then
        MsgBox "the selected range must be one column", , "Kutools for Excel"
        Exit Sub
    End If
    xLast = xRng.Rows.Count
    For i = xLast To 1 Step -1
      If InStr(1, xRng.Cells(i, 1).Value, "In progressing") > 0 Then
        Rows(xRng.Cells(i + 1, 1).Row).INSERT shift:=xlDown
      End If
    Next
End Sub

Σημείωση: Στον παραπάνω κώδικα, μπορείτε να αλλάξετε την τιμή κειμένου "Σε εξέλιξη"Σε οποιεσδήποτε άλλες τιμές που θέλετε από το σενάριο Εάν InStr (1, xRng.Cells (i, 1). Αξία, "Σε εξέλιξη")> 0 Τότε.

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

Στιγμιότυπο οθόνης του Πλαισίου Εισόδου στο VBA για την επιλογή της στήλης με συγκεκριμένο κείμενο προς επεξεργασία

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

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

Εισαγάγετε κενές σειρές μετά από συγκεκριμένο κείμενο με Kutools AI

Δυσκολεύεστε να εισαγάγετε κενές σειρές μετά από συγκεκριμένο κείμενο στο Excel; Αφήνω Kutools AI απλοποιήστε την εργασία για εσάς! Με τις ισχυρές δυνατότητές του AI, δεν χρειάζεται πλέον να σαρώνετε με μη αυτόματο τρόπο το σύνολο δεδομένων σας ή να γράφετε πολύπλοκο κώδικα VBA. Το Kutools AI θα αναγνωρίσει αμέσως τις σειρές με το συγκεκριμένο κείμενο και θα εισαγάγει κενές σειρές ακριβώς εκεί που τις χρειάζεστε.

Kutools για Excel προσφέρει πάνω από 300 προηγμένες λειτουργίες για τον εξορθολογισμό σύνθετων εργασιών, ενισχύοντας τη δημιουργικότητα και την αποτελεσματικότητα. Βελτιωμένο με δυνατότητες AI, Το Kutools αυτοματοποιεί τις εργασίες με ακρίβεια, καθιστώντας τη διαχείριση δεδομένων αβίαστη. Λεπτομερείς πληροφορίες του Kutools για Excel...         Δωρεάν δοκιμή...

Μετά την εγκατάσταση Kutools για Excel, Παρακαλώ κάντε κλικ στο κουμπί Kutools > Βοηθός AI για να ανοίξετε το Kutools AI Aide τζάμι.

  1. Επιλέξτε τη στήλη δεδομένων που θέλετε να εισαγάγετε κενές σειρές με βάση το συγκεκριμένο κείμενο.
  2. Στη συνέχεια, πληκτρολογήστε την απαίτηση στο πλαίσιο συνομιλίας: όπως:
    Εισαγάγετε μια κενή σειρά μετά το συγκεκριμένο κείμενο "Σε εξέλιξη" από την επιλογή
  3. Και μετά, πατήστε εισάγετε ή κάντε κλικ στο Αποστολή κουμπί. Το Kutools AI θα αναλύσει την ερώτηση, αφού ολοκληρώσετε, κάντε κλικ Εκτέλεση για να πάρετε το αποτέλεσμα.

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


Σχετικά άρθρα εισαγωγής σειρών:

  • Αντιγράψτε και εισαγάγετε τη σειρά πολλές φορές ή αντιγράψτε τις σειρές X Times
  • Στην καθημερινή σας εργασία, έχετε προσπαθήσει ποτέ να αντιγράψετε μια σειρά ή κάθε σειρά και, στη συνέχεια, να εισαγάγετε πολλές φορές κάτω από την τρέχουσα σειρά δεδομένων σε ένα φύλλο εργασίας; Για παράδειγμα, έχω μια σειρά κελιών, τώρα, θέλω να αντιγράψω κάθε σειρά και να τα επικολλήσω 3 φορές στην επόμενη σειρά, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Πώς θα μπορούσατε να αντιμετωπίσετε αυτήν την εργασία στο Excel;
  • Εισαγωγή κενών γραμμών όταν αλλάζει η τιμή στο Excel
  • Ας υποθέσουμε ότι έχετε μια σειρά δεδομένων και τώρα θέλετε να εισαγάγετε κενές σειρές μεταξύ των δεδομένων όταν αλλάζει η τιμή, έτσι ώστε να μπορείτε να διαχωρίσετε τις διαδοχικές ίδιες τιμές σε μία στήλη όπως εμφανίζονται τα ακόλουθα στιγμιότυπα οθόνης. Σε αυτό το άρθρο, θα μιλήσω για μερικά κόλπα για να λύσετε αυτό το πρόβλημα.
  • Εισαγωγή κενής γραμμής πάνω από το συγκεκριμένο κείμενο στο Excel
  • Όταν εργάζεστε σε ένα φύλλο εργασίας, έχετε προσπαθήσει ποτέ να εισαγάγετε μια κενή σειρά πάνω από ένα συγκεκριμένο κείμενο σε μια στήλη; Για παράδειγμα, υπάρχουν μερικά ονόματα στη στήλη Α, τώρα, θέλω να εισαγάγω κενές γραμμές πάνω από τα κελιά που περιέχουν το όνομα "Mike" όπως φαίνεται στο αριστερό στιγμιότυπο οθόνης, ίσως, δεν υπάρχει άμεσος τρόπος για να επιλύσετε αυτήν την εργασία στο Excel . Αυτό το άρθρο, θα μιλήσω για μερικά καλά κόλπα για την αντιμετώπιση αυτής της εργασίας στο Excel.

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖 Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!