Excel VBA复制按钮问题：复制工作表后按钮ID变更致宏失效

问题核心 #

你遇到的问题是：当执行Worksheets("Buttons").Shapes(...).Select时，Excel会自动将Buttons工作表设为活动工作表，导致后续代码里的ActiveSheet指向Buttons而非触发宏的目标工作表，因此找不到Application.Caller对应的按钮，宏执行失败。

最优解决方案（避免使用Select） #

直接操作对象而非依赖ActiveSheet和Select，这种方式更稳定且不易出错：

Dim targetSheet As Worksheet
Dim targetCell As Range

' 获取触发宏的按钮所在工作表及目标粘贴单元格
Set targetSheet = ThisWorkbook.Worksheets(Application.Caller.Parent.Name)
Set targetCell = targetSheet.Buttons(Application.Caller).TopLeftCell.Offset(1, 0)

' 复制Buttons工作表中的模板按钮（直接操作对象，无需选中）
ThisWorkbook.Worksheets("Buttons").Shapes("Button 1").Copy

' 粘贴到目标位置
targetSheet.Paste Destination:=targetCell

关键说明 #

1. 锁定目标工作表：通过Application.Caller.Parent.Name获取触发按钮所属的工作表名称，确保后续操作始终指向正确的工作表，不受ActiveSheet变化影响。
2. 避免Select/Activate：直接操作Shapes和Range对象，不会改变当前活动工作表，彻底解决切换工作表导致的引用错误。
3. 可选优化：给Buttons工作表里的模板按钮设置自定义名称（比如在形状属性中改为TemplateButton），替代默认的Button 1编号，避免因工作表内按钮增删导致编号变更。

兼容原代码的简化修改（仍使用Select） #

如果要尽量保留原代码结构，可在复制按钮后切回目标工作表：

Dim originalSheet As Worksheet
' 先保存触发宏的原工作表
Set originalSheet = ActiveSheet

' 复制Buttons工作表中的按钮
Worksheets("Buttons").Shapes.Range(Array("Button 1")).Copy

' 切回原工作表
originalSheet.Activate

' 粘贴到按钮下方
originalSheet.Buttons(Application.Caller).TopLeftCell.Offset(1, 0).Select
originalSheet.Paste

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