excel表格末尾的Vba粘贴范围

我用excel编写了这个宏。但当我使用end（xldown）时，推荐它不起作用。有什么建议吗？ 我想要一张大桌子，把它复制到第二张纸上。 每次我想在表的末尾粘贴表（在表的最后一行之后）

这是我的vba代码：

Sub filter()
Sheets("Sheet1").Range("A1:J46371").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("Sheet1").Range("M9:W10"), CopyToRange:=Sheets("sheet2").Range("A1:J1"), _
        Unique:=False
Sheets("Sheet1").Range("A1:J46371").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("Sheet1").Range("M11:W12"), CopyToRange:=Sheets("sheet2").Range("A1:J1", Range("A1:J1").End(xlDown)).Select, _
        Unique:=False
End Sub

---

您的代码是正确的，但使用xlDown选择要复制的单元格时，只需稍作更改

Sheets("Sheet2").Range(Range("A1:J1"), Range("A1:J1").End(xlDown)).Select

---

请在CopyToRange中替换上面的代码行并检查。

我不明白，您的代码和我的代码有什么区别？我用它，它不起作用。上面说引用无效！！！！很抱歉它不起作用。它说“应用程序定义的或对象定义的错误！使用下面的代码并检查：Sub-filter（）Sheets（“Sheet1”）.Range（“A1:J46371”）.AdvancedFilter操作：=xlFilterCopy，u-CriteriaRange:=Sheets（“Sheet1”）.Range（“M9:W10”）、CopyToRange:=Sheets（“sheet2”）.Range（“A1:J1”）、u-Unique:=False Sheets（“Sheet1”）.Range”（“A1:J46371”）.Range”）.AdvancedFilter操作：=xlFilterCopy，uu标准范围：=Sheets（“Sheet1”）.Range（“M11:W12”）、CopyToRange:=Sheets（“Sheet2”）.Range（Range（“A1:J1”）、Range（“A1:J1”）.End（xlDown））.选择，唯一：=假结束Sub@user3041372：请分享您的coed如何处理我发布的代码。我使用与您编写的代码相同的代码，但它不起作用。我发现我应该编写它：带有工作表（“SHEET2”）的子筛选器（），设置a=.Range（.Range（“A1:J1”），.Range（“A1:J1”）。End（xlDown）。Offset（1，0））以工作表（“Sheet1”）结尾.Range（“A1:J46371”）.AdvancedFilterAction:=xlFilterCopy，标准范围：=Sheets（“Sheet1”）.Range（“M9:W10”），CopyToRange:=Sheets（“sheet2”）.Range（“A1:J1”），uUnique:=False Sheets（“Sheet1”）.Range（“A1:J46371”）.AdvancedFilterAction:=xlFilterCopy，标准范围：=Sheets（“Sheet1”）.Range（“M11:W12”），CopyToRange:=a，uUnique:=False-End-Sub