怎样用VBA实现 将合并日期拆分成单天

chenyinsong8

业务中有这样的表格，日期合并的表格，很难进行统计。
想通过VBA实现将合并日期拆分成单天：
伪程序如下：
1、原表格清除带"."或者带"空格"
2、循环1（不考虑班期将计划拆成每天）：                                                      
         for  date=起始日期 to 结束日期,step=+1
            复制出  航班号/航线/机型/
            求日期的星期
            并将标示变量=0
          next
3、循环2（对于同一航班号 对于相同班期的修改标示变量）
        for len（班期）  to 1 ,step=-1
          week=int（班期/ (10^len（班期）-1)）
           if week==weekday
            标示变量=1
4、筛选出 标示变量 =1
       复制到新表

1. Sub shishi()
   
2. 
   
3. '第一步：清空空格或者点
   
4. Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
   
5.         xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   
6. Cells.Replace What:=".", Replacement:="", LookAt:=xlPart, SearchOrder:= _
   
7.         xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   
8. Cells.Replace What:="-", Replacement:="-", LookAt:=xlPart, SearchOrder:= _
   
9.         xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   
10. 
    
11. '第二步：复制到新表当中，将计划拆成每天，并找到星期在班期中的位置
    
12. Dim R, T As Long
    
13. Dim i, j As Integer
    
14. R = Sheet1.Range("a1048576").End(xlDown).Row
    
15. For i = 2 To R
    
16.     T = Sheet1.Range("b" & i) - Sheet1.Range("a" & i) + 2
    
17.        For j = 2 To T
    
18.        Sheets(Sheets.Count).Range("a" & j) = Sheet1.Range("b" & i)
    
19.        Sheet1.Range("c" & i).Resize(1, 3).Copy Sheets(Sheets.Count).Range("c" & j)
    
20.        Sheets(Sheets.Count).Range("b" & j).Value = Weekday(Sheets(Sheets.Count).Range("a" & j), 2)
    
21.        Sheets(Sheets.Count).Range("f" & j).Value = InStr(Sheet1.Range("c" & i), Sheets(Sheets.Count).Range("b" & j))
    
22.        Next
    
23. Next
    
24.          
    
25. 
    
26. End Sub
    

复制代码

尝试写了代码，但是无法执行出结果，恳请大家帮帮忙

chenyinsong8

1. Dim arr(), brr() As String
   
2. Dim R, T As Long
   
3. Dim i, j As Integer
   
4. R = Sheet1.Range("a1048576").End(xlDown).Row
   
5. arr = Sheet1.Range("a2:f" & R)
   
6. For i = 2 To R
   
7.     T = arr(i, 2) - arr(i, 1) + 2
   
8.        For j = 2 To T + 1
   
9.           brr = Sheets(Sheets.Count).Range("a2:f" & T)
   
10.           brr(j, 2) = arr(i, 2)
    
11.           arr(i, 3).Resize(1, 3).Copy brr(j, 3)
    
12.           brr(j, 2) = Weekday(brr(j, 1), 2)
    
13.           brr(j, 6)= InStr(arr(i, 3), brr(j, 2))
    
14.        Next
    
15. Next

复制代码

尝试写成数组，但是测试还是出错，求救