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