Πώς να εισαγάγετε κενή σειρά με βάση την παραπάνω τιμή κελιού στο Excel;
Στο Excel, η εισαγωγή κενών γραμμών είναι μία από τις πιο συχνά χρησιμοποιούμενες συναρτήσεις στην καθημερινή μας εργασία. Ωστόσο, υπάρχει τρόπος να εισαγάγετε γρήγορα κενές γραμμές με βάση την παραπάνω τιμή κελιού, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης; Τώρα, αυτό το άρθρο, μιλάει για τη μέθοδο γρήγορης εισαγωγής κενής γραμμής με βάση τις παραπάνω τιμές κελιών στο Excel.
Εισαγωγή σειράς με βάση την παραπάνω τιμή
Εισαγωγή σειράς με βάση την παραπάνω τιμή
Εάν θέλετε να εισαγάγετε μια κενή σειρά με βάση τον παραπάνω αριθμό, μπορείτε να χρησιμοποιήσετε έναν μακροοικονομικό κώδικα.
1. Ενεργοποιήστε το φύλλο που χρησιμοποιείτε και πατήστε Alt + F11 κλειδιά για άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο.
2. κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον παρακάτω κώδικα στο σενάριο.
VBA: Εισαγάγετε κενό κώδικα με βάση το κελί παραπάνω
Sub Insert () «Ενημέρωση απόExtendoffice20170926 Dim xRg As Range Dim xAddress As String Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long On Error Resume Next xAddress = ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox ("Επιλογή εύρους για χρήση (μία στήλη ): "," KuTools For Excel ", xAddress,,,,, 8) Εάν το xRg δεν είναι τίποτα τότε βγείτε από την υποεφαρμογή.ScreenUpdating = False xLastRow = xRg (1). End (xlDown) .Row xFstRow = xRg.Row xCol = xRg.Column xCount = xRg.Count Set xRg = xRg (1) For I = xLastRow To xFstRow Step -1 xNum = Cells (I, xCol) If IsNumeric (xNum) And xNum> 0 Στη συνέχεια σειρές (I + 1). (xNum). Εισαγάγετε xCount = xCount + xNum End if Next xRg.Resize (xCount, 1). Επιλέξτε Application.ScreenUpdating = True End Sub
3. Τύπος F5 για να εκτελέσετε τον κώδικα και εμφανίζεται ένα παράθυρο διαλόγου για να σας υπενθυμίσει να επιλέξετε μια λίστα που θα λειτουργεί. Δείτε το στιγμιότυπο οθόνης:
4. κλικ OK, έχουν εισαχθεί οι κενές σειρές.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!