Πώς να χρησιμοποιήσετε τη μακροεντολή για να εισαγάγετε τη σειρά κάτω από τον πίνακα στο Excel;
Είναι σύνηθες για εμάς να προσθέτουμε κενές γραμμές στο κάτω μέρος ενός καθορισμένου πίνακα για να επεκτείνουμε τον πίνακα και να προσθέτουμε νέο περιεχόμενο. Αυτό το άρθρο αναφέρεται στη χρήση μιας μακροεντολής για να εισαγάγετε μια νέα σειρά κάτω από έναν καθορισμένο πίνακα και να διατηρήσετε τον τύπο του παραπάνω κελιού στο Excel.
Χρησιμοποιήστε τη μακροεντολή για να εισαγάγετε τη σειρά κάτω από τον πίνακα στο Excel
Χρησιμοποιήστε τη μακροεντολή για να εισαγάγετε τη σειρά κάτω από τον πίνακα στο Excel
Κάντε τα εξής για να εισαγάγετε μια κενή σειρά κάτω από έναν καθορισμένο πίνακα με μακροεντολή.
1. Πάτα το άλλος + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παρακαλώ κάντε κλικ Κύριο θέμα > Μονάδα μέτρησης για να ανοίξετε το παράθυρο Module. Στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο παράθυρο.
Κωδικός VBA: χρησιμοποιήστε μακροεντολή για να εισαγάγετε μια κενή σειρά κάτω από έναν καθορισμένο πίνακα
Sub AddRows()
'Updated by Extendoffice 2017/9/12
Dim xLastRow As Long
Dim xRg As Range
Dim xAddress As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the table range you will insert blank row below:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xLastRow = xRg.Row + xRg.Rows.Count
xRg.Rows(xLastRow).FillDown
xRg.Rows(xLastRow).SpecialCells(xlCellTypeConstants).ClearContents
End Sub
3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα. Και ένα Kutools για Excel εμφανίζεται το παράθυρο διαλόγου, επιλέξτε το συγκεκριμένο εύρος πίνακα που θα προσθέσετε μια κενή σειρά παρακάτω και, στη συνέχεια, κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:
Στη συνέχεια, μπορείτε να δείτε μια νέα κενή γραμμή να προστίθεται στο κάτω μέρος του καθορισμένου πίνακα. Και ο τύπος στο παραπάνω κελί είναι επίσης δεσμευμένος στη νέα γραμμή που έχει εισαχθεί όπως παρακάτω δείτε το στιγμιότυπο οθόνης που εμφανίζεται:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!