Excel의 기준에 따라 열을 삭제하는 VBA 매크로(예제 8개)

VBA 매크로 구현 Excel에서 모든 작업을 실행하는 가장 효과적이고 빠르고 안전한 방법입니다. 이 기사에서는 VBA 매크로를 사용하여 Excel에서 기준에 따라 열을 삭제하는 방법을 보여줍니다. .

통합 문서 다운로드

여기에서 무료 연습 Excel 워크북을 다운로드할 수 있습니다.

일반 구문

VBA를 사용하여 Excel에서 열을 삭제하는 일반 구문 입니다

열(열 번호/열 주소).삭제

VBA 매크로를 사용하여 Excel의 기준에 따라 열을 삭제하는 8가지 예

이 섹션에서는 셀 값, 다른 워크시트 및 VBA가 있는 테이블을 기반으로 열을 삭제하는 방법을 배웁니다. 매크로 엑셀에서.

다음 데이터세트를 예로 사용하겠습니다.

기준 1:Excel에서 셀 값을 기반으로 열을 삭제하는 VBA 매크로

셀 값을 기반으로 한 열을 삭제하는 단계 VBA를 사용하여 Excel에서 아래에 나와 있습니다.

단계:

• Alt + F11 누르기 키보드에서 또는 개발자 -> Visual Basic 탭으로 이동합니다. Visual Basic Editor 열기 .

• 팝업 코드 창의 메뉴 표시줄에서 삽입 -> 모듈을 클릭합니다. .

• 다음 코드를 복사하여 코드 창에 붙여넣습니다.

Sub DeleteColumnsBasedOnCellValue()
Dim iCol As Long
Dim iWrk As Long
iCol = 10
For iWrk = iCol To 1 Step -1
    If Cells(1, iWrk) = 2 Then
        Columns(iWrk).Delete
    End If
Next
End Sub

이제 코드를 실행할 준비가 되었습니다.

이 코드는 셀 값 2로 시작하는 열을 삭제합니다. .

• F5 누르기 키보드 또는 메뉴 모음에서 실행 -> 하위/UserForm 실행을 선택합니다. . 작은 재생 아이콘을 클릭할 수도 있습니다. 하위 메뉴 표시줄에서 매크로를 실행합니다.

결과는 아래와 같습니다.

셀 값 2로 시작하는 열 삭제됩니다.

자세히 알아보기: Excel에서 열을 삭제하는 VBA

기준 2:Excel의 빈 셀을 기반으로 열을 삭제하는 VBA 매크로

빈 셀이 있는 열을 삭제하는 단계 Excel에서 VBA 아래에 나와 있습니다.

단계:

• 이전과 같은 방식으로 Visual Basic Editor를 엽니다. 개발자 탭 및 삽입 모듈 코드 창에서
• 코드 창에서 다음 코드를 복사하여 붙여넣습니다.

Sub DeleteBlankCells()
Range("A1:J10").Select '//range of the dataset
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireColumn.Delete
End Sub

이제 코드를 실행할 준비가 되었습니다.

• 실행 매크로.

모든 빈 셀이 있는 열 지금 삭제되었습니다.

기준 3:Excel에서 비어 있는 열을 삭제하는 VBA 매크로

빈 열로 구성된 다음 데이터세트를 살펴보세요. 이 빈 열을 삭제하는 방법을 알아보겠습니다. VBA를 사용하여 Excel에서 매크로.

단계:

• 이전과 같은 방식으로 Visual Basic Editor를 엽니다. 개발자 탭 및 삽입 모듈 코드 창에서
• 코드 창에서 다음 코드를 복사하여 붙여넣습니다.

Sub DeleteBlankCol()
Dim i As Integer
For i = 1 To 4
Columns(i + 1).Delete
Next i
End Sub

이제 코드를 실행할 준비가 되었습니다.

• 실행 매크로.

모든 빈 열 삭제됩니다.

자세히 알아보기: Excel에서 빈 열 삭제

기준 4:Excel에서 인접하지 않은 열을 제거하는 VBA 매크로

인접하지 않은 여러 열을 제거하는 단계 VBA를 사용하여 Excel에서 아래에 나와 있습니다.

단계:

• 이전과 같은 방식으로 Visual Basic Editor를 엽니다. 개발자 탭 및 삽입 모듈 코드 창에서
• 코드 창에서 다음 코드를 복사하여 붙여넣습니다.

Sub DeleteNAdjCol()
Range("C:E, G:I").Delete
End Sub

이제 코드를 실행할 준비가 되었습니다.

• 실행 매크로.

C~E(2월~4월)의 모든 이전 열 및 G to I(6월 ~ 8월) 삭제되었습니다.

유사한 수치:

• Excel에서 사용하지 않는 열을 삭제하는 방법(가장 쉬운 5가지 방법)
• 수식에 영향을 주지 않고 Excel에서 열 삭제(두 가지 방법)
• Excel에서 중복 열을 삭제하는 방법(6가지 방법)

기준 5:Excel의 특정 워크시트를 기반으로 열을 삭제하는 VBA 매크로

특정 워크시트에서 열을 삭제하는 단계 Excel에서 VBA 아래에 나와 있습니다.

단계:

• 이전과 같은 방식으로 Visual Basic Editor를 엽니다. 개발자 탭 및 삽입 모듈 코드 창에서
• 코드 창에서 다음 코드를 복사하여 붙여넣습니다.

Sub DeleteColFromSheet()
Worksheets("New Column").Select '// set the sheet name
Columns("D:F").Delete
End Sub

이제 코드를 실행할 준비가 되었습니다.

• 실행 매크로.

D~F(3월~5월) 의 모든 이전 열 "새 열에서 " 워크시트가 삭제되었습니다.

기준 6:Excel에서 테이블을 기반으로 열을 제거하는 VBA 매크로

테이블에서 열을 삭제하는 단계 Excel에서 VBA 아래에 나와 있습니다.

단계:

• 이전과 같은 방식으로 Visual Basic Editor를 엽니다. 개발자 탭 및 삽입 모듈 코드 창에서
• 코드 창에서 다음 코드를 복사하여 붙여넣습니다.

Sub DeleteColTable()
Dim srcTable As ListObject
Dim srcSheet As Worksheet
'Set the table from which column is to be deleted
Set srcTable = ActiveSheet.ListObjects("ExTable")
'Set the sheet that contains the table
Set srcSheet = Sheet8
With srcSheet
srcTable.ListColumns(5).Delete
End With
End Sub

이제 코드를 실행할 준비가 되었습니다.

• 실행 매크로.

5열(4월) 테이블에서 삭제됩니다.

기준 7:Excel의 표를 기반으로 여러 열을 제거하는 VBA 매크로

여러 삭제 단계 VBA 가 있는 Excel의 테이블 열 아래에 나와 있습니다.

단계:

• 이전과 같은 방식으로 Visual Basic Editor를 엽니다. 개발자 탭 및 삽입 모듈 코드 창에서
• 코드 창에서 다음 코드를 복사하여 붙여넣습니다.

Sub DeleteMColTable()
Dim srcTable As ListObject
Dim srcSheet As Worksheet
Dim i As Integer
'Set the table from which column is to be deleted
Set srcTable = ActiveSheet.ListObjects("ExTable2")
'Set the sheet that contains the table
Set srcSheet = Sheet9
'Run the loop twice as we need to delete 2 columns
For i = 1 To 2
With Source
srcTable.ListColumns(5).Delete
End With
Next i
End Sub

이제 코드를 실행할 준비가 되었습니다.

• 실행 매크로.

열 5 및 6(4월 및 5월) 테이블에서 삭제되었습니다.

자세히 알아보기: Excel에서 여러 열을 삭제하는 방법

기준 8:Excel의 열 머리글을 기반으로 테이블에서 열을 삭제하는 VBA 매크로

열 머리글을 기반으로 하는 표에서 열을 삭제하는 단계 Excel에서 VBA 아래에 나와 있습니다.

단계:

• 이전과 같은 방식으로 Visual Basic Editor를 엽니다. 개발자 탭 및 삽입 모듈 코드 창에서
• 코드 창에서 다음 코드를 복사하여 붙여넣습니다.

Sub DeleteColHeaderTable()
Dim srcTable As ListObject
Dim srcSheet As Worksheet
Dim i As Integer
Dim colName As String
'Set the table from which column is to be deleted
Set srcTable = ActiveSheet.ListObjects("ExTable3")
'Set the sheet that contains the table
Set srcSheet = Sheet10
'Case sensitive
colName = "Apr"
'Loop through all the columns in the table
For i = 1 To srcTable.ListColumns.Count
With srcSheet
'Check the column header
If srcTable.ListColumns(i).Name = colName Then
srcTable.ListColumns(i).Delete
Exit For
End If
End With
Next i
End Sub

이제 코드를 실행할 준비가 되었습니다.

• 실행 매크로.

열 헤더 이름이 4월 테이블에서 삭제됩니다.

결론

이 문서에서는 VBA 매크로를 사용하여 Excel에서 8가지 기준에 따라 열을 삭제하는 방법을 보여주었습니다. 이 글이 당신에게 많은 도움이 되었기를 바랍니다. 주제와 관련하여 언제든지 질문하십시오.

탐색을 좋아할 수도 있습니다.

• 수식을 삭제하지 않고 Excel에서 내용을 지우는 방법(3가지 방법)
• Excel에서 추가 열 삭제(7가지 방법)