Πώς να εισαγάγετε μια κενή σειρά μετά από συγκεκριμένο κείμενο στο Excel;
Εάν θέλετε να εισαγάγετε κενές γραμμές μετά από ένα συγκεκριμένο κείμενο όπως φαίνεται το παρακάτω στιγμιότυπο οθόνης, πώς να το αντιμετωπίσετε γρήγορα και εύκολα χωρίς να τα εισαγάγετε χειροκίνητα ένα προς ένα;
 |
 |
 |
Εισαγάγετε κενές γραμμές μετά από συγκεκριμένο κείμενο με κώδικα VBA
Εισαγάγετε κενές γραμμές μετά από συγκεκριμένο κείμενο με κώδικα 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
Note: Στον παραπάνω κώδικα, μπορείτε να αλλάξετε την τιμή κειμένου "Σε εξέλιξη"Σε οποιεσδήποτε άλλες τιμές που θέλετε από το σενάριο Εάν InStr (1, xRng.Cells (i, 1). Αξία, "Σε εξέλιξη")> 0 Τότε.
3. Στη συνέχεια, πατήστε F5 για να εκτελέσετε αυτόν τον κώδικα, στο αναδυόμενο παράθυρο διαλόγου, επιλέξτε τα δεδομένα της στήλης που περιέχουν το συγκεκριμένο κείμενο που θέλετε να χρησιμοποιήσετε, δείτε το στιγμιότυπο οθόνης:
4. Και μετά, κάντε κλικ στο OK κουμπί και οι κενές σειρές έχουν εισαχθεί μετά το συγκεκριμένο κείμενο που καθορίσατε, δείτε το στιγμιότυπο οθόνης:
|
|
|
Σχετικά άρθρα εισαγωγής σειρών:
- Αντιγράψτε και εισαγάγετε τη σειρά πολλές φορές ή αντιγράψτε τις σειρές X Times
- Στην καθημερινή σας εργασία, έχετε προσπαθήσει ποτέ να αντιγράψετε μια σειρά ή κάθε σειρά και, στη συνέχεια, να εισαγάγετε πολλές φορές κάτω από την τρέχουσα σειρά δεδομένων σε ένα φύλλο εργασίας; Για παράδειγμα, έχω μια σειρά κελιών, τώρα, θέλω να αντιγράψω κάθε σειρά και να τα επικολλήσω 3 φορές στην επόμενη σειρά, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Πώς θα μπορούσατε να αντιμετωπίσετε αυτήν την εργασία στο Excel;
- Εισαγωγή κενών γραμμών όταν αλλάζει η τιμή στο Excel
- Ας υποθέσουμε ότι έχετε μια σειρά δεδομένων και τώρα θέλετε να εισαγάγετε κενές σειρές μεταξύ των δεδομένων όταν αλλάζει η τιμή, έτσι ώστε να μπορείτε να διαχωρίσετε τις διαδοχικές ίδιες τιμές σε μία στήλη όπως εμφανίζονται τα ακόλουθα στιγμιότυπα οθόνης. Σε αυτό το άρθρο, θα μιλήσω για μερικά κόλπα για να λύσετε αυτό το πρόβλημα.
- Εισαγάγετε πολλές σειρές ή στήλες γρήγορα στα φύλλα Google
- Σε αυτό το άρθρο, θα παρουσιάσω έναν εύκολο τρόπο εισαγωγής πολλαπλών κενών γραμμών ή στηλών σε ένα φύλλο Google.
- Εισαγωγή κενής γραμμής πάνω από το συγκεκριμένο κείμενο στο Excel
- Όταν εργάζεστε σε ένα φύλλο εργασίας, έχετε προσπαθήσει ποτέ να εισαγάγετε μια κενή σειρά πάνω από ένα συγκεκριμένο κείμενο σε μια στήλη; Για παράδειγμα, υπάρχουν μερικά ονόματα στη στήλη Α, τώρα, θέλω να εισαγάγω κενές γραμμές πάνω από τα κελιά που περιέχουν το όνομα "Mike" όπως φαίνεται στο αριστερό στιγμιότυπο οθόνης, ίσως, δεν υπάρχει άμεσος τρόπος για να επιλύσετε αυτήν την εργασία στο Excel . Αυτό το άρθρο, θα μιλήσω για μερικά καλά κόλπα για την αντιμετώπιση αυτής της εργασίας στο Excel.
Τα καλύτερα εργαλεία παραγωγικότητας του Office
Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%
- Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
- Συγχώνευση κελιών / σειρών / στηλών και τήρηση δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές και άθροισμα / μέσος όρος... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
- Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
- Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
- Αγαπημένα και γρήγορη εισαγωγή τύπων, Σειρά, Διαγράμματα και Εικόνες; Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
- Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
- Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
- Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
- Ομαδοποίηση συγκεντρωτικού πίνακα κατά αριθμός εβδομάδας, ημέρα εβδομάδας και πολλά άλλα ... Εμφάνιση ξεκλειδωμένων, κλειδωμένων κελιών με διαφορετικά χρώματα. Επισημάνετε τα κελιά που έχουν τύπο / όνομα...
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
