将所有数据返回到新工作表的Excel VBA函数

Question

如何创建一个应用预定义过滤器等的函数，然后用这些数据生成一个新的工作表？

我只需要创建新的图纸部分。非常感谢。

Answer 1

使用预定义的模板表并复制：

Dim wb as Workbook
Set wb = '... (set the workbook here where you want your new sheet to be copied)
ThisWorkbook.Sheets("NameOfYourTemplate").Copy _
  after:=wb.Sheets(wb.Sheets.Count)