[已解决]怎样求平均天数

chen418102

各位大神，因为可能有多次付款，有什么好公式算出平均付款天数吗，谢谢！

最佳答案

月排行榜 / 总排行榜

AmoKat

2021-10-12 09:06

=SUMPRODUCT((0&C3:M3)-N3,B3:L3,MOD(COLUMN(C:M),2))/A3
一般公式

儲存格有 空格 及 "" ，容易造成計算障礙
SUMPRODUCT函數可去非數值障礙

MOD(COLUMN(C:M),2) 可生成 {1,0,1,0,1,0 ....} 組數，相乘時 1 為取用項目，乘 0 為去除項目

跳转到最佳答案楼层

心正意诚身修

1. <div class="blockcode"><blockquote>Sub 算平均天数()
   
2. Dim ARR, BRR(), I As Integer, J As Integer, K As Integer, S As Double
   
3. ARR = Range("A2").CurrentRegion
   
4. Range("O2:O65536").ClearContents
   
5. ReDim BRR(1 To 100)
   
6. For I = 2 To UBound(ARR)
   
7.    J = 2
   
8.    Do While ARR(I, J) <> 0 And J < 12
   
9.       S = S + (ARR(I, J + 1) - ARR(I, 14)) * ARR(I, J) / ARR(I, 1)
   
10.       J = J + 2
    
11.    Loop
    
12.    ReDim Preserve BRR(1 To I - 1)
    
13.    BRR(I - 1) = Format(S, "0.00")
    
14.    S = 0
    
15. Next
    
16. Range("O3").Resize(I - 2) = Application.Transpose(BRR)
    
17. End Sub
    

复制代码

最近在学习VBA。
做了一个VBA版的。当然。你也可以等其他老师的函数答案

风林火山

1. =SUMPRODUCT(--IFERROR(TEXT(MOD(COLUMN(B3:M3),2)*B3:M3-N3,"[>]0;[<]!0"),))/COUNTIF(B3:M3,">0")*2

复制代码

AmoKat

=SUMPRODUCT((0&C3:M3)-N3,B3:L3,MOD(COLUMN(C:M),2))/A3
一般公式

儲存格有 空格 及 "" ，容易造成計算障礙
SUMPRODUCT函數可去非數值障礙

MOD(COLUMN(C:M),2) 可生成 {1,0,1,0,1,0 ....} 組數，相乘時 1 為取用項目，乘 0 為去除項目