如何以VBA 批量計算共變異數

zlowe

向位大大好,
請教各位如何在附件中以VBA 實現下面答案:

Covar 為共變異數指令, Var 為變異數指令。感謝


beta.rar (34.25 KB, 下载次数: 17)

2011-10-18 18:55 上传

点击文件名下载附件

蓝桥玄霜

Covar 為共變異數指令, Var 為變異數指令?是自定义函数?没有介绍.

zlowe

蓝桥玄霜 发表于 2011-10-18 20:31
Covar 為共變異數指令, Var 為變異數指令?是自定义函数?没有介绍.

是在excel 內自帶的函數, Covar (Array1, Array2) 和 Var(number1, number2,...)

蓝桥玄霜

1. Sub yy()
   
2. Dim Arr, i&, r%, Arr1(), Brr, ks, js
   
3. Sheet1.Activate
   
4. Arr = [a1].CurrentRegion
   
5. r = r + 1
   
6. ReDim Preserve Arr1(1 To r)
   
7. Arr1(r) = 2
   
8. For i = 3 To UBound(Arr)
   
9.     If Month(Arr(i, 1)) Mod 3 = 1 Then
   
10.         If Month(Arr(i, 1)) <> Month(Arr(i - 1, 1)) Then
    
11.             r = r + 1
    
12.             ReDim Preserve Arr1(1 To r)
    
13.             Arr1(r) = i
    
14.         End If
    
15.     End If
    
16. Next
    
17. ReDim Brr(1 To r)
    
18. For i = 1 To r
    
19.     If i <> r Then
    
20.         js = Arr1(i + 1) - 1
    
21.     Else
    
22.         js = UBound(Arr)
    
23.     End If
    
24.     ks = Arr1(i)
    
25.     Brr(i) = Application.Covar(Cells(ks, 2).Resize(js - ks + 1, 1), Cells(ks, 3).Resize(js - ks + 1, 1)) / Application.Var(Cells(ks, 3).Resize(js - ks + 1, 1))
    
26. Next
    
27. [e2].Resize(r, 1) = Application.Transpose(Brr)
    
28. End Sub
    

复制代码