VBA自定义函数能否为非调用单元格赋值？#VALUE错误求解

这是Excel VBA的固有限制：工作表自定义函数（UDF）的设计初衷仅为返回值给调用它的单元格，不允许直接修改其他单元格内容，也不能执行任何会改变工作表状态的操作（比如修改单元格、删除行/列、设置格式等）。一旦违反这个规则，函数就会返回#VALUE!错误，同时所有修改操作都不会生效。

你的代码问题分析 #

1. 代码中Cells(Row + 1, col) = "pippi"直接尝试修改其他单元格，触发了UDF的限制，导致报错。
2. 使用ActiveCell获取调用单元格的方式不可靠：UDF运行时，ActiveCell不一定是调用函数的单元格，正确的做法是用Application.Caller来定位调用函数的单元格对象。

解决办法 #

方法1：绕开UDF限制（谨慎使用）

可以通过Application.Evaluate间接调用子过程来修改单元格，但可能触发循环计算警告，需要提前在Excel选项中开启「迭代计算」。示例代码：

Function zz()
    Dim callerCell As Range
    Set callerCell = Application.Caller
    zz = "OK"
    ' 间接调用子过程修改目标单元格
    Application.Evaluate "SetTargetCell(" & callerCell.Row + 1 & "," & callerCell.Column & ",""pippi"")"
End Function

' 独立子过程负责修改单元格
Sub SetTargetCell(rowNum As Long, colNum As Long, cellValue As Variant)
    Cells(rowNum, colNum) = cellValue
End Sub

方法2：改用普通宏（更稳妥）

如果你的核心需求是修改其他单元格，建议直接使用普通宏（Sub）替代自定义函数，宏不受UDF的限制，可以自由操作工作表：

Sub ZZMacro()
    Dim callerCell As Range
    Set callerCell = ActiveCell
    callerCell.Value = "OK"
    Cells(callerCell.Row + 1, callerCell.Column) = "pippi"
End Sub

使用时直接选中目标单元格，运行这个宏即可。

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