/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 vote216 views1 answer
Vba add spaces
VBA
0 vote198 views1 answer
Vba format currency
VBA
0 vote193 views1 answer
Compare dates vb
VBA
4 votes212 views1 answer
Excel vba how to programmatically remove the marching ants after range copy
VBA
0 vote169 views1 answer
Vba select file in folder
VBA
0 vote223 views1 answer
Excel vba add reference programmatically
VBA
1 vote198 views1 answer
Vba declare api 64 bit 32 bit
VBA
4 votes189 views1 answer
Excel formula for last non-empty cell in a column
VBA
2 votes202 views2 answers
Vba code to remove duplicates from a column
VBA
0 vote190 views1 answer
Vba argument is set
VBA