1.按下 Alt + F11 或者点击"Tools"->"Macro"->"Visual Basic Editor"

2.双击左边 Project Explorer 里的"Microsoft Excel Objects" 下的 "ThisWorkBook"

FYI:现在这个代码的作用域是整个Excel文档,即所有Sheet，如果想作用于一个Sheet，应该双击对应的Sheet 条目．

3.在右边拉代码编辑窗口里的上方选择如下：

第一个下拉条选择 WorkBook, 第二个选择 SheetSelectionChange, 代码区就会自动生成一个方法．

4.在生成的方法体里插入如下代码：

保存就生效了．

当单元格选择发生变化时就执行这段代码，完成自动 Copy