5 métodos rápidos para excluir em lote várias linhas ou colunas em sua tabela do Word

Neste artigo, gostaríamos de mostrar 5 métodos rápidos para excluir em lote várias linhas ou colunas em sua tabela do Word.

Colocamos os dados em tabelas para tornar o documento fácil de visualizar. Não é incomum criar uma longa tabela. No entanto, quando você verificar a tabela novamente e encontrar algumas linhas e colunas desnecessárias, precisará de uma maneira rápida de removê-las.

Primeiro, vamos ver maneiras de excluir várias linhas ou colunas consecutivas.

Método 1: excluir linhas ou colunas por meio do menu contextual

1. Em primeiro lugar, selecione uma série de linhas ou colunas e clique com o botão direito.
2. Em seguida, escolha “Excluir linhas” ou “Excluir colunas” de acordo.    
3. Ou você pode selecionar linhas ou colunas e clicar em “Layout”.
4. Em seguida, escolha “Excluir” e selecione “Excluir colunas” ou “Excluir linhas”.

Método 2: Use Atalhos

1. Em primeiro lugar, selecione linhas ou colunas.
2. Em segundo lugar, pressione “Backspace”.

Agora, se as colunas ou linhas não forem consecutivas, não podemos excluí-las usando os métodos acima. Em vez disso, você pode implantar os seguintes métodos.

Método 3: Juntar Linhas ou Colunas Desnecessárias

1. Selecione uma linha ou coluna primeiro.
2. Em seguida, clique com o mouse e segure.
3. Arraste o mouse para uma posição adequada e solte.
4. Em seguida, selecione todas as linhas ou colunas desejadas e use os métodos acima para excluí-las.

Método 4: Executar uma Macro para Excluir Várias Linhas Não Consecutivas

1. Em primeiro lugar, selecione as linhas.
2. Pressione “Alt+F11” para abrir o editor VBA no Word.
3. Em seguida, crie um módulo clicando em projeto “Normal”.
4. Em seguida, clique em “Inserir” e escolha “Módulo”.
5. Abra o módulo com um duplo clique e cole os seguintes códigos:

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. Por último, mas não menos importante, clique em “Executar” ou pressione “F5”.

Método 5: Executar uma Macro para Excluir Várias Colunas Não Consecutivas

1. Primeiramente, selecione as colunas desejadas com a tecla “Ctrl”.
2. Em seguida, instale e execute uma macro seguindo exatamente as mesmas etapas acima.
3. Mas substitua a macro por esta:

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

Cuidado com a Corrupção de Documentos

Com o aumento do uso de dispositivos de armazenamento digital, é importante cuidar dos dados. Uma das melhores maneiras é fazer backup deles. Por exemplo, ao usar o Word, ele pode parar de responder de repente. E quando voltar ao normal, você só poderá encontrar seu documento morto. E então você terá que passar por toda a confusão de recuperação docx.

Introdução do autor:

Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo correção xlsx e pdf reparar produtos de software. Para mais informações visite www.datanumen.com