Макрос Excel для выбора и вырезания нескольких строк на новый лист

Question

Я запускаю отчет каждую неделю и хотел бы вырезать строки для определенного диапазона дат в новую рабочую таблицу (т.е. все строки с транзакциями в период с 16-го числа месяца по 15-е число следующего месяца).

Я хотел бы разрезать все строки между 16.07 и 15.08 и вставить их в новую рабочую таблицу под названием «Авг». И обрежьте все ряды между 16.08 и 15.09 и пропустите их на новом рабочем листе под названием «Sept»

Пример данных

Столбец A - Столбец B - Столбец C

Дата публикации - Имя - Продавец

07/25/10 - Уилсон - Starbucks

08/05/10 - Уилсон - Американ Эйрлайнз

08/14/10 - Guang - Apple Store

08/15/10 - МакГи - Скобы

08/17/10 - карри - AT & T

09/02/10 - Джонсон - Эксон

09/11/10 - Симмс - Старый флот

Answer 1

Хорошо, это будет работать, если у вас есть строка заголовка на листе назначения. Я только что реализовал августовское копирование и вставку, но было бы просто добавить сентябрь или сделать его полностью универсальным и сделать так, чтобы он работал весь год.

Dim workingrow As Range

For Each workingrow In Sheets("Main").Rows

If (workingrow.Cells(1, 1).Value >= DateValue("7/16/2010")) And _ 
   (workingrow.Cells(1, 1).Value <= DateValue("8/15/2010")) Then
        workingrow.Copy (Sheets("Aug").Rows(1).End(xlDown).Offset(1, 0))
End If

Next workingrow