Добрый день, уважаемые форумчане!
Задача следующая
есть условные данные, в столбце D стоит дата формата; ДД.ММ.ГГГГ (число всегда 01, т е 01.02.2020, 01.05.2019 и тд),
Нужно разбить все данные по кварталам, для этого были созданы 4 листа (Квартал1, Квартал2 и т д)
Можно ли написать макрос который будет определять к какому кварталу относится та или иная дата, выделять ВСЮ строку, и вставлять её в соответствующий лист, и так до тех пор пока данные не закончатся.
Пытался что то написать сам, но не пашет, может кто подскажет.
Заранее благодарю!
пробовал так – не жизнеспособно
Задача следующая
есть условные данные, в столбце D стоит дата формата; ДД.ММ.ГГГГ (число всегда 01, т е 01.02.2020, 01.05.2019 и тд),
Нужно разбить все данные по кварталам, для этого были созданы 4 листа (Квартал1, Квартал2 и т д)
Можно ли написать макрос который будет определять к какому кварталу относится та или иная дата, выделять ВСЮ строку, и вставлять её в соответствующий лист, и так до тех пор пока данные не закончатся.
Пытался что то написать сам, но не пашет, может кто подскажет.
Заранее благодарю!
пробовал так – не жизнеспособно
| Код |
|---|
Sub М2()
Dim R As Long
Range("D:D").Select
If R = "2020.01.01" Or R = "2020.02.01" Or R = "2020.03.01" Or R = "2019.01.01" Or R = "2019.02.01" Or R = "2019.03.01" Then Rows(R).Select
Selection.Cut
Sheets("Квартал1").Select
ActiveSheet.Paste
End Sub |
