Excel에서 데이터가 있는 마지막 행 또는 열을 어떻게 찾나요?

대규모 워크시트에서 값을 포함하는 마지막 행이나 열을 빠르고 쉽게 확인하려면 스크롤 막대를 드래그하여 찾을 수 있습니다. 하지만 워크시트에 수천 개의 데이터 행이 있다면 이 작업은 번거로울 수 있습니다. 이 문서에서는 이 작업을 해결하기 위한 유용한 VBA 코드 몇 가지를 소개하겠습니다.

VBA 코드를 사용하여 데이터가 있는 마지막 행 또는 열 찾기
Kutools for Excel을 사용하여 마지막 행 또는 열 찾기 및 선택하기

VBA 코드를 사용하여 데이터가 있는 마지막 행 또는 열 찾기

우리 대부분은 Ctrl + End 키를 눌러 마지막 셀을 찾아 마지막 행과 열을 확인하는 방법을 고려할 수 있습니다. 그러나 데이터 범위 아래에 서식이 지정된 셀이 있는 경우, 이 바로 가기 키는 정확한 값이 있는 셀을 찾지 못할 수 있습니다. 따라서 여기서는 다음 VBA 코드를 사용하십시오.

1. 데이터가 있는 마지막 행 또는 열을 확인하고자 하는 워크시트를 활성화합니다.

2. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

3. 그런 다음 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 데이터가 있는 마지막 행 찾기

Sub sblastRowOfASheet()
'Update 20140603
Dim xLastRow As Long
xLastRow = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Row
MsgBox "Last Used Row: " & xLastRow
Do While Application.CountA(ActiveSheet.Rows(xLastRow)) = 0 And xLastRow <> 1
    xLastRow = xLastRow - 1
Loop
MsgBox "Last Row with Data: " & xLastRow
End Sub

4. 그런 다음 F5 키를 눌러 이 코드를 실행하면 사용된 범위의 행 번호를 알려주는 메시지 상자가 나타납니다. 스크린샷 참조:

5. 확인 버튼을 계속 클릭하면, 값이 있는 마지막 행 번호가 아래 스크린샷에 표시된 것처럼 나타납니다.

참고: 데이터가 있는 마지막 열을 찾으려면 다음 코드를 적용하십시오:

VBA 코드: 데이터가 있는 마지막 열 찾기

Sub sblastcolumnOfASheet()
'Update 20140603
Dim xLastcolumn As Long
xLastcolumn = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Column
MsgBox "Last Used column: " & xLastcolumn
Do While Application.CountA(ActiveSheet.Columns(xLastcolumn)) = 0 And xLastcolumn <> 1
    xLastcolumn = xLastcolumn - 1
Loop
MsgBox "Last column with Data: " & xLastcolumn
End Sub

Kutools for Excel을 사용하여 마지막 행 또는 열 찾기 및 선택하기

Excel에서 직접 데이터가 있는 마지막 행 또는 열을 찾고 선택하려면 Kutools for Excel의 마지막 행 선택 및 마지막 열 선택 기능을 활용할 수 있습니다. 다음과 같이 진행하십시오.

1. 데이터가 있는 마지막 행을 찾고 선택하려면 Kutools > 선택 > 마지막 셀 선택 > 마지막 행을 클릭합니다. 스크린샷 참조:

참고: 데이터가 있는 마지막 열을 찾고 선택하려면 Kutools > 선택 > 마지막 셀 선택 > 마지막 열을 클릭하십시오.

그러면 현재 워크시트에서 데이터가 있는 마지막 행 또는 열이 즉시 찾고 선택됩니다.

데모: Kutools for Excel을 사용하여 마지막 행 또는 열 찾기 및 선택하기