Πώς να εισαγάγετε μια κενή σειρά μετά από συγκεκριμένο κείμενο στο 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 κλειδί για την εκτέλεση αυτού του κώδικα, στο αναδυόμενο παράθυρο διαλόγου, επιλέξτε τη στήλη που περιέχει το συγκεκριμένο κείμενο που θέλετε να επεξεργαστείτε, δείτε στιγμιότυπο οθόνης:
4. Στη συνέχεια, κάντε κλικ στο OK κουμπί και οι κενές σειρές θα εισαχθούν μετά το καθορισμένο κείμενο, δείτε στιγμιότυπο οθόνης:
![]() | ![]() | ![]() |
Εισαγάγετε κενές σειρές μετά από συγκεκριμένο κείμενο με Kutools AI
Δυσκολεύεστε να εισαγάγετε κενές σειρές μετά από συγκεκριμένο κείμενο στο Excel; Αφήνω Kutools AI απλοποιήστε την εργασία για εσάς! Με τις ισχυρές δυνατότητές του AI, δεν χρειάζεται πλέον να σαρώνετε με μη αυτόματο τρόπο το σύνολο δεδομένων σας ή να γράφετε πολύπλοκο κώδικα VBA. Το Kutools AI θα αναγνωρίσει αμέσως τις σειρές με το συγκεκριμένο κείμενο και θα εισαγάγει κενές σειρές ακριβώς εκεί που τις χρειάζεστε.
Μετά την εγκατάσταση Kutools για Excel, Παρακαλώ κάντε κλικ στο κουμπί Kutools > Βοηθός AI για να ανοίξετε το Kutools AI Aide τζάμι.
- Επιλέξτε τη στήλη δεδομένων που θέλετε να εισαγάγετε κενές σειρές με βάση το συγκεκριμένο κείμενο.
- Στη συνέχεια, πληκτρολογήστε την απαίτηση στο πλαίσιο συνομιλίας: όπως:
Εισαγάγετε μια κενή σειρά μετά το συγκεκριμένο κείμενο "Σε εξέλιξη" από την επιλογή - Και μετά, πατήστε εισάγετε ή κάντε κλικ στο Αποστολή κουμπί. Το Kutools AI θα αναλύσει την ερώτηση, αφού ολοκληρώσετε, κάντε κλικ Εκτέλεση για να πάρετε το αποτέλεσμα.
Η εισαγωγή μιας κενού σειράς μετά από συγκεκριμένο κείμενο στο Excel μπορεί να επιτευχθεί με πολλούς τρόπους, ανάλογα με το μέγεθος του συνόλου δεδομένων σας και το προτιμώμενο επίπεδο αυτοματισμού. Εάν ενδιαφέρεστε να εξερευνήσετε περισσότερες συμβουλές και κόλπα για το Excel, Ο ιστότοπός μας προσφέρει χιλιάδες μαθήματα.
Σχετικά άρθρα εισαγωγής σειρών:
- Αντιγράψτε και εισαγάγετε τη σειρά πολλές φορές ή αντιγράψτε τις σειρές X Times
- Στην καθημερινή σας εργασία, έχετε προσπαθήσει ποτέ να αντιγράψετε μια σειρά ή κάθε σειρά και, στη συνέχεια, να εισαγάγετε πολλές φορές κάτω από την τρέχουσα σειρά δεδομένων σε ένα φύλλο εργασίας; Για παράδειγμα, έχω μια σειρά κελιών, τώρα, θέλω να αντιγράψω κάθε σειρά και να τα επικολλήσω 3 φορές στην επόμενη σειρά, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Πώς θα μπορούσατε να αντιμετωπίσετε αυτήν την εργασία στο Excel;
- Εισαγωγή κενών γραμμών όταν αλλάζει η τιμή στο Excel
- Ας υποθέσουμε ότι έχετε μια σειρά δεδομένων και τώρα θέλετε να εισαγάγετε κενές σειρές μεταξύ των δεδομένων όταν αλλάζει η τιμή, έτσι ώστε να μπορείτε να διαχωρίσετε τις διαδοχικές ίδιες τιμές σε μία στήλη όπως εμφανίζονται τα ακόλουθα στιγμιότυπα οθόνης. Σε αυτό το άρθρο, θα μιλήσω για μερικά κόλπα για να λύσετε αυτό το πρόβλημα.
- Εισαγάγετε πολλές σειρές ή στήλες γρήγορα στα φύλλα Google
- Σε αυτό το άρθρο, θα παρουσιάσω έναν εύκολο τρόπο εισαγωγής πολλαπλών κενών γραμμών ή στηλών σε ένα φύλλο Google.
- Εισαγωγή κενής γραμμής πάνω από το συγκεκριμένο κείμενο στο Excel
- Όταν εργάζεστε σε ένα φύλλο εργασίας, έχετε προσπαθήσει ποτέ να εισαγάγετε μια κενή σειρά πάνω από ένα συγκεκριμένο κείμενο σε μια στήλη; Για παράδειγμα, υπάρχουν μερικά ονόματα στη στήλη Α, τώρα, θέλω να εισαγάγω κενές γραμμές πάνω από τα κελιά που περιέχουν το όνομα "Mike" όπως φαίνεται στο αριστερό στιγμιότυπο οθόνης, ίσως, δεν υπάρχει άμεσος τρόπος για να επιλύσετε αυτήν την εργασία στο Excel . Αυτό το άρθρο, θα μιλήσω για μερικά καλά κόλπα για την αντιμετώπιση αυτής της εργασίας στο Excel.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!