<em>excel</em>使用<em>VB</em>A调用另一工作薄指

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

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

不用那抄样，百直接用：度
sheet3.range("A1:W600")=sheet2.range("A1:W600") 就行了问。
这样试答试,:
range("A1:W600")=Wb.Sheets(2).Range("A1:W600")
`
最后道一句应该是引用对应名称工作簿吧。具体如下：
Sub 引用()
n = 1 '项目总数，即汇总专表A列行数
For i = 1 To n
shname = Sheets("汇总表").Range("A" & i).Value 'Ai的值，即工作属簿名
Set ssh = Sheets(shname) '引用工作簿名对应工作簿
MsgBox ssh.Range("A1").Value, 0, "OK" '显示该对应工作簿A1的值,测试用，可删除
'ssh里的其他操作
Next
End Sub

cells 之前也要限定zd工作表内

myxls.sheets("回弹容表").range(myxls.sheets("回弹表").cells

要么用range("R" & 13+count2 *29 &":R" & 17+count2*29)