在代码最开始增加一句：
Application.EnableEvents = False
代码结束前增加
Application.EnableEvents = True
关于此处用到的EnableEvents的相关知识：
Application.EnableEvents=False
操作代码
Application.EnableEvents=True
这样可以屏蔽事件程序的暂时运行，以达到不会反复触发事件程序，造成死循环
你可以使用 双击 触发事件函数
步骤
双击触发函数
函数中取消双击效果
函数中执行需要的函数功能
Application.EnableEvents = False
..........
[A1].Select
Application.EnableEvents = True
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024