[VBA] 데이터가 입력된 마지막 행/열 찾기(.End)

#VBA #마지막_행 #마지막_열 #End

1. VBA 코드

Sub 마지막_행_열_찾기()
 
Dim nr As Integer, nc As Integer
 
nr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
nc = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
 
End Sub

 

2. 코드 해석

>  ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

' 현재 활성화된 Worksheet의 첫번째 열 마지막행에서 값이 입력된 셀을 만날때까지 위로 올라와 만나는 첫 번째 행 번호

1. ActiveSheet : 현재 엑셀 화면에 활성화된 Worksheet

2. Cells(행, 열) : 행/열 번호를 이용해 셀 위치 지정

    - Rows.Count : 엑셀 Worksheet의 전체 행 개수 (엑셀 2007 이후는 1,048,576)

    - 1 : 첫 번째 열

3. End(xlUp) : 지정된 셀에서 값이 입력된 셀을 만날때 까지 위로 이동

    - End(xlToLeft) : (End(1)과 같음) 값이 입력된 셀을 만날때 까지 왼쪽으로 이동

    - End(xlToRight) : (End(2)와 같음) 값이 입력된 셀을 만날때 까지 오른쪽으로 이동

    - End(xlUp) : (End(3)과 같음) 값이 입력된 셀을 만날때 까지 위로 이동

    - End(xlDown) : (End(3)과 같음) 값이 입력된 셀을 만날때 까지 아래로 이동

4. Row : 해당 셀의 행 번호 반환