3 rýchle spôsoby odstránenia prázdnych riadkov a stĺpcov v tabuľke slov

V tomto príspevku vám vysvetlíme 3 rýchle spôsoby, ako odstrániť prázdne riadky a stĺpce v tabuľke programu Word.

Tabuľky sú pre dokument nevyhnutné, najmä pri uchovávaní rôznych typov údajov. Niekedy môže dlhý stôl presahovať stránku a presahovať niekoľko. Akonáhle bude tabuľka dlhá a komplikovaná, existujú opatrenia, ktoré ju môžete zjednodušiť. Môžete napríklad odstrániť nepotrebné prázdne riadky a stĺpce.

Nasledujúce 3 metódy môžete použiť.

Metóda 1: Ručné odstránenie prázdnych riadkov a stĺpcov

1. Najskôr vyberte prázdny riadok alebo stĺpec.
2. Potom kliknite pravým tlačidlom myši a získate kontextové menu. V ponuke vyberte zodpovedajúcim spôsobom možnosti „Odstrániť riadky“ alebo „Odstrániť stĺpce“.

Bohužiaľ nemôžete vybrať viac po sebe nasledujúcich riadkov alebo stĺpcov a odstrániť ich týmto spôsobom. Túto požiadavku nájdete v našom predchádzajúcom článku: 5 rýchlych metód na dávkové odstránenie viacerých riadkov alebo stĺpcov z tabuľky aplikácie Word

Metóda 2: Dávkové odstránenie všetkých prázdnych riadkov a stĺpcov v tabuľke

Metóda 1 má svoje obmedzenie. Ponúkneme vám teda spôsob dávkového odstránenia riadkov a stĺpcov z tabuľky pomocou kódov VBA.

1. Na začiatok umiestnite kurzor do cieľovej tabuľky.
2. Potom spustite editor VBA stlačením kombinácie klávesov „Alt + F11“.
3. V editore najskôr kliknite na projekt „Normálny“.
4. Potom kliknite na karte „Vložiť“ na paneli s ponukami.
5. V rozbaľovacej ponuke zvoľte možnosť Modul.
6. Dvojitým kliknutím otvorte modul a vložte tam nasledujúce kódy:

Sub DeleteBlankRowsAndTablesInATable()
  Dim objCell As Cell
  Dim nRowIndex As Integer, nRows As Integer, nColumns As Integer, nColumnIndex As Integer
  Dim varCellEmpty As Boolean
 
  Application.ScreenUpdating = False
 
  If Selection.Information(wdWithInTable) = False Then
    MsgBox ("Put cursor inside a table first!")
    Exit Sub
  Else
    With Selection.Tables(1)
      nRows = .Rows.Count
      For nRowIndex = nRows To 1 Step -1
        varCellEmpty = True
        For Each objCell In .Rows(nRowIndex).Cells
          If Len(objCell.Range.Text) > 2 Then
            varCellEmpty = False
            Exit For
          End If
        Next objCell
          If varCellEmpty = True Then
            .Rows(nRowIndex).Delete
          End If
      Next nRowIndex
 
      nColumns = .Columns.Count
      For nColumnIndex = nColumns To 1 Step -1
        varCellEmpty = True
        For Each objCell In .Columns(nColumnIndex).Cells
          If Len(objCell.Range.Text) > 2 Then
            varCellEmpty = False
            Exit For
          End If
        Next objCell
          If varCellEmpty = True Then
            .Columns(nColumnIndex).Delete
          End If
      Next nColumnIndex
    End With
  End If

  Set objCell = Nothing

  Application.ScreenUpdating = True
End Sub

7. Nakoniec kliknite na tlačidlo „Spustiť“ na paneli s ponukami alebo stlačte kláves „F5“.

Za niekoľko sekúnd odstránite všetky prázdne riadky a stĺpce z tejto tabuľky.

Metóda 3: Dávkové odstránenie všetkých prázdnych riadkov a stĺpcov vo všetkých tabuľkách v dokumente

1. Najskôr zopakujte kroky v metóde 2 na inštaláciu a spustenie makra.
2. Iba tentokrát nahraďte dané makro nasledujúcim:

Sub DeleteBlankRowsAndColumnsInAllTables()
  Dim objCell As Cell
  Dim objTable As Table
  Dim nRowIndex As Integer, nRows As Integer, nColumns As Integer, nColumnIndex As Integer
  Dim varCellEmpty As Boolean
 
  Application.ScreenUpdating = False
 
  With ActiveDocument
    For Each objTable In .Tables
      nRows = objTable.Rows.Count
      For nRowIndex = nRows To 1 Step -1
        varCellEmpty = True
        For Each objCell In objTable.Rows(nRowIndex).Cells
          If Len(objCell.Range.Text) > 2 Then
            varCellEmpty = False
            Exit For
          End If
        Next objCell
          If varCellEmpty = True Then
            objTable.Rows(nRowIndex).Delete
          End If
      Next nRowIndex
    Next objTable
 
    For Each objTable In .Tables
      nColumns = objTable.Columns.Count
      For nColumnIndex = nColumns To 1 Step -1
        varCellEmpty = True
        For Each objCell In objTable.Columns(nColumnIndex).Cells
          If Len(objCell.Range.Text) > 2 Then
            varCellEmpty = False
            Exit For
          End If
        Next objCell
          If varCellEmpty = True Then
            objTable.Columns(nColumnIndex).Delete
          End If
      Next nColumnIndex
    Next objTable
  End With

  Set objCell = Nothing
  Set objTable = Nothing

  Application.ScreenUpdating = True
End Sub

Obnovte nefunkčný dokument

V dnešnej dobe existuje viac než len jeden spôsob, ako obnoviť stratené dáta. Napríklad zálohovanie zostáva vždy vašou najvyššou prioritou. Ak to neuspokojí vašu potrebu získať späť najnovšie informácie, môžete skúsiť... oprava dok nástroj.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane xlsx oprava a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S