如何在VBA中运行多元回归仅输出残差？

我太懂你的需求了——不想让满屏的回归报告弹出来，也不想事后删东删西，就只想安安静静拿到残差序列对吧？这里有两个靠谱的解决办法，给你详细拆解：

方法1：手动计算残差（首推，无任何多余输出） #

不用依赖ATPVBA的Regress宏，我们可以用WorksheetFunction.LinEst先算出回归系数，然后手动计算每个观测值的残差（残差=实际Y值-预测Y值）。这种方法全程不会生成任何可见输出，直接把残差写入你指定的区域，干净又高效。

代码示例： #

Sub CalculateResidualsManually()
    Dim ws As Worksheet
    Dim yRange As Range, xRange As Range, residualsRange As Range
    Dim coeffs As Variant
    Dim i As Long, j As Long, numRows As Long, numCols As Long
    
    ' 定义工作表和数据区域
    Set ws = ActiveSheet
    Set yRange = ws.Range("$R$11:$R$376")
    Set xRange = ws.Range("$S$11:$U$376")
    ' 指定残差要写入的目标区域（比如这里用V列对应行）
    Set residualsRange = ws.Range("$V$11:$V$376")
    
    numRows = yRange.Rows.Count
    numCols = xRange.Columns.Count
    
    ' 使用LinEst计算回归系数（包含截距）
    ' 注意：LinEst返回的是横向数组，系数顺序为「最后一个自变量→第一个自变量→截距」
    coeffs = WorksheetFunction.LinEst(yRange, xRange, True, False)
    
    ' 循环计算每个观测值的残差
    For i = 1 To numRows
        Dim predictedY As Double
        ' 先取截距
        predictedY = coeffs(numCols + 1, 1)
        ' 加上每个自变量×对应系数的和
        For j = 1 To numCols
            predictedY = predictedY + xRange.Cells(i, j).Value * coeffs(j, 1)
        Next j
        ' 残差=实际Y值 - 预测Y值，写入目标区域
        residualsRange.Cells(i, 1).Value = yRange.Cells(i, 1).Value - predictedY
    Next i
End Sub

关键说明： #

• LinEst返回的系数数组是横向排列的，比如你的自变量是S、T、U三列，那么coeffs(1,1)是U列的系数，coeffs(2,1)是T列，coeffs(3,1)是S列，coeffs(4,1)是截距
• 整个过程没有任何弹窗或额外输出，直接得到你需要的残差序列

方法2：调整Regress宏参数，仅输出残差并隐藏操作 #

如果你一定要用ATPVBA的Regress宏，也可以通过精准调整参数，让它只输出残差，同时用VBA的屏幕控制功能隐藏整个操作过程：

代码示例： #

Sub GetResidualsWithRegress()
    Dim ws As Worksheet
    Dim tempOutputRange As Range
    
    Set ws = ActiveSheet
    ' 选择一个远离可视区域的临时输出位置（比如ZZ列，用户看不到）
    Set tempOutputRange = ws.Range("$ZZ$1")
    
    ' 关闭屏幕更新和提示框，确保操作全程隐藏
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ' 调用Regress宏，仅开启残差输出，关闭所有其他冗余选项
    Application.Run "ATPVBAEN.XLAM!Regress", _
        ws.Range("$R$11:$R$376"), _
        ws.Range("$S$11:$U$376"), _
        False, ' Labels：数据无标签
        False, ' ConstantIsZero：不强制截距为0
        , ' 跳过「新工作簿输出」参数
        tempOutputRange, ' 输出到临时区域
        True, ' Residuals：开启残差输出
        False, ' ResidualPlots：关闭残差图
        False, ' LineFitPlots：关闭拟合图
        False, ' NormalProbabilityPlots：关闭正态概率图
        False, ' 关闭汇总统计/ANOVA表输出
        False ' DisplayDialog：关闭操作对话框
    
    ' 将临时区域的残差复制到目标位置（比如V列）
    ' 注意：Regress宏的残差会从输出起始位置的第3行开始（前两行是表头）
    ws.Range(tempOutputRange.Offset(2, 0), tempOutputRange.Offset(2 + 376 - 11, 0)).Copy _
        Destination:=ws.Range("$V$11")
    
    ' 清空临时区域的内容，不留痕迹
    tempOutputRange.CurrentRegion.Clear
    
    ' 恢复屏幕更新和提示框
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

关键说明： #

• 把输出放到临时的「不可见区域」，避免用户看到多余内容
• 关闭所有不需要的输出选项，只保留残差
• 复制残差后立即清空临时区域，全程无痕迹

总的来说，方法1更简洁高效，也不会有临时文件/区域的清理问题，我更推荐你用第一种方案。

内容的提问来源于stack exchange，提问作者Andreas Hild