Correlation Analysis

Sub CalculateCorrelations()
    Dim ws As Worksheet
    Dim xRange As Range, yRange As Range
    Dim correlation As Double
    Dim lastRow As Long

    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    ' Define data ranges
    Set xRange = ws.Range("A2:A" & lastRow)
    Set yRange = ws.Range("B2:B" & lastRow)

    ' Calculate correlation
    correlation = Application.WorksheetFunction.Correl(xRange, yRange)

' ... 17 more lines hidden ...
'
' Sign up for free to view the complete code
' Visit: vbacode.io