Question

使用 Excel VBA 实现复制 粘贴 和保存，并自动运行VBA

请高手帮忙编写一段VBA代码
可以执行以下命令：
在Sheet1里只要按回车键就自动执行复制Sheet1的第4行到500行的所有内容，粘贴到Sheet 2的第4行到500行，并保存。

Answer 1

代码如下，注意代码的位置（详见截图）

Private Sub Worksheet_Activate()
   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

Answer 2

这个超级简单。录制一个宏
按照你需要的操作一步一步的来。然后保存，最后再指定一个快捷键
搞点。

Answer 3

可使用VBA事件。    

A. 将如下代码复制粘贴在sheet1代码中。    

B.回车运行即可。    

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.DisplayAlerts = False

On Error Resume Next

Worksheets(1).Rows("4:500").Copy Worksheets(2).Range("4:500")

ActiveWorkbook.Save

Application.DisplayAlerts = True

End Sub

Answer 4

代码复制到sheet1
Sub 复制()
Rows("4:500").Copy Sheets(2).[A4]
Sheets(2).Select
MsgBox "复制完成....."
End Sub
自己指定一个 快捷键即可

Answer 5

用回车键激活，这个有点夸张了。。可以试试用其它键录制宏。回车键即使实现了也会出现很多不比较的麻烦