excel 在sheet1页面操作sheet2页面里的行数据的VB怎么写？

把sheet2里最后一行（或者随意一行）剪切插入到第二行。

这第二行是表2 的还是表1的？是表2 的请在代码第6 行前加单引号。

Sub 按钮1_Click()
    Sheets("Sheet2").Select
    lastrow = Cells(Rows.Count, 1).End(3).Row
    Rows(lastrow).Select
    Selection.Cut
    Sheets("Sheet1").Select
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown
    Sheets("Sheet1").Select
    Range("A1").Select
End Sub

Private Sub CommandButton1_Click()
' 剪切第10行，插入第2行
    rr = 10
    ir = 2
    Sheets("Sheet2").Rows(rr).Cut
    Sheets("Sheet1").Rows(ir).Insert Shift:=xlDown
End Sub

'下面语句把4行剪切到2行
with sheets("sheet2")
    .rows(2).insert
    .rows(5).copy .rows(2)
    .rows(5).delete
end with

注意剪切x行语句要写x+1

sheets("sheet2").rows(5).copy Destination:=sheets("sheet1").rows(8)
这句的意思是把sheet2的第5行复制到sheet1的第8行。懂了？