Question

excel如何用vba编写代码.把指定多个工作表内容复制到一个指定工作表中

我制作一个excel表格.需要从第五个工作表到最后的工作表(后面可根据需要插入新工作表).从第二行(A2)数据开始,将所有内容复制到指定第四个工作表中第二行(A2)开如粘贴.用vba如何编写,请高手赐教

Answer 1

sub tt
for i= 5 to sheets.count
rw=sheets(i).range("a65536").end(xlup).row
n=sheets(4).range("a65536").end(xlup).row+1
sheets(i).rows("2:" & rw).copy sheets(4).range("a" & n)
rw=nothing
n=nothing
next
end sub

追问

运行出现对象变量或with块变量未设置.,只能复制第五张工作表的内容.后面的工作表没有复制了,,这些vba是在第四张工作表查看代码这里写入的吗

追答

Sub tt()
For i = 5 To Sheets.Count
rw = Sheets(i).Range("a65536").End(xlUp).Row
n = Sheets(4).Range("a65536").End(xlUp).Row + 1
Sheets(i).Rows("2:" & rw).Copy Sheets(4).Range("a" & n)
Next
End Sub