Excel宏可选择多行并将其剪切为新工作表

时间:2010-08-30 20:16:42

标签: excel vba excel-vba

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

我想在07/16和08/15之间剪切所有行,然后在名为“Aug”的新工作表中删除它们 并在08/16和09/15之间切断所有行,并在一个名为“Sept”的新工作单中将它们过去

示例数据

A栏 - B栏 - C栏

发布日期 - 名称 - 供应商

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

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

08/14/10 - 广 - Apple Store

08/15/10 - McGee - Staples

08/17/10 - Curry - AT& T

09/02/10 - 约翰逊 - 埃克森。

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

1 个答案:

答案 0 :(得分:1)

好的,如果您在目标工作表上有标题行,这将有效。我刚刚实现了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