/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 vote353 views1 answer
Get current year vb
VBA
13 votes481 views2 answers
Vba write text file
VBA
0 vote351 views1 answer
Excel vba round to whole number
VBA
0 vote337 views1 answer
Dlete rows with blanks and space " " vba
VBA
0 vote374 views2 answers
Vb.net include quotes in string
VBA
20 votes493 views1 answer
Excel vba factorial
VBA
1 vote368 views1 answer
Excel vba Populating a combobox on a userform from a range of cells
VBA
0 vote370 views1 answer
Excel vba combine ranges
VBA
1 vote329 views1 answer
Excel vba get column name from number
VBA
0 vote338 views1 answer
Reset border color textbox vba
VBA