这个简单，你自己录制一个宏就行，我录下来的代码是：
sub
macro1()
range("a6:a11").select
selection.copy
sheets("sheet2").select
range("a6").select
activesheet.paste
end
sub
有能力就自己优化一下代码。
Sheets(1).Rows(1).Copy Sheets(2).Rows(2)
.CurrentRegion表示目标区域占用的整个数据区，相当于按一下ctrl+A
xlbook.sheets(1).range("A1:AX1").Copy xlbook.sheets(2).range("A2")
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024