/VBA/Excel vba first and last row and column in range

Excel vba first and last row and column in range

Dim rRange As Range
Dim rDuplicate As Range

Set rRange = ActiveSheet.UsedRange
lFirstRow = rRange.Row
lLastRow = rRange.Rows.Count + rRange.Row - 1
lFirstColumn = rRange.Column
lLastColumn = rRange.Columns.Count + rRange.Column - 1
' New reference to current range (can be truncated)
Set rDuplicate = Range(Cells(lFirstRow, lFirstColumn), _
      Cells(lLastRow, lLastColumn))

Similar codes

0 vote230 views1 answer
Vbscript check if string is empty
VBA
0 vote233 views1 answer
Excel delete ever other vba
VBA
0 vote209 views1 answer
Vba argument is set
VBA
5 votes253 views1 answer
Excel vba left word from Long Integer
VBA
0 vote259 views1 answer
Excel vba unlock sheet without password
VBA
0 vote244 views1 answer
Excel vba protect shapes
VBA
1 vote232 views1 answer
Excel vba Run a Macro every time sheet is changed
VBA
5 votes258 views1 answer
Excel vba last byte from INTEGER
VBA
0 vote241 views1 answer
Filesystemobject vba reference
VBA
3 votes239 views1 answer
Vba double quote
VBA