Wordテーブルの複数の行または列をバッチ削除する5つの簡単な方法

この記事では、Wordテーブルの複数の行または列をバッチ削除する5つの簡単な方法を紹介します。

ドキュメントを見やすくするために、データをテーブルに配置します。 長いテーブルを作成することは珍しいことではありません。 ただし、テーブルを再度確認して、一部の行と列が不要であることがわかった場合は、それらをすばやく削除する方法が必要になります。

最初に、複数の連続する行または列を削除する方法を見てみましょう。

方法1：コンテキストメニューから行または列を削除する

1. まず、一連の行または列を選択して右クリックします。
2. 次に、それに応じて「行の削除」または「列の削除」を選択します。    
3. または、行または列を選択して「レイアウト」をクリックすることもできます。
4. 次に、「削除」を選択し、「列の削除」または「行の削除」を選択します。

方法2：ショートカットを使用する

1. まず、行または列を選択します。
2. 次に、「Backspace」を押します。

これで、列または行が連続していない場合、上記の方法を使用してそれらを削除することはできません。 代わりに、次の方法をデプロイできます。

方法3：不要な行または列をまとめる

1. 最初に行または列を選択します。
2. 次に、マウスをクリックして押し続けます。
3. マウスを適切な位置にドラッグして放します。
4. 次に、すべてを選択します tar行または列を取得し、上記のメソッドを使用してそれらを削除します。

方法4：マクロを実行して複数の連続していない行を削除する

1. まず第一にost、行を選択します。
2. 「Alt + F11」を押して、WordでVBAエディターを開きます。
3. 次に、「通常」プロジェクトをクリックしてモジュールを作成します。
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. まず、選択します tar「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

ドキュメントの破損に注意してください

デジタルストレージデバイスの使用が増えるにつれ、データを管理することが重要になります。 最良の方法のXNUMXつは、それらをバックアップすることです。 たとえば、Wordを使用しているときに、突然応答が停止する場合があります。 そして、それが通常に戻ったとき、あなたはあなたの文書が死んでいるのを見つけることができるだけです。 そして、あなたはすべての騒ぎを経験する必要があります docxリカバリ.

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 xlsx修正 and pdf ソフトウェア製品を修理します。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com