Skip to content

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에는 나눔글꼴이 설치되어 있지 않습니다.

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

설치 취소