Note: The other languages of the website are Google-translated. Back to English

Πώς να εισαγάγετε κενές γραμμές όταν αλλάζει η τιμή στο Excel;

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

Εισαγάγετε κενές γραμμές όταν αλλάζει η τιμή με τη συνάρτηση Subtotal

Εισαγάγετε κενές γραμμές όταν αλλάζει η τιμή με βοηθητικές στήλες

Εισαγάγετε κενές γραμμές όταν αλλάζει η τιμή με τον κώδικα VBA

Εισαγάγετε συγκεκριμένο αριθμό κενών γραμμών όταν αλλάζει η τιμή με μια ισχυρή δυνατότητα


Εισαγάγετε κενές γραμμές όταν αλλάζει η τιμή με τη συνάρτηση Subtotal

Με την ΥΠΟΣΥΝΟΛΟ δυνατότητα, μπορείτε να εισαγάγετε κενές γραμμές μεταξύ των δεδομένων όταν η τιμή αλλάζει ως εξής βήματα:

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

2. Κλίκ ημερομηνία > ΥΠΟΣΥΝΟΛΟ για να ανοίξετε το ΥΠΟΣΥΝΟΛΟ πλαίσιο διαλόγου και στο ΥΠΟΣΥΝΟΛΟ διαλόγου, κάντε τις ακόλουθες επιλογές:

1: Επιλέξτε το όνομα της στήλης στο οποίο θέλετε να εισαγάγετε κενές γραμμές με βάση την αλλαγή της τιμής κάτω Σε κάθε αλλαγή στο τμήμα;
2: Επιλέξτε Κόμης από το Χρησιμοποιήστε τη λειτουργία αναπτυσσόμενη λίστα
3: Ελέγξτε το όνομα της στήλης στο οποίο θέλετε να εισαγάγετε το υποσύνολο στο Προσθήκη υποσυνόλου σε πλαίσιο λίστας

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

4. Και, στη συνέχεια, κάντε κλικ στον αριθμό 2 στο επάνω μέρος του συμβόλου διάρθρωσης για να εμφανίσετε μόνο τις συνολικές γραμμές.

5. Στη συνέχεια, επιλέξτε τα δεδομένα του συνολικού εύρους και πατήστε Alt +; πλήκτρα συντόμευσης για να επιλέξετε μόνο τις ορατές σειρές, δείτε το στιγμιότυπο οθόνης:

6. Αφού επιλέξετε τις ορατές σειρές, τότε πατήστε το Διαγραφή πλήκτρο στο πληκτρολόγιο και έχουν αφαιρεθεί όλες οι συνολικές σειρές.

7. Στη συνέχεια, κάντε κλικ σε οποιοδήποτε άλλο κελί και επιστρέψτε ημερομηνία > Κατάργηση ομαδοποίησης > Εκκαθάριση περιγράμματος για να καταργήσετε τα περιγράμματα, δείτε το στιγμιότυπο οθόνης:

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

9. Επιτέλους, μπορείτε να διαγράψετε τη στήλη Α όπως χρειάζεστε.


Εισαγωγή αλλαγής σελίδας, κενών γραμμών, κάτω περιγράμματος ή πλήρωσης χρώματος όταν η τιμή αλλάζει γρήγορα

Εάν έχετε Kutools για Excel's Διακρίνετε τις διαφορές δυνατότητα, μπορείτε να εισαγάγετε γρήγορα αλλαγή σελίδας, κενές γραμμές, κάτω περίγραμμα ή χρώμα πλήρωσης όταν αλλάζει η τιμή όπως χρειάζεστε. Δείτε την παρακάτω επίδειξη.         Κάντε κλικ για λήψη του Kutools για Excel!


Εισαγάγετε κενές γραμμές όταν αλλάζει η τιμή με βοηθητικές στήλες

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

1. Σε ένα κενό κελί C3, εισαγάγετε αυτόν τον τύπο = A3 = A2και στο κελί D4 εισαγάγετε αυτόν τον τύπο = A4 = A3, δείτε το στιγμιότυπο οθόνης:

2. Στη συνέχεια, επιλέξτε C3: D4 και σύρετε τη λαβή πλήρωσης στο εύρος που θέλετε να εφαρμόσετε αυτούς τους τύπους και θα λάβετε Οι αληθινοί or Ψευδής στα κελιά, δείτε το στιγμιότυπο οθόνης:

3. Και στη συνέχεια πατήστε Ctrl + F για να ανοίξετε το Εύρεση και αντικατάσταση διαλόγου, στο αναδυόμενο παράθυρο διαλόγου, πληκτρολογήστε ΨΕΥΔΗΣ μέσα στο βρείτε αυτό πλαίσιο κειμένου κάτω Εύρεση καρτέλα και κάντε κλικ στο κουμπί Επιλογές για να επεκτείνετε αυτό το παράθυρο διαλόγου και επιλέξτε Αξίες από το Κοιτάξτε μέσα αναπτυσσόμενη λίστα, δείτε το στιγμιότυπο οθόνης:

4. Πατήστε Βρείτε όλα κουμπί και, στη συνέχεια, πατήστε Ctrl + A για να επιλέξετε όλα τα αποτελέσματα της εύρεσης, όλα τα FALSE κελιά έχουν επιλεγεί ταυτόχρονα, δείτε το στιγμιότυπο οθόνης:

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

7. Τέλος, μπορείτε να διαγράψετε τη βοηθητική στήλη C και D όπως χρειάζεστε.


Εισαγάγετε κενές γραμμές όταν αλλάζει η τιμή με τον κώδικα VBA

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

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.

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

Κωδικός VBA: Εισαγάγετε κενές γραμμές όταν αλλάζει η τιμή

Sub InsertRowsAtValueChange()
'Update by Extendoffice
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)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 2 Step -1
    If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Then
        WorkRng.Cells(i, 1).EntireRow.Insert
    End If
Next
Application.ScreenUpdating = True
End Sub

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

4. Και στη συνέχεια κάντε κλικ στο κουμπί OK, οι κενές γραμμές έχουν εισαχθεί μεταξύ δεδομένων όταν η τιμή αλλάζει με βάση τη στήλη A.


Εισαγάγετε συγκεκριμένο αριθμό κενών γραμμών όταν αλλάζει η τιμή με μια ισχυρή δυνατότητα

Εάν δοκιμάσετε με τις παραπάνω ενοχλητικές μεθόδους, εδώ, θα παρουσιάσω ένα χρήσιμο εργαλείο, Kutools για Excel's Διακρίνετε τις διαφορές μπορεί να σας βοηθήσει να εισαγάγετε αλλαγή σελίδας, κενές γραμμές, κάτω περίγραμμα ή χρώμα πλήρωσης όταν η τιμή του κελιού αλλάζει γρήγορα και εύκολα.

Συμβουλές:Για να το εφαρμόσετε Διακρίνετε τις διαφορές χαρακτηριστικό, πρώτα, πρέπει να κατεβάσετε το Kutools για Excelκαι, στη συνέχεια, εφαρμόστε τη λειτουργία γρήγορα και εύκολα.

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

1. Κλίκ Kutools > Μορφή > Διακρίνετε τις διαφορές, δείτε το στιγμιότυπο οθόνης:

2. Στην Διακρίνετε τις διαφορές ανά βασική στήλη πλαίσιο διαλόγου, κάντε τις ακόλουθες λειτουργίες:

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

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

Κάντε κλικ για λήψη του Kutools για Excel και δωρεάν δοκιμή τώρα!


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

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (15)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω μια στήλη με τους αριθμούς 5,4,3,2 και 1 (ΠΟΛΛΟΙ από αυτούς) και θέλω να διαχωρίσω τα Πέντε από τα άλλα, όπως: 5 5 5 4 3 2 1 5 5 5 5 5 4 3 2 1 Οι αριθμοί είναι με σειρά και υπάρχουν πάντα τέσσερα κάτω από ένα πέντε, γι' αυτό προσπάθησα: Sub InsertRowsAtValueChange() 'Ενημέρωση 20140716 Dim Rng ως εύρος Dim WorkRng ως εύρος σε σφάλμα Συνέχιση Επόμενο xTitleId = "KutoolsforExcel" Ορισμός WorkRng = Ορίστε WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Application.ScreenUpdating = False For i = WorkRng.Rows.Count to 2 Step -1 If WorkRng.Cells(i, 1). Τιμή = 5 Και WorkRng.Cells(i - 1, 1).Τιμή = 4 Στη συνέχεια WorkRng.Cells(i, 1).EntireRow.Insert End If Next Application.ScreenUpdating = True End Sub Αλλά δεν λειτούργησε. Μπορείς να με βοηθήσεις?
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Η φόρμουλα λειτουργεί τέλεια, ωστόσο υπάρχουν μερικά παραδείγματα που δεν αναγνωρίζει
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ πολύ, έψαξα παντού και αυτή ήταν η μόνη λύση που λειτούργησε για μένα που ήταν επίσης σε απλά αγγλικά. Όλοι οι άλλοι ιστότοποι εκμάθησης του Excel δεν το ανέλυσαν βήμα-βήμα όπως εσείς, σας ευχαριστώ πολύ. Στην υγειά σας : )
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστούμε πολύ για την περιγραφή πολλών λύσεων για το πρόβλημα. Χρησιμοποίησα τη Visual Basic και άλλαξα [quote]WorkRng.Cells(i, 1).EntireRow.Insert[/quote] με [quote]With WorkRng.Cells(i, 1).EntireRow.Borders(xlEdgeTop) .LineStyle = xlΣυνεχές .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlMedium End Με[/quote] Αυτό θα σχεδιάσει γραμμές μεταξύ σειρών με μεταβαλλόμενες τιμές αντί για κενές γραμμές.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Όπου στον κώδικα θα έπρεπε να τροποποιήσω για να συμπεριλάβω περισσότερες από μία σειρές, πρέπει να προσθέσω 10 μετά από κάθε διάλειμμα... Ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σε όλους σας ευχαριστώ!! είναι φοβερό, μπορείτε επίσης να μου επιτρέψετε πώς να εισάγω 2 σειρές όταν αλλάζει η τιμή στο VBA ή μέσω του excel.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, Αυτά είναι σχεδόν χρήσιμα! Η πρώτη μέθοδος δεν λειτουργεί για μένα, επειδή όταν ακολουθώ ρητά τα βήματα, τα δεδομένα που διαγράφω στα παράθυρα υποσύνολο διαγράφουν ολόκληρες τις στήλες που έχω ταξινομήσει. Στη δεύτερη μέθοδο, όταν φτάσω στο βήμα όπου εισάγω σειρές φύλλων, οι σειρές εισάγονται ΠΑΝΩ από τα FALSE κελιά που διασπούν τα δεδομένα, αλλά η τελευταία επιλογή κάθε ομάδας προστίθεται στη συνέχεια στην παρακάτω ομάδα. Οποιαδήποτε συμβουλή???
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
[quote]Γεια σε όλους σας ευχαριστώ!! είναι φοβερό, μπορείτε επίσης να μου επιτρέψετε πώς να εισάγω 2 σειρές όταν αλλάζει η τιμή στο VBA ή μέσω του excel.Του Χάντσον[/quote] Ενημερώστε με πώς να εισάγω περισσότερες από 1 σειρές.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρησιμοποιώ τη δική μου λύση εδώ και αρκετό καιρό.
1. Εισαγάγετε μια βοηθητική στήλη στη στήλη Α
2. Στο A2, πληκτρολογήστε "if(B2=B1,A1,A1+1)"
3. Αντιγράψτε αυτόν τον τύπο μέχρι την τελευταία σειρά
4. Αντιγράψτε όλα τα συμπληρωμένα κελιά στη στήλη Α και επικολλήστε Ειδικές (Τιμές) πάνω τους
5. Αντιγράψτε ξανά όλα τα κελιά και επικολλήστε τα στη στήλη Α στο πρώτο μη συμπληρωμένο κελί (π.χ. εάν έχετε 104 σειρές δεδομένων συν μια σειρά κεφαλίδας θα επικολλήσετε στο κελί A106)
6. Κάντε κλικ στο Data and Remove Duplicates (μόνο στα κελιά που μόλις επικολλήσατε στο Βήμα 5, όχι σε όλες τις σειρές)
7. Ταξινόμηση όλων της στήλης Α
8. Διαγράψτε τη στήλη Α

Μοιάζει με πολλά βήματα, αλλά διαρκεί μόνο λίγα δευτερόλεπτα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο κώδικας VBA λειτούργησε για πρώτη φορά και έκανε ακριβώς αυτό που προσπαθούσα να κάνω. Σε ευχαριστώ πάρα πολύ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
RE: εισάγετε κενές σειρές όταν η τιμή αλλάζει με τον κωδικό vba
Υπάρχει τρόπος να αποθηκεύσω το Range και να μην χρειάζεται να το επιλέγω κάθε φορά που το εκτελώ;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χαίρετε Κ.
Είναι πολύ χρήσιμο σε περίπτωση που χρειαστεί να εισαγάγω 1 σειρά, αλλά αν χρειάζεται να εισάγω 145 σειρές κάθε φορά που αλλάζουν τα δεδομένα στη στήλη spwcific, πώς μπορώ να το κάνω;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Χασάν,
Για να εισαγάγετε πολλές κενές σειρές όταν αλλάζει η τιμή σε μια συγκεκριμένη στήλη, θα πρέπει να εφαρμόσετε τον ακόλουθο κώδικα VBA:

Σημείωση: Στον παρακάτω κώδικα, θα πρέπει να αλλάξετε τον αριθμό 99 σύμφωνα με τις ανάγκες σας, για παράδειγμα, όταν εισάγετε 145 κενές σειρές, θα πρέπει να αλλάξετε τον αριθμό 99 σε 144. Δοκιμάστε το, ελπίζω να σας βοηθήσει!

SubInsertRowsAtValueChange()
Dim Rng ως εμβέλεια
Dim WorkRng As Range
On Error Συνέχιση Επόμενη
xTitleId = "KutoolsforExcel"
Ορισμός WorkRng = Application.Selection
Ορισμός WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Για i = WorkRng.Rows.Count To 2 Βήμα -1
Αν WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value then
Εύρος(WorkRng.Cells(i, 1).EntireRow, WorkRng.Cells(i + 99, 1).EntireRow).Εισαγωγή
End If
Επόμενο
Application.ScreenUpdating = True
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πολύ χρήσιμο. Ο κώδικας που δείχνει η Skyyang παραπάνω λειτούργησε τέλεια. Απλώς βεβαιωθείτε ότι τα δεδομένα δεν έχουν ήδη κενά.

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

Θα μπορούσε να προστεθεί μια γραμμή για παράβλεψη ή παράβλεψη κενών γραμμών; Αυτό μπορεί να καταστήσει αυτόν τον κώδικα πιο καθολικό και επαναλήψιμο, εάν χρειαστεί. Επίσης, μια συνάρτηση διαγραφής παρόμοια με αυτήν μπορεί να είναι χρήσιμη, επομένως η αναίρεση δεν είναι απαραίτητη.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπορεί η μέθοδος VBA να προσαρμοστεί ώστε να αγνοεί τα κενά κελιά; Έχω ένα αρχείο στο οποίο πρέπει να εισαγάγω σειρές με βάση δύο διαφορετικές στήλες, αλλά όταν εκτελώ τη μακροεντολή στη δεύτερη στήλη καταλήγω σε τρεις κενές γραμμές όπου η πρώτη μακροεντολή εκτέλεσε εισήγαγε σειρές.
Ή μπορεί να τρέχει σε δύο στήλες ταυτόχρονα;
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL