Описываю второй раз тему... нужна очень сильно помощь... нашел подобный скрипт но он не доделан до нужного результата... помогите доделать
Подобный скрипт:
Этот скрипт делает льтр на листе 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. Мне надо не просто скопировать так же, а разнести данные времена согласно числу и смены. в примере таблицы построены
