Excel VBA - 选择列末尾减去两行

Question

我处于这样一种情况，我想从一个单元格开始，E9说，我想选择下到列的末尾除了我不想在列中包含最后2个单元格。< / p>

所以例如

A
B
C
D
E

我想在列中选择范围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)