How to get the range to the end of the non-empty cell?

Set rng = ActiveSheet.Range("A1:A_end")

How to change the expression?

Please Login or Register  to view this content.

Originally Posted by woshichuanqilz

Set rng = ActiveSheet.Range("A1:A_end")

How to change the expression?

Try:

PHP Code: 

lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
    Set rng = ActiveSheet.Range("A1:A" & lastRow)