[Range 개체] EntireColumn속성

지정된 범위를 포함하는 전체 열을 나타내는 Range 개체를 반환합니다.읽기 전용 속성입니다.

다음은 선택한 범위의 전체 열 범위의 주소를 출력하는 예제입니다.

Sub EntireColumnExample()
    Dim rng As Range
        
    ' 범위를 설정하기 위한 변수 선언 및 할당
    Set rng = Range("A1")
    
    ' 열 범위의 주소를 출력합니다.
    Debug.Print rng.EntireColumn.Address
End Sub

Sub EntireColumnExample()
    Dim rng As Range
        
    ' 범위를 설정하기 위한 변수 선언 및 할당
    Set rng = Range("A1:A10")
    
    ' 열 범위의 주소를 출력합니다.
    Debug.Print rng.EntireColumn.Address
End Sub

Sub EntireColumnExample()
    Dim rng As Range
        
    ' 범위를 설정하기 위한 변수 선언 및 할당
    Set rng = Range("D4")
    
    ' 열 범위의 주소를 출력합니다.
    Debug.Print rng.EntireColumn.Address
End Sub

Sub EntireColumnExample()
    Dim rng As Range
        
    ' 범위를 설정하기 위한 변수 선언 및 할당
    Set rng = Range("B2:D5")
    
    ' 열 범위의 주소를 출력합니다.
    Debug.Print rng.EntireColumn.Address
End Sub

아래 코드는 빈 열을 삽입하는 코드입니다.

Sub InsertBlankColumns()
    Dim lastColumn As Long
    Dim i As Long
    
    ' 마지막 열 인덱스를 가져옵니다.
    lastColumn = Cells(1, Columns.Count).End(xlToLeft).column
    
    ' 열을 역순으로 반복하면서 빈 열을 삽입합니다.
    For i = lastColumn To 2 Step -1
        Columns(i).Insert Shift:=xlToRight
    Next i
End Sub

아래 코드는 지정된 범위에서 빈 열이 존재하면 삭제하는 코드입니다.

Sub DeleteBlankColumns()
    Dim rng As Range
    Dim lastColumn As Long
    Dim i As Long
    
    ' 범위를 설정하기 위한 변수 선언 및 할당
    Set rng = Range("A1:G30")
    
    ' 마지막 열의 인덱스를 가져옵니다.
    lastColumn = Cells(1, Columns.Count).End(xlToLeft).column
    
    ' 범위를 역순으로 반복합니다.
    For i = lastColumn To 1 Step -1
                
        ' 해당 열의 값이 모두 비어 있는지 확인합니다.
        If Application.CountA(Columns(i).EntireColumn) = 0 Then
            Columns(i).Delete
            Else
        End If
    Next i
End Sub