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

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

doc εισαγωγή σειράς πάνω από το συγκεκριμένο κείμενο 1 2 doc εισαγωγή σειράς πάνω από το συγκεκριμένο κείμενο 2

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

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

Εισαγάγετε μια κενή γραμμή πάνω από το συγκεκριμένο κείμενο με το Kutools για Excel


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

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

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

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

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

Sub test1()
'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, "Mike") > 0 Then
        Rows(xRng.Cells(i, 1).Row).Insert shift:=xlDown
      End If
    Next
End Sub

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

doc εισαγωγή σειράς πάνω από το συγκεκριμένο κείμενο 3

4. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, οι κενές σειρές έχουν εισαχθεί πάνω από το συγκεκριμένο κείμενο "Mike".

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


Εισαγάγετε μια κενή γραμμή πάνω από το συγκεκριμένο κείμενο με το Kutools για Excel

Εάν έχετε Kutools για Excel, Με τους Επιλέξτε συγκεκριμένα κελιά δυνατότητα, μπορείτε να επιλέξετε πρώτα τις καθορισμένες τιμές κελιών και, στη συνέχεια, να εφαρμόσετε το βοηθητικό πρόγραμμα Insert Sheet Rows του Excel για να εισαγάγετε τις κενές γραμμές ταυτόχρονα

Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες

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

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

2. Στη συνέχεια κάντε κλικ στο κουμπί Kutools > Αγορά > Επιλέξτε συγκεκριμένα κελιά, δείτε το στιγμιότυπο οθόνης:

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

doc εισαγωγή σειράς πάνω από το συγκεκριμένο κείμενο 5

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

doc εισαγωγή σειράς πάνω από το συγκεκριμένο κείμενο 6

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

doc εισαγωγή σειράς πάνω από το συγκεκριμένο κείμενο 7 2 doc εισαγωγή σειράς πάνω από το συγκεκριμένο κείμενο 2

 Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!


Επίδειξη: Εισαγάγετε μια κενή σειρά πάνω από συγκεκριμένο κείμενο με το Kutools για Excel

Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Λήψη και δωρεάν δοκιμή τώρα!

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

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

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

kte καρτέλα 201905


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I try do it to put a blank row after every non-empty cell, but excel says. "That command cannot be used on multiple selections"
Why it dosnt work for me???
This comment was minimized by the moderator on the site
Is there a way not to appears dialog box with pop out to remind me to select the column data which contains specific text I want to insert row above, If a specified cell is filled with data, then process run automatically , without promptings, and insert row above?
This comment was minimized by the moderator on the site
This has been amazing for the data I have. I was wondering if you could help me one step further. I have been able to split my data based on this, but then I need to colour code my groups of data. When I split my data I have a variable number of rows from 1-50, and I have 36 columns of data including 32 columns that I need to compare the values within to the top row. I am currently manually selecting each group (as separated by a blank row) and then using ctrl+shift+| to highlight column differences, and formatting those cells to highlight the differences.


Is there anyone who could write a code to select and format those column differences within the groupings, using the blank row as a separator?
This comment was minimized by the moderator on the site
Hi, i have a similar problem as the one above. What if i want to select the cell below a specified criteria? For example, you can use the example from above. i want to select the cell below "Mike". is there any easy way out?
This comment was minimized by the moderator on the site
@SSJ did you ever find a solution?
This comment was minimized by the moderator on the site
Hello, guys,

To insert blank rows below a specific cell value, you can apply the following code:

Sub BlankLine()
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)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step -1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "Mike" Then
Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown
End If
Next
Application.ScreenUpdating = True
End Sub

Please change the criteria "Mike" to your own cell value.

Hope it can help you, thank you!
This comment was minimized by the moderator on the site
thank you! its worked.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations