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<br /> Target.Select<br /> Selection.Copy<br /> End If

 

儲存就生效了．

 

當儲存格選擇發生變化時就執行這段代碼，完成自動 Copy