VBA宏中Average函数无法返回值，请求协助排查修复代码

你遇到的问题是代码里存在几个语法和逻辑小错误，导致计算结果没能正确写入目标单元格。我帮你拆解问题点，再给出修复后的完整方案：

问题分析 #

• 错误的函数调用逻辑：你写的Sheets("Sheet1").Application.WorksheetFunction.Average是冗余且错误的——Application.WorksheetFunction不需要依附在Sheet对象上，我们只需要明确指定平均值计算的区域属于Sheet1即可。
• 多余的.Value属性：WorksheetFunction.Average本身会直接返回计算后的数值结果，它不是Range对象，所以不需要加.Value属性，这个多余的属性调用会导致程序无法正确获取计算值。
• 变量类型不匹配：把平均值存在String类型变量里不合适，平均值是数值类型，应该用Double（双精度浮点数）或者Variant来存储。
• 过程结构不完整：代码结尾是End Function，但开头没有对应的Function声明，这里用Sub过程更合适，因为我们不需要给其他程序返回值。

修复后的完整代码 #

Sub CalculateAndWriteAverage()
    Dim avgResult As Double ' 用Double类型存储数值型的平均值
    ' 明确指定Sheet1的目标区域，直接调用WorksheetFunction.Average计算
    avgResult = WorksheetFunction.Average(Sheets("Sheet1").Range("J7:J607"))
    ' 将计算结果写入Log工作表的Z2单元格
    Sheets("Log").Cells(2, "Z").Value = avgResult
End Sub

额外的容错优化（可选） #

如果J7:J607区域全是空值或文本，WorksheetFunction.Average会抛出运行错误。你可以改用Application.Average（它会忽略错误值，返回Empty），再加个判断避免无效值写入：

Sub CalculateAndWriteAverage_Safe()
    Dim avgResult As Variant
    avgResult = Application.Average(Sheets("Sheet1").Range("J7:J607"))
    ' 判断计算是否成功，避免空值或错误值写入
    If Not IsError(avgResult) Then
        Sheets("Log").Cells(2, "Z").Value = avgResult
    Else
        Sheets("Log").Cells(2, "Z").Value = "无有效数值"
    End If
End Sub

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