Πώς να αποκρύψετε πολλές κενές γραμμές ή στήλες στο Excel ταυτόχρονα στο Excel;
Για να αποκρύψετε ή να αφαιρέσετε τις κενές γραμμές ή στήλες μπορεί να σας βοηθήσει να συμπυκνώσετε το φύλλο εργασίας, σε αυτό το άρθρο, θα σας παρουσιάσω μερικούς γρήγορους τρόπους απόκρυψης ή αφαίρεσης των κενών γραμμών ή στηλών στο φύλλο εργασίας του Excel.
Κρύψτε γρήγορα πολλές κενές γραμμές ή στήλες με κώδικα VBA
Διαγράψτε γρήγορα πολλές κενές γραμμές ή στήλες με το Kutools για Excel
Κρύψτε γρήγορα πολλές κενές γραμμές ή στήλες με κώδικα VBA
Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να αποκρύψετε πολλές κενές γραμμές ή στήλες σε ένα φύλλο εργασίας γρήγορα και εύκολα.
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Πατήστε Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.
Κωδικός VBA: Απόκρυψη πολλών κενών σειρών σε ένα φύλλο εργασίας
Sub HideEmpties()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For I = 1 To xRg.Row + xRg.Rows.Count
If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
xRg.Rows(I).EntireRow.Hidden = True
End If
Next
End Sub
3. Στη συνέχεια πατήστε F5 για να εκτελέσετε αυτόν τον κώδικα και εμφανίζεται ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι επιλέγετε το εύρος δεδομένων που θέλετε να αποκρύψετε τις κενές γραμμές, δείτε το στιγμιότυπο οθόνης:
4. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, οι κενές σειρές κρύβονται ταυτόχρονα, δείτε το στιγμιότυπο οθόνης:
Note: Για να αποκρύψετε πολλές κενές στήλες, εφαρμόστε τον ακόλουθο κώδικα VBA:
Κωδικός VBA: Απόκρυψη πολλών κενών στηλών σε ένα φύλλο εργασίας
Sub HideEmpties()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For I = 1 To xRg.Column + xRg.Columns.Count
If Application.WorksheetFunction.CountA(xRg.Columns(I)) = 0 Then
xRg.Columns(I).EntireColumn.Hidden = True
End If
Next
End Sub
Διαγράψτε γρήγορα πολλές κενές γραμμές ή στήλες με το Kutools για Excel
Σε αυτήν την ενότητα, θα μιλήσω για το πώς να διαγράψετε πολλές κενές σειρές ή στήλες που δεν θέλετε σε ένα εύρος, φύλλο εργασίας ή βιβλίο εργασίας. ο Kutools για Excel'S Διαγραφή κρυφών (ορατών) γραμμών και στηλών βοηθητικό πρόγραμμα μπορεί να σας βοηθήσει να λύσετε αυτήν την εργασία το συντομότερο δυνατό.
| Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. |
Μετά την εγκατάσταση Kutools για Excel, κάντε τα εξής:
1. Επιλέξτε το εύρος δεδομένων που θέλετε να διαγράψετε τις κενές γραμμές ή στήλες και, στη συνέχεια, κάντε κλικ στο Kutools > Διαγραφή > Διαγραφή κρυφών (ορατών) γραμμών και στηλών, δείτε το στιγμιότυπο οθόνης:
2. Στην Διαγραφή κρυφών (ορατών) γραμμών και στηλών , επιλέξτε Σε επιλεγμένο εύρος in Κοιτάξτε μέσα αναπτυσσόμενη λίστα (μπορείτε επίσης να επιλέξετε άλλη επιλογή σε αυτήν την αναπτυσσόμενη λίστα όπως χρειάζεστε), επιλέξτε Γραμμές or Στήλες από το Διαγραφή τύπου ενότητα, και επιλέξτε Κενές σειρές or Κενές στήλες σύμφωνα με το Λεπτομερής τύπος ενότητα, δείτε το στιγμιότυπο οθόνης:
3. Και στη συνέχεια κάντε κλικ στο κουμπί Ok κουμπί, οι κενές γραμμές ή στήλες στην επιλογή έχουν αφαιρεθεί ταυτόχρονα. Δείτε το στιγμιότυπο οθόνης:
Note: Με αυτήν τη δυνατότητα, μπορείτε επίσης να διαγράψετε κρυμμένες σειρές ή στήλες, ορατές σειρές ή στήλες στην επιλογή, φύλλο εργασίας ή βιβλίο εργασίας όπως χρειάζεστε.
Κάντε κλικ στην επιλογή Δωρεάν λήψη Kutools για Excel τώρα!
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
