excel表格末尾的Vba粘贴范围答案

【问题标题】：Vba paste range at the end of table in excelexcel表格末尾的Vba粘贴范围
【发布时间】：2014-11-21 06:25:09
【问题描述】：

我在 excel 中编写了这个宏。但是当我使用 end (xldown) 时，推荐它不起作用。有什么建议吗？我想 ro 过滤一个大表并将其复制到工作表 2 上。每次我想在表格末尾粘贴表格（在表格的最后一行之后）

这是我的 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

【问题讨论】：

标签： excel vba

【解决方案1】：

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

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

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

【讨论】：

我看不懂，你的代码和我的有什么区别？我用它，它不起作用。它说引用无效！！！！
对不起！它不起作用。它说“应用程序定义或对象定义错误！
使用下面的代码并检查： 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(Range("A1:J1"), Range( "A1:J1").End(xlDown)).Select, _ Unique:=False End Sub
@user3041372 : 请分享你的男女同校对我发布的代码的处理。
我使用与您编写的代码相同的代码，但它不起作用。我发现我应该写它：Sub filter() With Worksheets("SHEET2") Set a = .Range(.Range("A1:J1"), .Range("A1:J1").End(xlDown)。 Offset(1, 0)) 以工作表结尾("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:=a, _ Unique:=False End Sub