如何通过循环调用CORRELATION()函数生成多列数据集的相关矩阵？

完全可以通过循环遍历所有列对，调用CORRELATION()函数来生成相关矩阵。下面以Excel（CORREL()是Excel的相关系数函数，和你提到的CORRELATION()功能一致）为例，针对y、x1、x2、x3四列的数据集演示实现过程：

1. 先搭建相关矩阵的表头 #

• 在工作表的F1到I1单元格，依次输入y、x1、x2、x3（作为矩阵的行表头）
• 在F2到F5单元格，依次输入y、x1、x2、x3（作为矩阵的列表头）

2. 用VBA写循环逻辑生成矩阵 #

打开VBA编辑器（按Alt+F11），插入一个新模块，粘贴以下代码：

Sub 生成相关矩阵()
    Dim 工作表 As Worksheet
    Dim 列数 As Integer
    Dim i As Integer, j As Integer
    Dim 最后一行 As Long
    
    Set 工作表 = ThisWorkbook.ActiveSheet
    列数 = 4 ' 对应y、x1、x2、x3四列
    最后一行 = 工作表.Cells(工作表.Rows.Count, 1).End(xlUp).Row ' 自动获取数据最后一行
    
    ' 循环遍历所有列对计算相关性
    For i = 1 To 列数
        For j = 1 To 列数
            工作表.Cells(i + 1, j + 5).Value = Application.WorksheetFunction.Correl( _
                工作表.Range(工作表.Cells(2, i), 工作表.Cells(最后一行, i)), _
                工作表.Range(工作表.Cells(2, j), 工作表.Cells(最后一行, j)) _
            )
        Next j
    Next i
End Sub

运行这个宏后，F2:I5区域就会生成你想要的相关矩阵——对角线位置是变量与自身的相关性（值为1），其余位置是对应列对的相关系数，结构和你期望的一致。

针对30多列数据集的调整 #

如果你的数据集有30多列，只需要修改代码里的列数 = 4为实际的列数即可，代码会自动遍历所有列对完成计算。

不过要提一句：如果用Python、R这类数据分析工具，直接用内置函数（比如Python的pandas.DataFrame.corr()、R的cor()）生成相关矩阵会更高效，不需要手动写循环，但用循环调用CORRELATION()的思路完全可行。

内容的提问来源于stack exchange，提问作者Alysson Oliveira