VBA错误：对象'_Worksheet'的方法'范围'失败

我正在使用下面的代码清除A2单元中的内容，直到最后。 如果活动工作表是TimeStampWork，此代码工作正常。 但如果我在任何其他工作表，我得到错误1004，对象'_Worksheet'失败错误的方法'范围'。 我怎样才能运行相同的代码eventhough表不活跃？

Sub test1() Dim ForClr As Worksheet Set ForClr = Workbooks("Main.xlsm").Sheets("TimeStampWork") ForClr.Range("A2", Range("A2").End(xlDown)).ClearContents End Sub 

Answer 1

尝试这个

 Sub test1() Dim ForClr As Worksheet Set ForClr = Sheets("TimeStampWork") ForClr.range(ForClr.range("A2"), ForClr.range("A2").End(xlDown)).ClearContents End Sub 

Answer 2

在这个Range对象之一是不合格的，所以引用活动工作表：

 ForClr.Range("A2", Range("A2").End(xlDown)).ClearContents 

你应该写

 ForClr.Range(ForClr.Range("A2"), ForClr.Range("A2").End(xlDown)).ClearContents