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