Skip to content
컴퓨터잡담
2011.10.14 18:29

Excel VBA) 엑셀 데이터 범위 찾아내기

조회 수 15265 추천 수 0 댓글 0
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄

Excel VBA) 엑셀 데이터 범위 찾아내기

마지막 행과 마지막 열 찾아내기

Sub test()
   MsgBox LastRow
   MsgBox ActiveSheet.UsedRange.Columns.Count
End Sub
Function LastRow() As Long
   s = StrReverse(ActiveSheet.UsedRange.Address)
   n = InStr(s, "$") - 1
   s = Left(s, n)
   s = StrReverse(s)
   LastRow = Val(s)
End Function




Sub getUsedRange()

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

End Sub



Sub getUsedRange()

  MsgBox ActiveSheet.UsedRange.Address() & Chr(13) & Chr(13) &

  
MsgBox ActiveSheet.UsedRange.Address(ReferenceStyle:=xlR1C1)


End Sub



로그인 후 댓글쓰기가 가능합니다.

?

http://urin79.com

우린친구블로그

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


이 PC에는 나눔글꼴이 설치되어 있지 않습니다.

이 사이트를 나눔글꼴로 보기 위해서는
나눔글꼴을 설치해야 합니다.

설치 취소