VBA函数向当前单元格添加文本时出现循环引用错误的解决求助

嘿，我来帮你捋清楚这个问题的根源和解决办法！

首先，你遇到的循环引用错误是因为你把这个Function当成工作表函数（UDF）在单元格里调用了——而VBA的工作表函数（就是那种在单元格里输入=函数名()的）有个关键限制：它只能返回值到自己所在的单元格，不能主动修改其他单元格（包括当前的ActiveCell）。当你在单元格里输入=AddText()，这个函数试图给ActiveCell（也就是这个单元格本身）赋值，这就形成了循环引用：单元格的公式依赖于自身的修改，Excel自然会报错。

那怎么解决呢？有两个常用的思路：

方案一：改用Sub宏（推荐） #

如果你就是想给当前选中的单元格添加文本，别用Function，改成Sub过程就可以了，因为宏是可以直接操作单元格的。修改后的代码如下：

Sub AddTextToActiveCell()
    ActiveCell.Value = "Hello World!"
End Sub

运行方法也很简单：

• 按下Alt+F8打开宏对话框
• 选中AddTextToActiveCell这个宏，点击执行就行
• 你还可以给这个宏绑定快捷键或者添加到快速访问工具栏，用起来更方便

方案二：让Function返回值（适合需要在单元格直接显示内容的场景） #

如果你一定要用Function，那可以让它直接返回文本，而不是主动赋值给单元格。这样在单元格输入=AddText()时，函数会把文本返回给这个单元格，不会触发循环引用：

Function AddText() As String
    AddText = "Hello World!"
End Function

不过这个方法和你原本的需求有点区别：它只能给输入函数的单元格赋值，而不是你选中的任意单元格，所以如果是要操作选中的单元格，还是方案一更贴合你的需求。

备注：内容来源于stack exchange，提问作者Mistique