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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024