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. 그런 다음 확인 버튼을 클릭하면 현재 워크시트에서 헤더만 있는 모든 빈 열이 한 번에 삭제됩니다. 스크린샷을 참조하세요:

관련 기사 더 보기:

최고의 오피스 생산성 도구

🤖	Kutools AI 도우미: 데이터 분석에 혁신을 가져옵니다. 방법: 지능형 실행   |  코드 생성  |  사용자 정의 수식 생성  |  데이터 분석 및 차트 생성  |  Kutools Functions 호출…
	인기 기능: 중복 찾기, 강조 또는 중복 표시   |  빈 행 삭제   |  데이터 손실 없이 열 또는 셀 병합   |   반올림(수식 없이) ...
	슈퍼 LOOKUP: 다중 조건 VLOOKUP  |   다중 값 VLOOKUP  |   다중 시트 조회   |   퍼지 매치 ....
	고급 드롭다운 목록: 드롭다운 목록 빠르게 생성   |  종속 드롭다운 목록   |  다중 선택 드롭다운 목록 ....
	열 관리자: 지정한 수의 열 추가  |  열 이동  |  숨겨진 열의 표시 상태 전환  |  범위 및 열 비교 ...
	추천 기능: 그리드 포커스   |  디자인 보기   |   향상된 수식 표시줄   |  통합 문서 & 시트 관리자   |  자동 텍스트 라이브러리   |  날짜 선택기   |  데이터 병합   |  셀 암호화/해독   |  목록으로 이메일 보내기   |  슈퍼 필터   |   특수 필터(굵게/이탤릭/취소선 필터 등) ...
	15대 주요 도구 세트: 12 가지 텍스트 도구(텍스트 추가, 특정 문자 삭제, ...)  |  50+ 종류의 차트(간트 차트, ...)  |  40+ 실용적 수식(생일을 기반으로 나이 계산, ...)  |  19 가지 삽입 도구(QR 코드 삽입, 경로에서 그림 삽입, ...)  |  12 가지 변환 도구(단어로 변환하기, 통화 변환, ...)  |  7 가지 병합 & 분할 도구(고급 행 병합, 셀 분할, ...)  |  ... 등 다양

Kutools는 사용자가 선호하는 언어로 이용할 수 있습니다 – 영어, 스페인어, 독일어, 프랑스어, 중국어 및40개 이상의 언어 지원!

Kutools for Excel과 함께 엑셀 능력을 한 단계 끌어 올리고, 이전에 없던 효율성을 경험하세요. Kutools for Excel은300개 이상의 고급 기능으로 생산성을 높이고 저장 시간을 단축합니다.  가장 필요한 기능을 바로 확인하려면 여기를 클릭하세요...

Kutools for Excel의 자세한 정보... 무료 다운로드...

---

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 더욱 간편하게 만듭니다

• Word, Excel, PowerPoint에서 탭 편집 및 읽기를 활성화합니다.
• 새 창 대신 같은 창의 새로운 탭에서 여러 파일을 열고 생성할 수 있습니다.
• 생산성이50% 증가하며, 매일 수백 번의 마우스 클릭을 줄여줍니다!

Office Tab의 자세한 정보... 무료 다운로드...

---

모든 Kutools 추가 기능. 한 번에 설치

Kutools for Office 제품군은 Excel, Word, Outlook, PowerPoint용 추가 기능과 Office Tab Pro를 한 번에 제공하여 Office 앱을 활용하는 팀에 최적입니다.

• 올인원 제품군 — Excel, Word, Outlook, PowerPoint 추가 기능 + Office Tab Pro
• 설치 한 번, 라이선스 한 번 — 몇 분 만에 손쉽게 설정(MSI 지원)
• 함께 사용할 때 더욱 효율적 — Office 앱 간 생산성 향상
• 30일 모든 기능 사용 가능 — 회원가입/카드 불필요
• 최고의 가성비 — 개별 추가 기능 구매 대비 절약

Kutools for Office의 자세한 정보... 무료 다운로드...