使用范围函数中的变量删除内容

Question

  

运行时错误'1004'对象'_Global'的方法'范围'失败

我执行下面的序列时，我会遇到上述错误。我的目标是删除当前单元格范围内所有单元格的内容，直到C200。

Posit2.Select
Sheets("Sheet1").Cells(53, 1).Value = ActiveCell.Address      ' $C$52 is output
Range(ActiveCell.Address, c200).ClearContents

Answer 1

你的路线错了，

Range(ActiveCell.Address & " : C200").ClearContents

是对的

Answer 2

您也可以尝试将错误行替换为：

Range(ActiveCell, Cells(200, "C")).ClearContents

Answer 3

最终你会想要离开选择。假设Posit2是您示例中Sheet1上C52的引用，那么

Dim Posit2 as Range

set Posit2 = Worksheets("Sheet1").range("C52")

With Posit2.parent
  .Range(Posit2, .Cells(200,"C")).ClearContents
End With

前两行是为了说明，因为您应该已经拥有了这样做的代码。此外，通过引用工作表，Sheet1不需要是活动表。