Excel 宏的自动 Copy实现方法

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

 

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

 

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

 

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

 

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

 

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

 

If (Target.Cells(1, 1).Value <> "") Then Target.Select Selection.Copy End If

 

保存就生效了．

 

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