Word에서 표의 빈 행과 열을 제거하는 방법은 무엇입니까?

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

표에 있는 빈 행과 열은 Word 문서를 복잡하고 정리되지 않게 보이게 할 수 있습니다. 이 튜토리얼에서는 Word 문서의 표에서 모든 빈 행과 열을 효율적으로 제거하는 여러 가지 방법을 보여드리겠습니다.

수동으로 작업하길 원하든, VBA 코드를 사용하길 원하든, 아니면 한 번의 클릭으로 해결하길 원하든, 이러한 방법들은 표를 정리하고 문서의 전반적인 외관을 개선하는 데 도움이 될 것입니다.

표에서 모든 빈 행과 열을 수동으로 제거하기

한 번의 클릭으로 표에서 모든 빈 행과 열 제거하기

VBA 코드를 사용하여 표에서 모든 빈 행과 열 제거하기

표에서 모든 빈 행과 열을 수동으로 제거하기

Microsoft Word에는 빈 행과 열을 빠르게 제거할 수 있는 옵션이 없으므로 하나씩 수동으로 선택하고 삭제해야 합니다.

삭제하려는 빈 행이나 열을 선택하세요.
표 도구 아래에서 레이아웃 탭을 클릭합니다.
행 및 열 그룹에서 행 삭제 또는 열 삭제를 클릭합니다.

한 번의 클릭으로 표에서 모든 빈 행과 열 제거하기

Kutools for Word는 문서 내 표에서 모든 빈 행과 열을 제거하는 매우 효율적인 솔루션을 제공합니다. Kutools for Word의 행/열 삭제 기능을 사용하면 한 번의 클릭으로 문서의 모든 표 또는 선택된 표에서 빈 행과 열을 신속하게 제거할 수 있어 시간과 노력을 절약할 수 있습니다.

Kutools for Word,AI ?가 탑재되어 있으며, 100개 이상의 유용한 기능을 제공하여 작업을 간소화합니다.

지금 다운로드

Kutools for Word 설치 후 다음 단계를 따르세요:

Kutools 플러스 > 표 > 빈 행/열 삭제를 클릭합니다.
The 표에서 빈 행 또는 중복 행/열 삭제 대화 상자가 나타납니다. 검색 위치 섹션에서 빈 행이나 열을 제거할 범위를 선택하세요. 선택할 수 있는 범위는 선택된 표 또는 활성 문서의 모든 표입니다. 그런 다음:
- 빈 행을 제거하려면 행 옵션과 빈 행 옵션을 체크하세요.
- 또는 빈 열을 제거하려면 열 옵션과 빈 열 옵션을 체크하세요.
팁: 빈 행과 열을 모두 삭제하려면 작업을 두 번 반복하세요.
확인 대화 상자가 팝업되어 처리된 표의 수가 표시됩니다. 확인을 클릭하여 닫습니다. 이제 표에서 빈 행과 열이 제거되었습니다.

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