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

这是将行附加到现有 table 的典型方法：

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

请注意，这要求目标 sheet 中的每一行在 ColA 中都有值：否则粘贴可能出现在“错误”的行中。

Excel 数组覆盖，需要追加

Excel Array Overwrites, Need Append

excel

vba

ms-office