Excel自定义sum_multiply函数返回#Value错误，求解决方案

原代码错误原因 #

你写的自定义函数试图返回带等号的公式字符串，但Excel工作表自定义函数（UDF）的核心是返回值到调用单元格，而非直接为单元格设置公式。返回的字符串会被Excel视为普通文本，最终触发#Value!错误。另外，UDF无法修改调用单元格以外的属性（比如设置公式），所以修改返回类型为Range也无效。

正确实现方式 #

方式1：直接返回计算结果（推荐） #

这个版本直接遍历单元格计算总和，支持自动更新，新增行后Excel会自动重新计算：

Public Function sum_multiply(z As Range, decal As Integer) As Double
    Dim cel As Range
    Dim total As Double
    ' 扩展范围到当前列最后一个非空单元格
    Set z = z.Worksheet.Range(z, z.End(xlDown))
    
    For Each cel In z
        ' 跳过非数值单元格避免计算错误
        If IsNumeric(cel.Value) And IsNumeric(cel.Offset(, decal).Value) Then
            total = total + cel.Value * cel.Offset(, decal).Value
        End If
    Next cel
    
    sum_multiply = total
End Function

用法：在目标单元格输入=sum_multiply(A2, 1)，其中A2是第一列的起始单元格，1表示与当前列偏移1列的对应单元格（比如B列）。新增行后，只要A列或偏移列有数值，函数会自动更新总和。

方式2：用原生Excel公式替代（无需VBA） #

如果不想用VBA，直接用原生公式就能实现动态计算，自动适配新增行：

=SUMPRODUCT(A2:INDEX(A:A,COUNTA(A:A)), B2:INDEX(B:B,COUNTA(B:B)))

这个公式会自动取A列和B列的非空数据范围，逐行相乘后求和，新增数据行后无需手动调整范围。

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