我每天都要做一份报告,其中需要将几张表格复制并粘贴到一个名为“报告(今天日期)”的新工作簿中。
我的报告有4个表格:客户、订单、国家、ID。
客户和国家是从主文件中简单地复制和粘贴,但订单和ID是来自主文件中一个表格的筛选数据。订单被筛选为“已完成”,而ID则是除了ID 200和500之外的所有内容。
我尝试基于此处找到的解决方案构建宏:http://www.hivmr.com/db/ack717pc8f88jpdsf7838pcaspkcsdmd
复制和粘贴可以正常工作,但我无法复制和粘贴多个表格/重命名表格和筛选数据。
编辑:
Sub CopyInNewWB()
'has been tested
Dim newWS, WS As Worksheet
Application.ScreenUpdating = False
Set WS = ThisWorkbook.Sheets("Sheet1")
Set newWS = Workbooks.Add.Sheets("Sheet1")
WS.Cells.Copy
newWS.Cells.PasteSpecial xlValues Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub