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和.clear内容都会导致错误状态，如果我在清除范围后尝试粘贴。

Answer 1

清除 J7：O100 后，选择 J6 并点击 [ctrl]+[向下箭头]。试着再往下走一排。那是您尝试粘贴的地方，如果您按照我的指示进行操作，问题应该非常明显。

用

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

这是从下往

上看的，从下往下选择一行，而不是从上到下(这似乎是J1048576的，不能向下移动一行，更不用说有空间粘贴了(。