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

2024-11-20 13:36:49

推荐回答（5个）

回答（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

回答（2）：

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

回答（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

回答（4）：

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

回答（5）：

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

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

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