Excel数组覆盖，需要追加

Question

所有，我一直在谷歌和尝试，然后更多的谷歌和尝试。我试图搜索多个工作表的负值，复制整个行(值而不是公式)，然后将它们全部添加到查看的中心位置。如有任何提示，不胜感激。

我代码:

Sub Button6_Click()
Set Sh1 = Sheets("Destination Sheet")
Application.ScreenUpdating = False
For Each v in Array ("Sheet1", "Sheet2", "Sheet3")
On Error Resume Next
Worksheets(v).Range("M10:M").AutoFilter 1, "<0"
Worksheets(v).AutoFilter.Range.EntireRow.Copy
Sh1.Range("A3").PasteSpecial xlPasteValuesAndNumberFormats
Next

End Sub

Answer 1

这是向现有表追加一行的典型方式:

Sh1.Cells(rows.count, "A").End(xlUp).Offset(1,0).PasteSpecial xlPasteValuesAndNumberFormats

注意，这要求目标工作表中的每一行都有ColA值:否则粘贴可能出现"错误";行。