首页 文章

在excel的表格末尾的Vba粘贴范围

提问于
浏览 次
0

我在excel中写了这个宏 . 但是当我使用end（xldown）推荐它起作用时 . 有什么建议吗？我想要过滤一张大 table 并将其复制在表格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 excel-vba vba

1 回答

  • 0

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

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

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

    回复于

相关问题