Описываю второй раз тему... нужна очень сильно помощь... нашел подобный скрипт но он не доделан до нужного результата... помогите доделать
Подобный скрипт:
Этот скрипт делает льтр на листе 1 и копирует то что получилось на лист 2. Мне надо не просто скопировать так же, а разнести данные времена согласно числу и смены. в примере таблицы построены
Подобный скрипт:
Код |
---|
SubМакрос1() Sheets("Лист1").Select Range("A1").Select ActiveSheet.Range("$B$1:$B$7").AutoFilter Field:=1, Criteria1:="Февраль" Rows("2:" & Application.CountA(Columns(2))).Select Selection.Copy Sheets("Лист2").Select Rows("1:1").Select ActiveSheet.Paste End Sub |
Этот скрипт делает льтр на листе 1 и копирует то что получилось на лист 2. Мне надо не просто скопировать так же, а разнести данные времена согласно числу и смены. в примере таблицы построены