[已解决]请帮助检查错误

ymq123

点击按钮3运行代码（按钮3在工作簿1中），出现类型不匹配，请帮助修改。谢谢！
要求如下：
Workbooks("3.xls").sheets("1").range("a1:a2")=Workbooks("2.xls").sheets("1").range("a1:a2")+Workbooks("2.xls").sheets("1").range("b1:b2")

Workbooks("3.xls").sheets("2").range("a1:a2")=Workbooks("2.xls").sheets("2").range("a1:a2")+Workbooks("2.xls").sheets("2").range("b1:b2")

Workbooks("4.xls").sheets("1").range("a1:a2")=Workbooks("2.xls").sheets("1").range("a3:a4")+Workbooks("2.xls").sheets("1").range("b3:b4")

Workbooks("4.xls").sheets("2").range("a1:a2")=Workbooks("2.xls").sheets("2").range("a3:a4")+Workbooks("2.xls").sheets("2").range("b3:b4")

最佳答案

月排行榜 / 总排行榜

zjdh

2013-9-1 20:52

例：
Workbooks("3.xls").Sheets("1").Range("a1:a2") = Workbooks("2.xls").Sheets("1").Range("a1:a2") + Workbooks("2.xls").Sheets("1").Range("b1:b2")
改成
Workbooks("3.xls").Sheets("1").Range("a1") = Workbooks("2.xls").Sheets("1").Range("a1") + Workbooks("2.xls").Sheets("1").Range("b1")
Workbooks("3.xls").Sheets("1").Range("a2") = Workbooks("2.xls").Sheets("1").Range("a2") + Workbooks("2.xls").Sheets("1").Range("b2")

前提是这些文件都已打开

跳转到最佳答案楼层

zjdh

没有2个单元加2个单元的做法的，应该一个一个的加！

ymq123

zjdh 发表于 2013-9-1 19:08
没有2个单元加2个单元的做法的，应该一个一个的加！

请你修改代码。谢谢！

zjdh

例：
Workbooks("3.xls").Sheets("1").Range("a1:a2") = Workbooks("2.xls").Sheets("1").Range("a1:a2") + Workbooks("2.xls").Sheets("1").Range("b1:b2")
改成
Workbooks("3.xls").Sheets("1").Range("a1") = Workbooks("2.xls").Sheets("1").Range("a1") + Workbooks("2.xls").Sheets("1").Range("b1")
Workbooks("3.xls").Sheets("1").Range("a2") = Workbooks("2.xls").Sheets("1").Range("a2") + Workbooks("2.xls").Sheets("1").Range("b2")

前提是这些文件都已打开

ppp710715

这句出现下标越界：
Set sh = Workbooks("2.xls").Sheets(n)