Πώς να εισαγάγετε ή να διαγράψετε μερική σειρά στο Excel;
Είναι εύκολο να εισαγάγετε ή να διαγράψετε μια ολόκληρη σειρά από το φύλλο εργασίας στο Excel. Αλλά πώς να εισαγάγετε ή να διαγράψετε μόνο μερική σειρά από το φύλλο εργασίας; Αυτό το άρθρο θα σας βοηθήσει.
Εισαγωγή ή διαγραφή μερικής σειράς με τη λειτουργία Εισαγωγή / Διαγραφή κελιών
Εισαγωγή ή διαγραφή μερικής σειράς με κωδικό VBA
Εισαγωγή ή διαγραφή μερικής σειράς με τη λειτουργία Εισαγωγή / Διαγραφή κελιών
Για παράδειγμα, θέλετε να εισαγάγετε ή να διαγράψετε μερική σειρά στη σειρά 5 με τρία κελιά, κάντε τα εξής.
Εισαγωγή μερικής σειράς
1. Επιλέξτε τρία κελιά στη σειρά 5 (τα επιλεγμένα κελιά πρέπει να ισούνται με τα εισαγόμενα κελιά) και, στη συνέχεια, κάντε κλικ στο Κύριο θέμα > Εισαγωγή κελιών υπό Αρχική αυτί. Δείτε το στιγμιότυπο οθόνης:
2. Στο Κύριο θέμα , επιλέξτε Μετακινήστε τα κελιά δεξιά or Μετακινήστε τα κελιά προς τα κάτω και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί.
Στη συνέχεια εισάγεται μερική σειρά με τρία κελιά όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.
Διαγραφή μερικής σειράς
1. Αφού επιλέξετε τη μερική σειρά που θέλετε να διαγράψετε, κάντε κλικ στην επιλογή Διαγραφή> Διαγραφή κελιών υπό Αρχική Tab.
2. Στο Διαγραφή , επιλέξτε Μετακινήστε τα κελιά αριστερά or Μετακινήστε τα κελιά προς τα πάνω όπως χρειάζεστε και, στη συνέχεια, κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:
Στη συνέχεια διαγράφεται η επιλεγμένη μερική σειρά.
Εισαγωγή ή διαγραφή μερικής σειράς με κωδικό VBA
Μπορείτε επίσης να εφαρμόσετε τους ακόλουθους κωδικούς VBA για εισαγωγή ή διαγραφή μερικής σειράς στο Excel.
1. Επιλέξτε οποιοδήποτε κελί σε μια συγκεκριμένη σειρά που θέλετε να εισαγάγετε μερικές σειρές και, στη συνέχεια, πατήστε άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Και μετά αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο Κώδικας παράθυρο.
Κωδικός VBA: Εισαγωγή μερικής σειράς στο Excel
Sub InsertRow()
Dim I As Long
On Error Resume Next
LInput:
I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
If I < 1 Then
MsgBox "Error, please retype", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Insert xlDown
End Sub
Note: Στον κωδικό VBA, ο αριθμός 1 σημαίνει ότι η μερική σειρά θα εισαχθεί από την πρώτη στήλη και ο αριθμός 3 σημαίνει ότι θα εισαγάγει τρία κελιά μεταξύ των στηλών. Μπορείτε να τα αλλάξετε ανάλογα με τις ανάγκες σας.
3. Πάτα το F5 για να εκτελέσετε τον κωδικό και μετά Kutools για Excel εμφανίζεται το πλαίσιο διαλόγου, εισαγάγετε τον αριθμό των απαιτούμενων σειρών που χρειάζεστε και, στη συνέχεια, κάντε κλικ στο OK κουμπί.
Εάν εισάγετε 3 στο πλαίσιο, μετά κάντε κλικ στο OK κουμπί, τρεις μερικές σειρές με τρεις στήλες θα εισαχθούν στην καθορισμένη θέση του φύλλου εργασίας σας.
Για τη διαγραφή μερικής σειράς, μπορείτε να εκτελέσετε τον παρακάτω κώδικα VBA.
Κωδικός VBA: Διαγραφή μερικής σειράς στο Excel
Sub DelActiveCell_Row()
Dim I As Long
On Error Resume Next
LInput:
I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
If I < 1 Then
MsgBox " Error, please retype", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Delete xlShiftUp
End Sub
Μετά την εκτέλεση του κώδικα, υπάρχει επίσης ένα Kutools για Excel εμφανίζεται το πλαίσιο διαλόγου για να σας υπενθυμίσει πόσες μερικές σειρές θέλετε να διαγράψετε, εισαγάγετε τον αριθμό και κάντε κλικ στο OK κουμπί. Στη συνέχεια, οι καθορισμένες μερικές σειρές διαγράφονται αμέσως.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!