Vba:마지막으로 사용한 열을 찾는 방법

VBA에서 다음 기본 구문을 사용하여 Excel 시트에서 마지막으로 사용된 열을 찾을 수 있습니다.

 Sub FindLastColumn()
Range(" A14 ") = Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column
End Sub

이 특정 예는 현재 시트에서 마지막으로 사용된 열을 검색하고 A14 셀에 결과를 반환합니다.

대신 메시지 상자의 마지막 열을 표시하려면 다음 구문을 사용할 수 있습니다.

 Sub FindLastColumn()
Dim LastCol As Long
    
LastCol=Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column

MsgBox " Last Column: " & LastCol
End Sub

다음 예에서는 이러한 각 방법을 실제로 사용하는 방법을 보여줍니다.

관련 항목: VBA: 마지막으로 사용한 줄을 찾는 방법

예 1: VBA를 사용하여 마지막 열을 찾고 결과를 셀에 표시

다양한 농구 선수에 대한 정보가 포함된 다음과 같은 데이터 세트가 Excel에 있다고 가정해 보겠습니다.

다음 매크로를 생성하여 이 Excel 시트에 사용된 마지막 열을 찾고 A14 셀에 결과를 표시할 수 있습니다.

 Sub FindLastColumn()
Range(" A14 ") = Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column
End Sub

이 매크로를 실행하면 다음과 같은 출력이 나타납니다.

셀 A14 에는 값 2 가 포함되어 있습니다.

이는 이 특정 시트에 사용된 마지막 열이 열 2임을 알려줍니다.

사용된 열 앞에 빈 열이 있는 경우 이 매크로는 항상 마지막으로 사용된 열을 찾는다는 점도 주목할 가치가 있습니다.

예를 들어 다음 데이터세트에서 매크로를 실행한다고 가정해 보겠습니다.

셀 A14 에는 값이 포함된 마지막 열이므로 값 5가 포함되어 있습니다.

예 2: VBA를 사용하여 마지막 열을 찾고 메시지 상자에 결과 표시

대신 시트에서 마지막으로 사용된 열을 찾고 메시지 상자에 열 번호를 표시한다고 가정해 보겠습니다.

이를 위해 다음 매크로를 생성할 수 있습니다:

 Sub FindLastColumn()
Dim LastCol As Long
    
LastCol=Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column

MsgBox " Last Column: " & LastCol
End Sub

이 매크로를 실행하면 다음과 같은 출력이 나타납니다.

메시지 상자는 시트에 사용된 마지막 열이 열 2 임을 알려줍니다.

참고 : 여기에서 VBA Find 메서드에 대한 전체 설명서를 찾을 수 있습니다.

추가 리소스

다음 자습서에서는 VBA에서 다른 일반적인 작업을 수행하는 방법을 설명합니다.

VBA:범위의 평균값을 계산하는 방법
VBA:범위 내 행 수를 계산하는 방법
VBA: 범위 내 중복 값을 제거하는 방법