Question

我一直在尝试不同的事情，但我无法接受这个概念。我试图修改下面Ron的链接中的代码。

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

如何让它循环显示5张数组，而不只是一张？我要过滤和保存的5张纸都是标准化的。因此，标题从所有5张表格的第3行开始。我只需要将过滤器放在单元格A3中，在5张纸中，并传入所有唯一值，然后将每个值保存为单独的文件。

我的工作簿中有10张;我想让Macro循环浏览5张特定的表格。

感谢所有人。

Answer 1

最简单的方法是激活调用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

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

1 个答案: