5 hurtige metoder til batch-sletning af flere rækker eller kolonner i din ordtabel

I denne artikel vil vi gerne vise dig 5 hurtige metoder til batchsletning af flere rækker eller kolonner i din Word-tabel.

Vi lægger data ind i tabeller for at gøre dokumentet let for øje. Det er ikke ualmindeligt at lave et langbord. Men når du tjekker tabellen igen og finder nogle rækker og kolonner unødvendige, har du brug for en hurtig måde at fjerne dem på.

Lad os først se på måder at slette flere på hinanden følgende rækker eller kolonner.

Metode 1: Slet rækker eller kolonner gennem kontekstmenu

1. Først skal du vælge en række rækker eller kolonner og højreklikke.
2. Vælg derefter "Slet rækker" eller "Slet kolonner" i overensstemmelse hermed.    
3. Eller du kan vælge rækker eller kolonner og klikke på "Layout".
4. Vælg derefter "Slet" og vælg "Slet kolonner" eller "Slet rækker".

Metode 2: Brug genveje

1. Først skal du vælge rækker eller kolonner.
2. For det andet skal du trykke på "Backspace".

Hvis kolonnerne eller rækkerne ikke er fortløbende, kan vi ikke slette dem ved hjælp af ovenstående metoder. I stedet kan du implementere følgende metoder.

Metode 3: Sæt unødvendige rækker eller kolonner sammen

1. Vælg først en række eller kolonne.
2. Klik derefter med musen og hold fast.
3. Træk musen til en korrekt position og slip.
4. Vælg derefter alle målrækker eller -kolonner, og brug ovenstående metoder til at slette dem.

Metode 4: Kør en makro for at slette flere ikke-på hinanden følgende rækker

1. Først og fremmest skal du vælge rækker.
2. Tryk på "Alt + F11" for at åbne VBA-editor i Word.
3. Opret derefter et modul ved at klikke på "Normal" projekt.
4. Klik derefter på "Indsæt", og vælg "Modul".
5. Åbn modulet med dobbeltklik og indsæt følgende koder:

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. Sidst men ikke mindst skal du klikke på "Kør" eller trykke på "F5".

Metode 5: Kør en makro for at slette flere ikke-konsekutive kolonner

1. Først skal du vælge målkolonner med "Ctrl"-tasten.
2. Installer og kør derefter en makro efter nøjagtig samme trin ovenfor.
3. Men udskift makro med denne:

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

Pas på dokumentkorruption

Med den øgede brug af digital lagringsenhed er det vigtigt at tage sig af data. En af de bedste måder er at sikkerhedskopiere dem. For eksempel, mens du bruger Word, kan det pludselig stoppe med at reagere. Og når det er normalt igen, kan du kun finde dit dokument dødt. Og så bliver du nødt til at gennemgå al balladen af docx opsving.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder xlsx-rettelse og pdf produkter til reparation af software. For mere information besøg www.datanumen.com