헤더가 있는 빈 열을 Excel에서 어떻게 삭제합니까?

여러 열이 포함된 대규모 워크시트가 있지만, 일부 열에는 헤더만 포함되어 있고, 이제 헤더만 있는 이러한 빈 열을 아래 스크린샷과 같이 삭제하려고 합니다. 이 작업을 Excel에서 빠르고 쉽게 해결할 수 있을까요?

VBA 코드를 사용하여 헤더가 있는 빈 열 삭제하기

Kutools for Excel을 사용하여 범위 / 워크시트 / 통합 문서에서 여러 개의 빈 열 삭제하기

VBA 코드를 사용하여 헤더가 있는 빈 열 삭제하기

Excel에서는 이를 처리하는 직접적인 방법은 없으며 수동으로 하나씩 삭제하는 방법 밖에 없습니다. 하지만 여기서는 다음과 같은 코드를 소개해 드리겠습니다.

1. ALT + F11 키를 누르면 Microsoft Visual Basic for Applications 창이 열립니다.

2. Insert > Module을 클릭하고, 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 헤더가 있는 빈 열 삭제하기:

Sub Macro1()
'updateby Extendoffice
    Dim xEndCol As Long
    Dim I As Long
    Dim xDel As Boolean
    On Error Resume Next
    xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    If xEndCol = 0 Then
        MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    For I = xEndCol To 1 Step -1
        If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
            Columns(I).Delete
            xDel = True
        End If
    Next
    If xDel Then
        MsgBox "All blank columns with only headers are deleted.", vbInformation, "Kutools for Excel"
    Else
        MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = True
End Sub

3. 그런 다음 F5 키를 눌러 이 코드를 실행하면, 헤더가 있는 빈 열이 삭제될 것이라는 알림 상자가 나타납니다.

4. 확인을 클릭하면 현재 워크시트에서 헤더만 있는 모든 빈 열이 한 번에 삭제됩니다.

참고: 빈 열이 있으면 그것도 함께 삭제됩니다.

Kutools for Excel을 사용하여 범위 / 워크시트 / 통합 문서에서 여러 개의 빈 열 삭제하기

때로는 단순히 빈 열만 삭제해야 할 때가 있습니다. Kutools for Excel의 숨김(표시됨) 행 및 열 삭제 기능을 사용하면 이 작업을 손쉽게 완료할 수 있습니다.

Kutools for Excel 설치 후, 다음 단계를 수행하세요:

1. 삭제해야 할 빈 열을 포함한 열 범위를 선택합니다.

2. 그런 다음 Kutools > Delete > Delete Hidden (Visible) Rows & Columns를 클릭하세요. 스크린샷 참조:

3. Delete Hidden (Visible) Rows & Columns 대화 상자에서 필요에 따라 Look in 드롭다운에서 삭제 범위를 선택하고, Delete type 섹션에서 Columns를 선택한 다음, Detailed type 섹션에서 Blank columns를 선택합니다. 스크린샷 참조:

4. Ok 버튼을 클릭하면 빈 열만 즉시 삭제됩니다. 스크린샷 참조:

팁: 이 강력한 기능을 사용하면 필요에 따라 빈 행, 표시되는 열 또는 행, 숨겨진 열 또는 행도 삭제할 수 있습니다.