엑셀 VBA - 마지막 셀 위치 찾기/ 마지막 열/ 마지막 행/ 셀 찾기

지난번에 마지막 셀 찾기를 너무 내가 썼던거만 올려서 다른거 쓸데 헷갈린다.

 

좀 더 정리해 놓자.

 

 

*코드*

---------------------------------------------------------------------------------------------------------------

Sub 마지막셀찾기()

     

     last1 = Cells(Rows.Count, 1).End(xlUp).Row            ': 2열의 값이 들어있는 마지막 셀을 찾는다.

    last2 = Cells(1, 1).End(xlDown).Row                        ': 2열의 값이 들어있는 첫번째 셀을 찾는다.

    last3 = Cells(3, Columns.Count).End(xlLeft).Column  ': 3행의 값이 들어있는 마지막 셀을 찾는다.

    last4 = Cells(3,  1).End(xlRight).Column                  ': 3행의 값이 들어있는 첫번째 셀을 찾는다.

 

     MsgBox (last1) ':마지막 위치를 확인한다.

    MsgBox (last2) ':마지막 위치를 확인한다.

    MsgBox (last3) ':마지막 위치를 확인한다.

    MsgBox (last4) ':마지막 위치를 확인한다.

End Sub

 

---------------------------------------------------------------------------------------------------------------

 

코드는 간단하다.

 

cell(행,열)의 위치에서 up 할건지 down할건지 왼쪽으로 갈건지 end함수로 표현하고 그다음 row,column 으로

 

열을 가져올건지 행을 가져와서 넣을건지 정해준다.

 

그리고  last 변수에 들어간 값을 메세지 박스로 보여준다.

 

코드를 사용해보자. 아래는 예제파일~

 

예제 파일

 

표를 이용해서 위아래 위치가 어디인지 확인해보자.

 

저 위의 코드를 돌려보면 아래와 같다.

 

last1

last2

 

last3

 

last4

 

last 1번은 맨아래에서 올라온 위치가 30 행이고

 

last2번은 위에서 내려와 값이 있는 위치가 3이고

 

last 3번은 맨 오른쪽에서 왼쫄으로 와서 i열 즉 9이고

 

last 4번은 맨 왼쪽에서 오른쪽으로 와서 b열 즉 2이다.

 

정리끝~!!