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