Excel/엑셀] 시트에서 사용된 셀 범위 구하기, 데이터 있는 셀들 주소; get Used Range Example

Wednesday, January 10, 2007

스폰서 링크

사용된 셀들의 범위를 구하여 메시지 박스에 출력하는 예제입니다.

데이터가 입력되어 있는 여러 셀들 중에서,

가장 첫번째 즉, "가장 좌측 상단의 셀"과,

마지막 셀 즉, "가장 우측 하단의 셀"의 범위를 구합니니다.

VBA매크로: 데이터 입력되어 있는 셀 영역 구하기 예제

(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)
비베 에디터에서 F5 키를 누르거나, 엑셀에서 Alt+F8 키를 누르면 VBA 매크로가 실행됩니다.

Sub getUsedRange()

MsgBox ActiveSheet.UsedRange.Address()

End Sub

위의 매크로를 실행하면 다음과 같은 식의 메시지 박스가 나옵니다:

---------------------------
Microsoft Excel
---------------------------
$B$8:$G$22
---------------------------
확인
---------------------------

가장 첫번째 셀이 B8 이고, 가장 마지막 셀이 G22 인 경우임.

R1C1 형식의 주소도 같이 출력하는 버전

Sub getUsedRange()

MsgBox ActiveSheet.UsedRange.Address() & _
Chr(13) & Chr(13) & _
ActiveSheet.UsedRange.Address(ReferenceStyle:=xlR1C1)

End Sub

이런 식의 메시지 박스가 나옵니다:

---------------------------
Microsoft Excel
---------------------------
$B$8:$G$22

R8C2:R22C7
---------------------------
확인
---------------------------

역시 가장 첫번째 셀이 B8 이고, 가장 마지막 셀이 G22 인 경우임.

☞ 오피스/엑셀(Excel)/워드(Word)/VBA 매크로

3 Comments:

At April 16, 2012 at 4:15 PM, Lufer O said...: This comment has been removed by the author.
At April 16, 2012 at 4:16 PM, Lufer O said...: 와 이 예제 써서 알수없는 이유로 10메가가 넘어버린 엑셀파일 용량을 300kb대로 줄일수 있었습니다! 정말 유용한 정보 감사드립니다..!!
At April 16, 2012 at 4:25 PM, mwultong said...: 반갑습니다 ^_^