엑셀 VBA 실제 사용 중인 영역의 경계 선택하기

S Y N O P S I S #VBA로 사용 중인 영역의 경계 선택하기

• 보통 사용 중인 영역을 Application.UsedRange로 설정하여 작업을 수행하게 되는데,
• 간혹 엑셀 시트를 만지다보면 데이터가 없는 영역인데도 불구하고 UsedRange가 선택하는 경우가 있다.
• 이 경우에는 셀 서식이 변경되었거나 변경 후 삭제를 했으나 저장을 하지 않은 경우 UsedRange로 인식할 수 있다.
• 이를 해결하기 위해 UsedRange가 아닌 실제 데이터 값만 들어 있는 UsingRange를 인식하도록 구현한 매크로이다.

VBA Code

Option Explicit
Sub usingRng()

Dim firstRow As Long
Dim firstCol As Long
Dim lastRow As Long
Dim lastCol As Long


firstRow = Cells.Find(what:="*", searchorder:=xlByRows, searchdirection:=xlNext).Row
firstCol = Cells.Find(what:="*", searchorder:=xlByColumns, searchdirection:=xlNext).Column

lastRow = Cells.Find(what:="*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
lastCol = Cells.Find(what:="*", searchorder:=xlByColumns, searchdirection:=xlPrevious).Column

Range(Cells(firstRow, firstCol), Cells(lastRow, lastCol)).Select

End Sub

매크로 실행 동영상

# 없음.

 Copyright (2018) Ruahneuma. All Rights Reserved.