CalculateCorr332.vb

Sub CalculateCorr4()
    Dim corrSheet As Worksheet
    Set corrSheet = Worksheets("相關性分析")
    Dim portSheet As Worksheet
    Set portSheet = Worksheets("投資組合報酬分析")
    Dim corr As Double
    Dim i As Integer
    Dim j as Integer

    
    For j = 2 To 13
        For i = 2 To 13
            corr = Application.WorksheetFunction.Correl( _
                        portSheet.Range( _
                                         portSheet.Cells(2, j), _
                                         portSheet.Cells(95, j) _
                                       ).Value, _
                        portSheet.Range( _
                                         portSheet.Cells(2, i), _
                                         portSheet.Cells(95, i) _
                                       ).Value _
                   )

            Debug.Print corr

            corrSheet.Cells(i, j).Value = corr
        Next i
    Next j
End Sub