Question

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

示例：

工作单 - 说明 - 位置 - 资产 - 日期

123 ---------- test＆amp; inspect - NC-231 - KK32 - 8/21/14

在此示例中，日期行为8/21/14的主电子表格将创建一个名称为8/18/14的子网表，因为此行属于2014年8月18日那周并插入另一个用它的列。如何在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

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

基于日期列移动Excel数据

1 个答案: