vba - PasteSpecial 粘贴多次

Question

我的目标是 :要过滤一些行，复制那些过滤后的行并将其粘贴到另一张纸上。
我做了两次:第一次，它运作良好，但第二次，一点也不。
在我的代码示例之前，您需要知道: wsData ---filter--> wsDataUpdated --- filter ---> wsDataUpdated2 。

问题是 :第二个过滤器很好，但是粘贴很尴尬:它在整个范围内粘贴，我的意思是:如果我在过滤器之后只有 2 行，并且我将它粘贴在 wsDataUpdated2 上，范围为 : ("A1:A100") 会粘贴 50 次!!尴尬的部分是它与我的第一个过滤器的代码完全相同，在我的第一个过滤器上，即使我的行数少于我的范围，它也不会粘贴两次或更多...顺便说一句，有一些断点，我已经看到过滤部分和复制部分是完美的。粘贴部分根本不行。

这是我的代码示例:

    wsDataUpdated.Range("B4").CurrentRegion.AdvancedFilter xlFilterInPlace, wsCriteria2.Range("A1").CurrentRegion
    wsDataUpdated.Range("A1:AG10150").SpecialCells(xlCellTypeVisible).Copy
    wsDataUpdated2.Range("A1:AG10150").PasteSpecial Paste:=xlPasteValues
    wsDataUpdated2.Range("A1:AG10150").PasteSpecial Paste:=xlPasteFormats

Answer 1

这是正常行为。尝试将 3 个单元格手动复制粘贴到 9 个单元格中:您将获得三个副本。代替

wsDataUpdated2.Range("A1:AG10150") 

和

wsDataUpdated2.Range("A1")

这应该够了吧。