End 함수를 활용한 마지막 데이터 확인

End(xlUp)

End를 활용하여 마지막 데이터를 확인할 수 있습니다. 아래 예제는 End와 Offset을 사용하여 열의 마지막 데이터를 확인하는 코드입니다.

Sub LastDataExample()
    Dim lastCell As Range

    ' A열의 마지막 데이터 셀 찾기
    Set lastCell = Cells(Rows.Count, "A").End(xlUp)

    ' 마지막 데이터 출력
    MsgBox "A열의 마지막 데이터: " & lastCell.Value
End Sub

위 코드에서 Sub는 매크로(서브루틴)을 정의하는 키워드이며, LastDataExample은 이 매크로의 이름입니다.

다음으로 오는 줄에서는 lastCell이라는 변수를 Range 객체로 선언합니다.

A열의 마지막 데이터 셀을 찾기 위해 Cells(Rows.Count, "A").End(xlUp) 구문을 사용합니다. 여기서 Rows.Count는 현재 워크시트에 있는 전체 행 수를 나타내며, "A"는 A열을 나타냅니다. .End(xlUp)은 아래 방향으로 비어있지 않은 다음 셀까지 이동하여 검색합니다. 따라서 이렇게 찾아진 셀이 변수 lastCell에 할당됩니다.

마지막으로, 메시지 박스를 통해 A열의 마지막 데이터 값을 출력하도록 설정되어 있습니다. 예제에서는 메시지 박스가 팝업되며, A열의 마지막 데이터가 보여집니다.

실행 결과로서, A열에서 가장 아래에 있는 비어있지 않은 셀(데이터가 있는 셀)이 찾아져 해당 값이 메시지 박스에 나타납니다.

End(xlToLeft)

End(xlToLeft)을 사용하여 특정 셀을 기준으로 왼쪽 방향으로 마지막 데이터를 확인할 수 있습니다. 아래 예제는 End(xlToLeft)를 활용하여 특정 셀을 기준으로 왼쪽 방향으로 마지막 데이터를 확인하는 코드입니다.

Sub LastDataToLeftExample()
    Dim lastCell As Range

    ' 현재 선택된 셀을 기준으로 왼쪽 방향의 마지막 데이터 셀 찾기
    Set lastCell = Selection.End(xlToLeft)

    ' 마지막 데이터 출력
    MsgBox "왼쪽 방향의 마지막 데이터: " & lastCell.Value
End Sub

위 코드에서 Sub는 매크로(서브루틴)을 정의하는 키워드이며, LastDataToLeftExample은 이 매크로의 이름입니다.

다음으로 오는 줄에서는 lastCell이라는 변수를 Range 객체로 선언합니다.

현재 선택된 셀을 기준으로 왼쪽 방향의 마지막 데이터 셀을 찾기 위해 Selection.End(xlToLeft) 구문을 사용합니다. 여기서 Selection은 현재 선택된 범위를 나타내며, .End(xlToLeft)은 왼쪽 방향으로 비어있지 않은 다음 셀까지 이동하여 검색합니다. 따라서 이렇게 찾아진 셀이 변수 lastCell에 할당됩니다.

마지막으로, 메시지 박스를 통해 왼쪽 방향의 마지막 데이터 값을 출력하도록 설정되어 있습니다. 예제에서는 메시지 박스가 팝업되며, 왼쪽 방향에 있는 마지막 데이터가 보여집니다.

실행 결과로서, 현재 선택된 셀(기준셀)에서 시작하여 해당 위치에서 가장 가까운 비어있지 않은 왼쪽 인접셸(데이터가 있는 셸)이 찾아져 해당 값이 메시지 박스에 나타납니다.