Excel怎么用宏把指定行插入到Sheet2里面去?

来源：百度知道 编辑：UC知道 时间：2024/06/05 11:00:53
我想在Sheet1做一个宏按钮,一点这个按钮就把当前鼠标所选中单元格的整行插入到Sheet2的第5行里.这个宏应该怎么写?
二楼的朋友你好,你这个宏我一按就会自动把A1到F16这范围内的所有数据插到表2的第5行了,而不是当前鼠标所选中单元格的整行.麻烦你帮我修改一下.

跟着这个是把当前单元格的复制到表2去,而不是整行.

Sub 选择复制行()
'把sheet1中，当前鼠标所选中单元格的那一行，复制到sheet2第五行中
r = ActiveCell.Row
Sheets("Sheet1").Rows([r]).Copy Destination:=Sheets("Sheet2").Rows([5])
End Sub
Sub 选择复制格()
'把sheet1中，当前鼠标所选中单元格，复制到sheet2第五行的A5单元格里
Worksheets("Sheet1").Activate
ActiveCell.Copy Destination:=Sheets("Sheet2").Range("A5")
End Sub

Sub Macro1()
Sheets("Sheet2").Select
Rows("5:5").Select
Selection.Insert Shift:=xlDown
Sheets("Sheet1").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A5").Select
ActiveSheet.Paste
End Sub