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

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

조회 수 12607 추천 수 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



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

?

List of Articles
번호 분류 제목 날짜 조회 수
6 컴퓨터잡담 ExCEL VBA) 함수만들기 1 2011.09.25 11961
5 컴퓨터잡담 ExCEL VBA) 중복된 데이터 추출하기 4 2011.09.25 16128
4 컴퓨터잡담 ExCEL VBA) 파일을 열지않고 값 읽어오기 23 2011.09.25 17227
3 컴퓨터잡담 EXCEL) 매크로 공부하기 2011.09.25 10590
2 컴퓨터잡담 Excel에서 틀 고정 방법 2010.09.04 16874
1 컴퓨터잡담 excel 2007에서 공동 작업하기 2010.02.12 21871
Board Pagination Prev 1 2 Next
/ 2

http://urin79.com

우린친구블로그

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


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

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

설치 취소