VB操作Excel自动复制粘贴Sheet。

发布网友 发布时间：2022-04-22 06:14

我来回答

共5个回答

热心网友 时间：2023-12-05 12:01

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

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

热心网友 时间：2023-12-05 12:02

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

热心网友 时间：2023-12-05 12:02

可使用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

热心网友 时间：2023-12-05 12:03

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

热心网友 时间：2023-12-05 12:04

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