Excel vba last 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 vote180 views1 answer
Excel vba arrondir
VBA
0 vote192 views1 answer
Make all controls in an area not visable vb
VBA
0 vote209 views1 answer
Vba sort the data Z to A
VBA
0 vote206 views1 answer
Vba extract filename from path
VBA
0 vote220 views1 answer
Excel vba add reference programmatically
VBA
1 vote185 views2 answers
Excel vba password protect
VBA
5 votes205 views1 answer
Excel-vba get integer high byte
VBA
0 vote202 views1 answer
Faire appel à la mise en forme conditionnelle vba excel
VBA
0 vote199 views1 answer
Vlookup columns not next to each other
VBA
6 votes206 views1 answer
Excel vba check if a string only contains alpha characters
VBA