Как создать книгу для каждого уникального значения?

Я пробовал разные вещи, но я не могу понять эту идею. Я пытаюсь изменить код из ссылки Рона ниже.Как создать книгу для каждого уникального значения?

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

Как можно получить эту петлю через массив 5 листов, а не только один один лист? 5 листов, которые я хочу фильтровать и сохранять, все нормализовано. Итак, заголовки начинаются в строке 3 на всех 5 листах. Мне просто нужно поместить фильтр в ячейку 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

Как создать книгу для каждого уникального значения?

ответ

Смежные вопросы