根据日期列移动 Excel 数据答案

【问题标题】：Move Excel Data Based On Date Column根据日期列移动 Excel 数据
【发布时间】：2014-08-22 19:54:17
【问题描述】：

我正在尝试根据第一个电子表格中的一个日期列将数据从 excel 中的 5 列电子表格移动到其他子电子表格。如果子电子表格不存在，则将创建它们，否则将使用主电子表格中的数据填充它们。电子表格名称将是一周开始的日期（星期一）。我的列是：工单、描述、位置、资产、日期。

例子：

工单 - 描述 - 位置 - 资产 - 日期

123 ---------- 测试和检查 - NC-231 - KK32 - 8/21/14

在此示例中，日期行为 8/21/14 的主电子表格将创建一个名称为 8/18/14 的子电子表格，因为该行位于 2014 年 8 月 18 日这一周，并插入另一个列与它。这如何在 Excel 工作簿中完成？

【问题讨论】：

您能否将目前编写的代码添加到您的问题中，让我们知道您在哪里遇到问题？

标签： excel vba

【解决方案1】：

Dim firstDate As Date, secondDate As Date
Dim I as Date 

firstDate = Inputbox("What start date?") ' request your input for what date Monday is 
secondDate = DateAdd("d", 6, firstDate)

For Each Cell in Range("E2"),Range("E2").End(xldown)
   ActiveCell = Cell
     If cell => firstdate  and  =< secondate  then  ' test if falls under days of week     
            ActiveCell.Row.Copy    
            On error resume next      
            Worksheets.Add.Name = Firstdate
            Sheets(" & Firstdate &").Select 
            Range("A1").End(lxDown).Offset(1,0).pastespecial
 Next Cell  
End Sub

未经测试，但应该是一个开始。

【讨论】：