Sub 마지막행()
Dim i As Integer
i = Cells(Rows.Count, 2).End(xlUp).Row
' Rows.Count (행들을 세어라.)
' End(xlUp) (맨 아래까지 갔다가 데이타가 있는 위쪽으로 와라)
MsgBox i
End Sub
'엑셀' 카테고리의 다른 글
정렬 (0) | 2020.12.19 |
---|---|
VBA 셀병합 해제 (0) | 2020.08.16 |
목록의 전체범위 선택 (0) | 2019.08.28 |
VBA 속도개선 (0) | 2019.08.28 |
행열 바꾸기, 셀 테두리 지우기,수식 적용 후 0 이 보기 싫을 때 (0) | 2019.07.14 |