Excelmacrosselect并将多个行剪切到新的工作表

我每周都会运行一个报告,并希望将特定date范围内的行剪切成一个新的工作表(即所有行在一个月的第16个月到下一个月的第15个月之间的交易)。

我想在07/16和08/15之间剪切所有的行,并把它们放在一个名为“Aug”的新工作表中,并在08/16和09/15之间剪切所有的行,并将它们放在一个名为“Sept”的新工作表中,

示例数据

A栏 – B栏 – C栏

发布date – 名称 – 供应商

07/25/10 – 威尔逊 – 星巴克

08/05/10 – 威尔逊 – 美国航空公司

08/14/10 – Guang – Apple Store

08/15/10 – McGee – Staples

08/17/10 – 咖喱 – AT&T

09/02/10 – 约翰逊 – 埃克森

09/11/10 – 西姆斯 – 老海军

好的,这将工作,如果你有目标工作表上的标题行。 我刚刚实现了8月份的复制和粘贴,但是9月份添加或者完全通用并且整年都可以完成,这样做很简单。

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