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

我所处的情况是，我想从一个单元格开始，比如E9，我想向下选择到列的末尾，但我不想在列中包含最后两个单元格

比如说

A
B
C
D
E

我想在列中选择范围A:C，但不选择D和E

试过

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

但我不知道如何去掉最后两个细胞

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

---

尽管根据经验，您应该避免使用Select语句。

Select（范围（A1）.end（xldown）.offset（-2,0））请告诉我们您尝试过什么？询问代码的问题必须表明对正在解决的问题的最低理解。包括尝试的解决方案、为什么它们不起作用以及预期的结果。另见：@Jean-FrançoisCorbett-对不起，你是对的。下面是我想要的正确语法：

Range（Range（“A1”）、Range（“A1”）。End（xlDown）。Offset（-2，0））。选择

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)