5種快速刪除Word表中多行或多列的快速方法

在本文中，我們想向您展示5種快速方法來批量刪除Word表中的多行或多列。

我們將數據放入表格中以使文檔更容易理解。 創建一個長表並不少見。 但是，當您再次檢查表並發現不必要的行和列時，您將需要一種快速的方法來刪除它們。

首先讓我們看一下刪除多個連續行或列的方法。

方法1：通過上下文菜單刪除行或列

1. 首先，選擇一系列行或列，然後單擊鼠標右鍵。
2. 然後相應地選擇“刪除行”或“刪除列”。    
3. 或者，您可以選擇行或列，然後單擊“佈局”。
4. 然後選擇“刪除”，然後選擇“刪除列”或“刪除行”。

方法2：使用快捷方式

1. 首先，選擇行或列。
2. 其次，按“退格”。

現在，如果列或行不連續，則無法使用上述方法刪除它們。 相反，您可以部署以下方法。

方法3：將不必要的行或列放在一起

1. 首先選擇行或列。
2. 然後單擊鼠標並按住。
3. 將鼠標拖動到適當的位置並釋放。
4. 然後選擇所有目標行或列，並使用上述方法將其刪除。

方法4：運行宏以刪除多個非連續行

1. 首先，選擇行。
2. 按“ Alt + F11”以在Word中打開VBA編輯器。
3. 然後通過單擊“ Normal”項目創建一個模塊。
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 維修軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM