按规律处理摊销。。。有附件

312953583

数据的转换逻辑是这样的 A-D转换为H-K
原始数据     A项目摊销期是 2019/2/15-2020/2/15  共摊销12个月 总金额5000
转换后的数据则为
                  A项目2019年2月摊销416.67元
                  A项目2019年3月摊销416.67元
                  .....
                  A项目2020年2月摊销416.67元

312953583

同理处理BCDEF项目

jiangxiaoyun

1. Sub ggg()
   
2.     Dim arr
   
3.     arr = Range("a2:d" & Cells(Rows.Count, 1).End(xlUp).Row)
   
4.     Dim brr(1 To 55555, 1 To 4)
   
5.     For i = 1 To UBound(arr)
   
6.         d = DateDiff("m", arr(i, 2), arr(i, 4))
   
7.         y = Year(arr(i, 2))
   
8.         m = Month(arr(i, 2))
   
9.         For j = 1 To d
   
10.             k = k + 1
    
11.             brr(k, 1) = arr(i, 1)
    
12.             brr(k, 2) = arr(i, 3) / d
    
13.             brr(k, 3) = m
    
14.             brr(k, 4) = y
    
15.         Next
    
16.     Next
    
17.     [g2].Resize(k, 4) = brr
    
18. End Sub
    

复制代码

312953583

jiangxiaoyun 发表于 2020-2-26 22:46

大神后面月份和年份的处理好像不对诶

312953583

jiangxiaoyun 发表于 2020-2-26 22:46

是不是因为跨年的关系