范围结束xldown不工作

我试图select一行，然后CtrlShift结束了，但没有。select等…

Set rng = wsDATA.Range("A8").EntireRow Set rng = Range(rng, rng.End(xlDown)) 

但是我在第二行得到一个Application Defined or Object Defined Error 。 为什么是这样？

Answer 1

我经常提醒的一件事是在遇到问题时重新阅读代码，并确保一切都合格。

在这种情况下，我应该在wsDATA之前使用我的工作表对象wsDATA

  Set rng = wsDATA.Range("A8:A8").EntireRow Set rng = wsDATA.Range(rng, rng.End(xlDown))