3 бързи начина за изтриване на празни редове и колони в таблицата на Word

В тази публикация ще ви обясним 3 бързи начина за изтриване на празни редове и колони във вашата таблица в Word.

Таблиците са от съществено значение за даден документ, особено при съхраняване на различни видове данни. Понякога една дълга таблица може да надвишава страница и да се простира върху няколко. Така че, след като таблицата стане дълга и сложна, има мерки, които можете да направите, за да я опростите. Например можете да изтриете ненужни празни редове и колони.

Следват 3 метода, които можете да използвате.

Метод 1: Ръчно изтриване на празни редове и колони

1. Първо, изберете ред или колона в празно.
2. След това щракнете с десния бутон, за да получите контекстното меню. В менюто изберете „Изтриване на редове“ или „Изтриване на колони“ съответно.

За съжаление не можете да изберете множество непоследователни редове или колони и да ги изтриете заедно с този начин. За това търсене можете да се обърнете към предишната ни статия: 5 бързи метода за групово изтриване на множество редове или колони в таблицата на Word

Метод 2: Групово изтриване на всички празни редове и колони в таблица

Метод 1 има своето ограничение. Затова ще ви предложим начина за групово премахване на редове и колони в таблица чрез VBA кодове.

1. За начало, поставете курсора в целевата таблица.
2. Второ, задействайте редактора на VBA, като натиснете „Alt + F11“.
3. В редактора първо кликнете върху „Нормален“ проект.
4. След това щракнете върху раздела „Вмъкване“ в лентата с менюта.
5. От падащото меню изберете „Модул“.
6. Щракнете два пъти върху модула, за да го отворите и поставете следните кодове там:

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. Накрая щракнете върху бутона „Run“ в лентата с менюта или натиснете „F5“.

За секунди ще премахнете всички празни редове и колони в тази таблица.

Метод 3: Групово изтриване на всички празни редове и колони във всички таблици в документ

1. Първо, повторете стъпки от метод 2, за да инсталирате и стартирате макрос.
2. Само този път заменете този макрос със следното:

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

Възстановяване на счупен документ

В днешно време има повече от един начин за възстановяване на загубени данни. Например, прибягването до архивиране винаги остава ваш основен приоритет. Ако това не задоволява нуждата ви да получите най-новата информация, можете да опитате... ремонт на док инструмент.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително xlsx ремонт и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com