컴알못/VBA
[VBA] 데이터가 입력된 마지막 행/열 찾기(.End)
난프로
2023. 8. 13. 13:20
#VBA #마지막_행 #마지막_열 #End
1. VBA 코드
|
1
2
3
4
5
6
7
8
|
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
|
cs |
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 : 해당 셀의 행 번호 반환