5 γρήγορες μέθοδοι για τη μαζική διαγραφή πολλαπλών σειρών ή στηλών στον πίνακα του Word

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

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

Αρχικά ας δούμε τρόπους διαγραφής πολλών διαδοχικών σειρών ή στηλών.

Μέθοδος 1: Διαγραφή σειρών ή στηλών μέσω του μενού με βάση τα συμφραζόμενα

1. Αρχικά, επιλέξτε μια σειρά από σειρές ή στήλες και κάντε δεξί κλικ.
2. Στη συνέχεια, επιλέξτε "Διαγραφή σειρών" ή "Διαγραφή στηλών" ανάλογα.    
3. Ή μπορείτε να επιλέξετε γραμμές ή στήλες και να κάνετε κλικ στο "Διάταξη".
4. Στη συνέχεια, επιλέξτε "Διαγραφή" και επιλέξτε "Διαγραφή στηλών" ή "Διαγραφή σειρών".

Μέθοδος 2: Χρησιμοποιήστε συντομεύσεις

1. Αρχικά, επιλέξτε σειρές ή στήλες.
2. Δεύτερον, πατήστε "Backspace".

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

Μέθοδος 3: Συνδυάστε περιττές σειρές ή στήλες

1. Επιλέξτε πρώτα μια σειρά ή στήλη.
2. Στη συνέχεια, κάντε κλικ στο ποντίκι και κρατήστε πατημένο.
3. Σύρετε το ποντίκι στη σωστή θέση και αφήστε το.
4. Στη συνέχεια, επιλέξτε όλες τις γραμμές ή στήλες προορισμού και χρησιμοποιήστε τις παραπάνω μεθόδους για να τις διαγράψετε.

Μέθοδος 4: Εκτελέστε μια μακροεντολή για να διαγράψετε πολλές μη διαδοχικές σειρές

1. Πρώτα και κύρια, επιλέξτε γραμμές.
2. Πατήστε "Alt + F11" για να ανοίξετε το πρόγραμμα επεξεργασίας VBA στο Word.
3. Στη συνέχεια, δημιουργήστε μια ενότητα κάνοντας κλικ στο "Κανονικό" έργο.
4. Στη συνέχεια κάντε κλικ στο "Εισαγωγή" και επιλέξτε "Ενότητα".
5. Ανοίξτε τη λειτουργική μονάδα με διπλό κλικ και επικολλήστε τους ακόλουθους κωδικούς:

Sub DeleteNonConsecutiveRows()
  Dim objCell As Cell
  Dim objTable As Table
  Dim nIndex As Integer, nRows As Integer
  Dim strTable As String
  Dim varCellEmpty As Boolean
 
  Application.ScreenUpdating = False
 
  '  Delete contents in selected rows.
  Selection.Delete
 
  With Selection.Tables(1)
    nRows = .Rows.Count
    For nIndex = nRows To 1 Step -1
      For Each objCell In .Rows(nIndex).Cells
        If Len(objCell.Range.Text) > 2 Then
          varCellEmpty = False
          Exit For
        Else
          varCellEmpty = True
          .Rows(nIndex).Delete
        End If
      Next objCell
    Next nIndex
  End With
 
  Set objCell = Nothing
  Set objTable = Nothing
 
  Application.ScreenUpdating = True
End Sub

6. Τελευταίο αλλά όχι το λιγότερο, κάντε κλικ στο "Εκτέλεση" ή πατήστε "F5".

Μέθοδος 5: Εκτέλεση μακροεντολής για διαγραφή πολλαπλών μη διαδοχικών στηλών

1. Πρώτα απ 'όλα, επιλέξτε τις στήλες προορισμού με το πλήκτρο "Ctrl".
2. Στη συνέχεια, εγκαταστήστε και εκτελέστε μια μακροεντολή ακολουθώντας τα ίδια ακριβώς βήματα παραπάνω.
3. Αλλά αντικαταστήστε τη μακροεντολή με αυτήν:

Sub DeleteNonConsecutiveColumns()
  Dim objCell As Cell
  Dim objTable As Table
  Dim nIndex As Integer, nColumns As Integer
  Dim strTable As String
  Dim varCellEmpty As Boolean
 
  Application.ScreenUpdating = False
 
  '  Delete contents in selected columns.
  Selection.Delete
 
  With Selection.Tables(1)
    nColumns = .Columns.Count
    For nIndex = nColumns To 1 Step -1
 
      For Each objCell In .Columns(nIndex).Cells
        If Len(objCell.Range.Text) > 2 Then
          varCellEmpty = False
          Exit For
        Else
          varCellEmpty = True
          .Columns(nIndex).Delete
        End If
      Next objCell
    Next nIndex
  End With
 
  Set objCell = Nothing
  Set objTable = Nothing
 
  Application.ScreenUpdating = True
End Sub

Προσέξτε τη διαφθορά εγγράφων

Με την αυξανόμενη χρήση της ψηφιακής συσκευής αποθήκευσης, είναι σημαντικό να φροντίζετε τα δεδομένα. Ένας από τους καλύτερους τρόπους είναι να δημιουργήσετε αντίγραφα ασφαλείας. Για παράδειγμα, κατά τη χρήση του Word, μπορεί να σταματήσει να αποκρίνεται ξαφνικά. Και όταν επανέλθει στο φυσιολογικό, μπορείτε να βρείτε μόνο το έγγραφό σας νεκρό. Και τότε θα πρέπει να περάσετε από όλη τη φασαρία ανάκτηση docx.

Εισαγωγή συγγραφέα:

Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων xlsx διόρθωση και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com