自定义函数中不能对其他单元格赋值你的要求可以用工作表的Change事件过程来实现也就是说当指定单元格发生变化时自动运行一段程序程序中可以对需要的单元格进行赋值示例:Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Range("A5") = "TEST"End Sub只要A1单元格内容变化,就将A5单元格中的内容修改为“TEST”