使用 Excel VBA 實現復制 粘貼 和保存，並自動運行VBA

代碼如下，註意代碼的位置（詳見截圖）

Application.OnKey?"~",?"Copy4To500"

'Application.OnKey?"{ENTER}",?"Copy4To500"?'小鍵盤回車鍵

End?Sub

Private?Sub?Worksheet_Deactivate()

Application.OnKey?"~"

'Application.OnKey?"{ENTER}"

End?Sub

Sub?Copy4To500()

Rows("4:500").Copy?Sheet2.Range("A4")

ThisWorkbook.Save

End?Sub