Question

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

在sheet1里设置一个按钮，点击后实现下面功能：
把sheet2里最后一行（或者随意一行）剪切插入到第二行。
我知道Sheets("sheet2").Select之后可以操作，但是还要再Sheets("sheet1").Select回来。
我也试过了with sheets，但是只能操作单个格子。
我想知道怎么操作多个格子的剪切插入操作怎么用VB实现。
谢谢

Answer 1

把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

 

Answer 2

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

Answer 3

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

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

Answer 4

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