vba - 过滤后的数据副本正在保存到新工作簿中的工作表 2

Question

我已经设置了将过滤表复制到新文档中的代码，它工作正常，但由于某种原因，数据最终出现在新工作簿的表 2 中。有人可以告诉我为什么吗？我看不到对表 2 的任何引用，所以我很困惑（也是新手）

这是我使用的代码：

Sub CopyFilteredTable()
    Dim rng As Range
    Dim WS As Worksheet
    Set newBook = Workbooks.Add

    For Each Row In Range("Table2[#All]").Rows
        If Row.EntireRow.Hidden = False Then
            If rng Is Nothing Then Set rng = Row
            Set rng = Union(Row, rng)
        End If
    Next Row

    Set WS = Sheets.Add
    rng.Copy newBook.Worksheets("Sheet1").Range("A1")
End Sub

标签： vba

Answer 1

删除此行 Set WS = Sheets.Add 并尝试..

您也可以将 rng.Copy newBook.Worksheets("Sheet1").Range("A1") 行修改为**rng.copy newbook.Worksheets(1).Range ("A1")**