如何为每个唯一值创建工作簿？

我一直在尝试不同的事情，但我无法得到这个概念塞尔金。我正在尝试修改以下Ron链接中的代码。如何为每个唯一值创建工作簿？

http://www.rondebruin.nl/win/s3/win006_3.htm

如何我能得到这个循环至5片的阵列，而不是仅仅一个单个片？我想过滤和保存的5张纸都是标准化的。所以，标题在第5行的第3行开始。我只需要将过滤器放置在单元格A3中的5张表格中，并传入所有唯一值，然后将每个值另存为一个单独的文件。

我在工作簿中有10张;我想让宏循环5张特定的图纸。

感谢所有。

来源

2016-07-26 ryguy7272

你能编辑你的帖子吗？ –

我们不会为您编辑代码。如果您尝试编辑它，但它不起作用，请将您在原始文章中的内容添加进来，并解释出现了什么问题。我们将帮助克服具体问题，但不会为你做这项工作。 –

最简单的方法是激活每个调用Copy_To_Workbooks的工作表。

Sub LoopWorkSheets() 
    Dim MyWorkSheets, SheetName 

    MyWorkSheets = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5") 

    For Each SheetName In MyWorkSheets 
     Worksheets(SheetName).Activate 
     Copy_To_Workbooks 
    Next   

End Sub

来源

2016-07-26 06:32:51

如何为每个唯一值创建工作簿？

回答

相关问题