Excel VBA – select到列的结尾减去两行

我正处在一个从单元格开始的情况，E9说，我想select列的末尾除了我不想包括列中的最后2个单元格。

所以例如

A B C D E 

我想在列中select范围A：C，但不是D和E.

试过

 ActiveSheet.Range("E9", ActiveSheet.Range("E9").End(xlUp)).Select 

但不知道如何砍掉最后两个单元格

Answer 1

 Range("E9", Cells(Rows.Count, "E").End(xlUp).Offset(-2)).Select 

虽然作为一个经验法则，你应该避免select语句。

Answer 2

 Dim r as range set r = activesheet.range(activesheet.range("A1"), _ activesheet.cells(rows.count,1).end(xlup)) if r.rows.count>2 then set r=r.resize(r.rows.count-2,1)