Excel VBA工作表复制命令在Function中无法运行的问题

问题原因 #

Excel对单元格中调用的自定义VBA函数有严格限制：这类函数仅允许返回值，不能执行修改工作簿结构（如新增/删除工作表、修改单元格格式等）的操作，这是Excel内置的安全机制，防止函数滥用导致工作簿意外变更。而Sub过程不受此限制，因为它是主动执行的宏，而非依赖单元格计算触发。

解决办法 #

1. 改用Sub过程（最直接方案） #

保留你的sub1代码，通过以下方式执行：

• 在VBA编辑器中选中该Sub，按F5直接运行
• 给工作表添加按钮，绑定该Sub宏
• 设置快捷键触发该Sub

2. 在VBA内部调用Function（仅适用于代码内触发） #

如果一定要保留Function结构，只能在其他VBA代码中调用它，不能在单元格中输入=function1()：

Sub TriggerCopy()
    ' 在Sub中调用Function，此时可正常执行复制操作
    Call function1
End Sub

Function function1()
    Worksheets("Sheet1").Copy After:=Worksheets("Sheet1")
End Function

3. 用工作表事件触发操作 #

比如设置选中指定单元格时自动执行复制：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 选中A1单元格时触发复制
    If Target.Address = "$A$1" Then
        Worksheets("Sheet1").Copy After:=Worksheets("Sheet1")
    End If
End Sub

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