Wordの表から空行と空白列を削除するにはどうすればよいですか？

Author: Amanda Li Last Modified: 2025-05-23

表内の空行や空白列は、Word文書を散らかして整理されていない印象を与えることがあります。このチュートリアルでは、Word文書内の表からすべての空行と空白列を効率的に削除するいくつかの方法を紹介します。

手動で行うのが好きでも、VBAコードを使用する場合でも、ワンクリックソリューションを利用する場合でも、これらの方法は表を整理し、文書全体の外観を向上させるのに役立ちます。

手動で表からすべての空行と空白列を削除する

ワンクリックで表からすべての空行と空白列を削除する

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

手動で表からすべての空行と空白列を削除する

Microsoft Wordには空行や空白列をすばやく削除するオプションがないため、それらを個別に選択して削除する必要があります。

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

ワンクリックで表からすべての空行と空白列を削除する

Kutools for Wordは、文書内の表からすべての空行と空白列を削除する非常に効率的なソリューションを提供します。Kutools for Wordの「行/列の削除」機能を使えば、ワンクリックで文書内のすべての表または選択した表からすべての空行や空白列を迅速に削除でき、時間と労力を節約できます。

Kutools for Wordについて、AI 🤖を搭載し、100 以上の便利な機能を提供して作業を簡素化します。

今すぐダウンロード

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

「Kutools Plus」＞「表」＞「空白行/列の削除」をクリックします。
「 表の空白または重複する行/列を削除 」ダイアログボックスが表示されます。「 検索対象 」セクションで、空白行または空白列を削除したい範囲を選択します。それは「 選択された表 」または「 アクティブな文書内のすべての表」です。その後：
- 行オプションと空行オプションをチェックして空行を削除します。
- または、「列」オプションと「空白列」オプションをチェックして空白列を削除します。
ヒント: 空白行と空白列の両方を削除したい場合は、操作を2回繰り返してください。
確認ダイアログがポップアップ表示され、処理された表の数が表示されます。「OK」をクリックして閉じます。これで、表から空白行と空白列が削除されました。

Kutools for Word は、作業を効率化し、文書処理スキルを向上させる究極の 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