비주얼베이직(Visual Basic, VBA) 엑셀, 특정 범위에서 셀 값이 없는 셀 위치 출력하기

비주얼베이직(Visual Basic, VBA) 엑셀, 특정 범위에서 셀 값이 없는 셀 위치 출력하기

이번 포스팅은 앞선 포스팅을 활요하여, 특정 범위내에서 셀값이 없는 부분에 대해서 셀의 위치를 출력하는 방법에 대해서 포스팅을 해보고자 합니다. 앞서서, 공백을 확인하는 방법과 셀의 위치를 반환하는 방법을 활용하여 이번에는 특정 범위에서 값이 없는 셀 위치를 반환하는 방법에 대해서 이야기를 해보고자 합니다. 

 

먼저 샘플 데이터로 사용될 셀 데이터는 다음과 같습니다. 

샘플 데이터 

여기에서 특정 범위에 있는 셀들을 루프 돌면서, 셀의 값이 없는 부분에 대해서 확인을 합니다. 만약 셀의 값이 없으면 그 부분에 대해서 Address()함수를 이용하여 셀의 위치를 메시지 박스 형태로 반환 해줍니다. 

Sub CheckValEmpty()
    Debug.Print Cells(1, 1).Value
    Dim X As Integer
    Dim Y As Integer
    Dim xlimit As Integer
    Dim ylimit As Integer
    ylimit = 11
    xlimit = 6
    For X = 1 To xlimit
        
        For Y = 1 To ylimit
            Debug.Print X, Y
            Debug.Print Cells(Y, X).Value
            Set tCell = Cells(Y, X)
            
            
            If IsEmpty(Cells(Y, X).Value) = True Then
                
                MsgBox tCell.Address()
                
                
            End If
        Next
    Next
End Sub

위의 코드를 실행하면 다음과 같이 셀 값이 비어 있는 부분에 대해서 절대 주소를 메시지 박스 형태로 표현을 해줍니다. 

빈 셀값에 대해서 메시지 박스로 출력하기(절대주소)

기본 설정은 절대 주소로 표현하는 방식입니다. 하지만, 이 부분에 대해서 "RowAbsolute", "ColumnAbsolute"부분에 대해서 False 설정을 해주시면 절대주소 부분에 대해서 표시가 달라집니다. 다음과 같이 코드 부분을 약간 수정하여 실행을 해보도록 하겠습니다. 

 MsgBox tCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)

위의 코드를 실행하면 다음과 같이 위에서 보이는 부분과 달리 절대 주소를 표현하는 $ 부분이 제외된 빈 셀값이 표시가 됩니다. 

빈 셀값에 대해서 메시지 박스로 출력하기(상대주소)

이와 같은 형태로 값이 빈 셀의 위치를 확인할 수 있습니다. 

 

참고 링크 : 

엑셀, 셀 주소 확인하는 방법(행,열)

엑셀, 셀 주소 확인하는 방법(행,열)

 

비주얼베이직(Visual Basic, VBA) 엑셀, 셀 값이 있는지 여부 확인하기

비주얼베이직(Visual Basic, VBA) 엑셀, 셀 값이 있는지 여부 확인하기

 

이번 포스팅에서는 비주얼베이직(Visual Basic, VBA) 엑셀, 특정 범위에서 셀 값이 없는 셀 위치 출력하기라는 주제로 포스팅을 해봤습니다. 혹 궁금하신 점이나 문의 사항이 있으시면 언제든지 댓글 및 방명록에 글 남겨주시길 바랍니다.