Question

vb操作Excel，复制单元格到另一工作表中指定位置

xlbook.sheets(1).range("A1:AX1").CurrentRegion.Copy xlbook.sheets(2).range("A2")
我想把工作表1中第一行复制到工作表2的第二行，结果却把整张表复制了过去，谁能帮助修改一下？

Answer 1

这个简单，你自己录制一个宏就行，我录下来的代码是：
sub
macro1()
range("a6:a11").select
selection.copy
sheets("sheet2").select
range("a6").select
activesheet.paste
end
sub
有能力就自己优化一下代码。

Answer 2

Sheets(1).Rows(1).Copy Sheets(2).Rows(2)

.CurrentRegion表示目标区域占用的整个数据区，相当于按一下ctrl+A

Answer 3

xlbook.sheets(1).range("A1:AX1").Copy xlbook.sheets(2).range("A2")