VBA清除功能后VBA粘贴功能抛出错误

Question

我有一个高级过滤器，用于对大型数据集进行排序。

过滤器正在将过滤后的数据放入单独的工作表中。

我有一个VBA宏，它允许我突出显示我想要使用的过滤器部分，并将其粘贴到与过滤器表相邻的范围内。

目前我使用的是非常简单的VBA。 活动选择的副本并粘贴到指定Cell之后的下一个打开行。单元格是一行标题，对应于正在进行复制选择的表格的标题。

 Sub CopyPaste()
      Selection.Copy
      ActiveSheet.Range("J6").End(xlDown).Offset(1, 0).Select
      ActiveSheet.Paste
 End Sub

清楚很简单。

Sub ClearTable()

    ActiveSheet.Range("J7:O100").Clear

End Sub

运行清除后，我收到错误。

获取运行时错误'1004，应用程序定义或对象定义错误。

编辑：澄清。 .clear和.clearcontents都导致错误状态如果我在清除范围后尝试粘贴。

Answer 1

在J7：O100清除后，选择J6并点击[ctrl] + [向下箭头]。再试一次，再往前走一排。这就是你要粘贴的地方，如果按照我的指示，问题应该是非常明显的。

使用，

Selection.Copy Destination:=ActiveSheet.Cells(Rows.Count, "J").End(xlUp).Offset(1, 0)

这从下往上看并选择1行而不是从上往下（这似乎是J1048576并且不能向下移动，更不用说有空间进行粘贴）。