컴퓨터잡담

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

by 디케 posted Oct 14, 2011
?

단축키

Prev이전 문서

Next다음 문서

ESC닫기

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

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