엑셀 VBA - 마지막 셀 찾기, 마지막 셀 위치, 셀 위치 찾기

FOR문 돌릴때 전체 셀을 다돌기에는 시간이 아깝다.

데이터가 많으면 더욱더 컴퓨팅 시간을 줄여야 한다.

그러므로 마지막 셀위치를 알아내서 FOR문에 넣으면 좋겠다는 생각이 든다.

코드는 아래와 같다.

​

 

Sub 마지막셀찾기()

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

   MsgBox (last) ':마지막 위치를 확인한다.
   
   For d = 1 To last
       Cells(d, 2).Value = "Copy" ':옆에 행에다가 copy를 기록한다.

   Next

 

End Sub​

 

코드 테스트를 해보자

테스트에 앞서 마지막셀을 찾기 위해 숫자를 아래와 같이 채운다.

 

TEST를 위한 파일

 

그 다음 위의 코드를 실행한다. 

 

 

마지막 값이 21임을 확인했다.

 

확인을 누르면 나머지 for문이 실행되어 위와 같다.