Word のテーブルから空の行や列を削除するには、どうすればよいですか？

著者アマンダ・リー変更日2025-01-20

テーブル内の空の行や列は、Word 文書を雑然として整理されていない印象を与えてしまいます。本チュートリアルでは、Word 文書内のテーブルからすべての空の行と列を効率よく削除するためのいくつかの方法をご紹介します。

手動で行うにせよ、VBA コードを使うにせよ、ワンクリックで解決するにせよ、これらの方法でテーブルを整理し、文書全体の見た目をぐっと引き立てることができます。

テーブルからすべての空の行と列を手動で削除する

ワンクリックでテーブルからすべての空の行と列を削除する

VBA コードを使用してテーブルからすべての空の行と列を削除する

テーブルからすべての空の行と列を手動で削除する

Microsoft Word には空の行や列を一括で削除する簡単な機能がないため、1 つずつ手動で選択して削除する必要があります。

削除したい空白の行または列を選択してください。
「テーブルツール」の下にある「レイアウト」タブをクリックします。
「行と列」グループで、行の削除または列の削除をクリックしてください。

ワンクリックでテーブルからすべての空の行と列を削除する

Kutools for Word は、ドキュメント内のテーブルからすべての空の行と列を一括削除するための非常に効率的なソリューションを提供します。たった1 回のクリックで、Kutools for WordDelete Rows/Columnsユーティリティを使えば、ドキュメント内のすべてのテーブル、または選択範囲内のテーブルから空の行・列を瞬時に削除でき、大幅な時間と手間を節約できます。

Kutools for Word をインストールした後、次の手順に従ってください：

「KUTOOLS PLUS > テーブル > 空白の行/列を削除」をクリックします。
「表の空白または重複する行/列を削除」ダイアログボックスが表示されます。「検索範囲」セクションで、空白行または列を削除したい範囲（)表を選択またはアクティブなドキュメント内のすべてのテーブル）を選択します。その後：
- 「行」オプションと「空白行」オプションをオンにすると、空の行が削除されます。
- または、「列」オプションと「空白列」オプションをオンにして、不要な空の列をすばやく削除しましょう。
ヒント：行と列の両方を削除する場合は、この操作を2 回繰り返してください。
処理されたテーブル数を示す確認ダイアログが表示されます。「OK」をクリックしてダイアログを閉じてください。これで、テーブルから空白行と空白列が削除されました。

Word で同じ作業をもっとスピーディーにこなしたいですか？ぜひKutools for Word をお試しください。日々の業務がぐっとラクに。

ダウンロード詳細はこちら

VBA コードを使用してテーブルからすべての空の行と列を削除する

Word のマクロ機能を使えば、ドキュメント内のテーブルから空の行と列を簡単に一括削除できます。以下の手順に従って、効率よく削除してください：

「Alt + F11」を押すと、Microsoft Visual Basic for Applications ウィンドウが開きます。

「モジュール」を「挿入」タブの下でクリックし、以下の VBA コードをモジュールウィンドウにコピー＆ペーストします。

Sub DeleteEmptyTablerowsandcolumns()
Application.ScreenUpdating = False
Dim Tbl As Table, cel As Cell, i As Long, n As Long, fEmpty As Boolean
With ActiveDocument
For Each Tbl In .Tables
n = Tbl.Columns.Count
For i = n To 1 Step -1
fEmpty = True
For Each cel In Tbl.Columns(i).Cells
If Len(cel.Range.Text) > 2 Then
fEmpty = False
Exit For
End If
Next cel
If fEmpty = True Then Tbl.Columns(i).Delete
Next i
Next Tbl
End With
With ActiveDocument
For Each Tbl In .Tables
n = Tbl.Rows.Count
For i = n To 1 Step -1
fEmpty = True
For Each cel In Tbl.Rows(i).Cells
If Len(cel.Range.Text) > 2 Then
fEmpty = False
Exit For
End If
Next cel
If fEmpty = True Then Tbl.Rows(i).Delete
Next i
Next Tbl
End With
Set cel = Nothing: Set Tbl = Nothing
Application.ScreenUpdating = True
End Sub