Excel에서 여러 개의 빈 열을 빠르게 삭제하는 방법은 무엇입니까?

때로는 웹 페이지, CSV, 텍스트 등에서 Microsoft Excel로 데이터를 가져올 때 많은 빈 열이 포함될 수 있습니다. 각 빈 열을 하나씩 삭제하는 것은 시간이 많이 소요될 수 있습니다. 따라서 우리는 이 문제를 해결하기 위한 쉬운 방법을 찾습니다. 이 문서에서는 여러 개의 빈 열을 빠르게 삭제할 수 있는 몇 가지 유용한 팁을 모았습니다.

수식을 사용하여 워크시트에서 여러 개의 빈 열 삭제

VBA 코드를 사용하여 워크시트에서 여러 개의 빈 열 삭제

Kutools for Excel을 사용하여 선택한 범위 / 현재 시트 / 전체 통합 문서에서 여러 개의 빈 열 삭제

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

수식을 사용하여 워크시트에서 여러 개의 빈 열 삭제

Excel에서 열이 비어 있는지 여부를 식별하기 위해 수식을 적용한 다음 정렬 기능을 사용하여 모든 빈 열을 함께 정렬한 후 한 번에 삭제할 수 있습니다. 아래 단계를 따르세요:

1. 데이터 범위의 맨 위에 새 행을 추가하세요. 스크린샷을 참조하세요:

2. 그런 다음 아래 수식을 A1 셀에 입력하고 채우기 핸들을 오른쪽으로 드래그하여 다른 셀에도 이 수식을 적용합니다. 열이 비어 있으면 TRUE가 표시되고 그렇지 않으면 FALSE가 표시됩니다. 스크린샷을 참조하세요:

3. 도우미 행을 포함한 데이터 범위를 선택한 다음 "데이터" > "정렬"을 클릭하세요. 스크린샷을 참조하세요:

4. 나타난 "정렬" 대화 상자에서 "옵션" 버튼을 클릭하고 "정렬 옵션" 대화 상자에서 "왼쪽에서 오른쪽으로 정렬" 옵션을 선택하세요. 스크린샷을 참조하세요:

5. "확인" 버튼을 클릭하여 "정렬" 대화 상자로 돌아간 다음 "정렬 기준" 드롭다운에서 "1행"을 선택하고 "정렬 기준" 섹션에서 "셀 값"을 선택하고 "순서" 섹션에서 "가장 큰 값부터 가장 작은 값으로"를 선택하세요. 스크린샷을 참조하세요:

6. 이제 모든 빈 열이 데이터의 왼쪽으로 정렬되었습니다. 이제 모든 열을 선택하고 마우스 오른쪽 버튼을 클릭한 다음 "삭제"를 선택하여 이러한 빈 열을 한 번에 삭제하면 됩니다. 스크린샷을 참조하세요:

VBA 코드를 사용하여 워크시트에서 여러 개의 빈 열 삭제

VBA 매크로를 사용하려면 훨씬 더 쉬워집니다. 다음 VBA 코드가 도움이 될 수 있습니다. 아래 단계를 따라주세요:

1. Excel에서 "Alt + F11" 키를 누르면 "Microsoft Visual Basic for Applications" 창이 열립니다.

2. "삽입" > "모듈"을 클릭하고 모듈 창에 다음 매크로를 붙여넣으세요.

VBA 코드: 선택 항목에서 여러 개의 빈 열 삭제:

Sub DeleteEmptyColumns()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Columns.Count To 1 Step -1
    Set rng = InputRng.Cells(1, i).EntireColumn
    If Application.WorksheetFunction.CountA(rng) = 0 Then
        rng.Delete
    End If
Next
Application.ScreenUpdating = True
End Sub

3. F5 키를 눌러 이 매크로를 실행하고 나타나는 대화 상자에서 작업 범위를 선택하세요. 스크린샷을 참조하세요:

4. 확인을 클릭하면 선택 항목의 모든 빈 열이 제거됩니다. 스크린샷을 참조하세요:

Kutools for Excel을 사용하여 선택한 범위 / 현재 시트 / 전체 통합 문서에서 여러 개의 빈 열 삭제

Kutools for Excel의 숨겨진(표시된) 행 및 열 삭제 유틸리티를 사용하면 여러 개의 빈 행 또는 열을 한 번에 빠르게 제거할 수 있습니다.

Kutools for Excel 설치 후에는 다음과 같이 하세요:

1. "Kutools" > "삭제" > "숨겨진(표시된) 행 및 열 삭제"를 클릭하세요. 스크린샷을 참조하세요:

2. "숨겨진(표시된) 행 및 열 삭제" 대화 상자에서 "검색 위치" 드롭다운 목록에서 작업을 적용할 범위를 지정하세요. (선택한 범위를 선택한 경우 먼저 사용할 범위를 선택해야 합니다.) 그리고 "삭제 유형"에서 "열"을 선택하고 "자세한 유형"에서 "빈 열"을 선택하세요. 스크린샷을 참조하세요:

3. 확인을 클릭하면 선택한 범위에서 빈 열이 삭제됩니다. 스크린샷을 참조하세요:

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

때로는 워크시트에서 헤더만 있는 모든 빈 열을 삭제하고 싶을 수 있습니다. 다음 VBA 코드가 이를 도와줄 수 있으며, 다음 단계를 따라주세요:

1. Excel에서 "Alt + F11" 키를 누르면 "Microsoft Visual Basic for Applications" 창이 열립니다.

2. "삽입" > "모듈"을 클릭하고 모듈 창에 다음 매크로를 붙여넣으세요.

VBA 코드: 헤더가 있는 모든 빈 열 삭제

Sub deleteblankcolwithheader()
'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 column(s) with only a header row have been 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. 그런 다음 확인 버튼을 클릭하면 현재 워크시트에서 헤더만 있는 모든 빈 열이 한 번에 삭제됩니다. 스크린샷을 참조하세요:

관련 기사 더 보기: