Πώς να επιλέξετε κάθε ένατη στήλη στο Excel;
Για παράδειγμα, έχετε ένα μεγάλο φύλλο εργασίας με εκατοντάδες στήλες δεδομένων. Και τώρα, πρέπει να αντιγράψετε κάθε δεδομένα της 3ης στήλης και να τα επικολλήσετε σε άλλο νέο φύλλο εργασίας. Θα είναι χρονοβόρα η επιλογή κάθε ένα της στήλης μία προς μία και υπάρχει εύκολος τρόπος να το κάνετε;
Επιλέξτε κάθε ένατη στήλη με VBA
Επιλέξτε κάθε ένατη στήλη με το Kutools για Excel
Επιλέξτε κάθε ένατη στήλη με VBA
Δεν φαίνεται απλός τρόπος εκτός από τον κώδικα VBA για την επίλυση αυτού του προβλήματος. Κάντε τα ακόλουθα βήματα:
1. Επισημάνετε το εύρος που θέλετε να επιλέξετε κάθε ένατη στήλη.
2.Click Εργολάβος > Visual Basic ή πατήστε Alt + F11, Ένα νέο Microsoft Visual Basic για εφαρμογές θα εμφανιστεί το παράθυρο, κάντε κλικ Κύριο θέμα > Μονάδα μέτρησης για να εισαγάγετε τον ακόλουθο κώδικα στην Ενότητα:
Sub EveryOtherColumn()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xInterval As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xInterval = Application.InputBox("Enter column interval", xTitleId, Type:=1)
For i = 1 To InputRng.Columns.Count Step xInterval + 1
Set rng = InputRng.Cells(1, i)
If OutRng Is Nothing Then
Set OutRng = rng
Else
Set OutRng = Application.Union(OutRng, rng)
End If
Next
OutRng.EntireColumn.Select
End Sub
3. Στη συνέχεια κάντε κλικ στο κουμπί για να εκτελέσετε τον κώδικα και θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει να επιλέξετε μια περιοχή για εργασία. Δείτε το στιγμιότυπο οθόνης:
4. κλικ OKκαι, στη συνέχεια, εισαγάγετε τον αριθμό των διαστημάτων στο άλλο αναδυόμενο παράθυρο διαλόγου. Σε αυτήν την περίπτωση, εισαγάγετε 3 στο πλαίσιο. Δείτε το στιγμιότυπο οθόνης:
5. κλικ OK. Τώρα επιλέγει κάθε 3η στήλη στην επιλογή. Δείτε το στιγμιότυπο οθόνης:
Note: Μπορείτε να καθορίσετε τον αριθμό στο δεύτερο KutoolsforExcel διάλογο για την κάλυψη των αναγκών σας.
Αλλά μερικές φορές, πρέπει να επιλέξετε δύο στήλες με δύο διαστήματα. Ο παραπάνω κώδικας δεν μπορεί να λειτουργήσει, πώς πρέπει να το κάνετε;
Επιλέξτε κάθε ένατη στήλη με το Kutools για Excel
Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Παρ'το τώρα.
Με Kutools για Excel, μπορείτε να επιλέξετε συγκεκριμένο αριθμό στηλών σε συγκεκριμένα διαστήματα. Κάντε τα ακόλουθα βήματα:
1.Click Kutools > Επιλέξτε Εργαλεία > Επιλέξτε Διαστήματα σειρών / στηλών, δείτε το στιγμιότυπο οθόνης:
2. Ο Επιλέξτε Διαστήματα σειρών / στηλών θα εμφανιστεί το πλαίσιο διαλόγου. Στη συνέχεια κάντε κλικ για να επιλέξετε το εύρος που χρειάζεστε, επιλέξτε Στήλες από Επιλέξτε ενότητακαι καθορίστε τον αριθμό που θέλετε στο Διάστημα και Στήλες αναπτυσσόμενη λίστα, εδώ επιλέγουμε δύο στήλες σε κάθε στήλη 3td. Δείτε το στιγμιότυπο οθόνης:
3.Click OK. Θα επιλέξει δύο στήλες με δύο διαστήματα στην επιλογή. Δείτε το στιγμιότυπο οθόνης:
Note: Εάν ελέγξετε Επιλέξτε ολόκληρες στήλες Στο αναδυόμενο παράθυρο διαλόγου, θα επιλέξει ολόκληρες τις στήλες στο φύλλο. Δείτε το στιγμιότυπο οθόνης:
Σχετικά άρθρα:
- Επιλέξτε κάθε άλλη ή nth σειρά στο Excel
- Αντιγράψτε κάθε άλλη σειρά
- Διαγράψτε κάθε άλλη σειρά
- Απόκρυψη κάθε άλλης σειράς
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!