[英]Filtered data copy is saving to sheet 2 in new workbook
我已经设置了将过滤表复制到新文档中的代码,它工作正常,但由于某种原因,数据最终出现在新工作簿的表 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
删除此行 Set WS = Sheets.Add 并尝试..
您也可以将 rng.Copy newBook.Worksheets("Sheet1").Range("A1") 行修改为**rng.copy newbook.Worksheets(1).Range ("A1")**
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.