根据date列移动Excel数据

我试图将数据从excel中的5列电子表格转移到基于第一个电子表格中某个date列的其他子电子表格。 如果子电子表格不存在，将会创build子电子表格，否则将使用主电子表格中的数据填充子电子表格。 电子表格名称将是一周的开始date（星期一）。 我的专栏是：工作订单，说明，地点，资产，date。

例：

工单 – 说明 – 位置 – 资产 – date

123 ———- test＆inspect – NC-231 – KK32 – 8/21/14

在这个例子中，我的主电子表格的date行是8/21/14，将会创build一个名字为8/18/14的子扩展表格，因为这一行是在8/18/14的星期，并且插入其他列。 这怎么能在Excel工作簿里面完成呢？

Answer 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 

没有testing，但应该是一个开始。