vba语句的问题，只能运行头一句，。。。。。

598598 · 发表于 2010-5-1 20:54

此段代码只能执行第一句话，后面为什么都不能执行呢，请高手看一下，是哪里的原因，谢谢！！1

Sub 提取当月内容()
Sheets("录入区域").Range("c2:c" & Range("c65536").End(xlUp).Row).Copy Sheets("2套租赁总表").Range("a65536").End(xlUp)
Sheets("录入区域").Range("b2:b" & Range("b65536").End(xlUp).Row).Copy Sheets("2套租赁总表").Range("c65536").End(xlUp)
Sheets("录入区域").Range("i2:i" & Range("i65536").End(xlUp).Row).Copy Sheets("2套租赁总表").Range("d65536").End(xlUp)
Sheets("录入区域").Range("j2:j" & Range("j65536").End(xlUp).Row).Copy Sheets("2套租赁总表").Range("v65536").End(xlUp)

End Sub

zldccmx · 发表于 2010-5-1 21:12

试试

      Sheets("录入区域").Range("c2:c" & Sheets("录入区域").Range("c65536").End(xlUp).Row).Copy Sheets("2套租赁总表").Range("a65536").End(xlUp)
      Sheets("录入区域").Range("b2:b" & Sheets("录入区域").Range("b65536").End(xlUp).Row).Copy Sheets("2套租赁总表").Range("c65536").End(xlUp)
      Sheets("录入区域").Range("i2:i" & Sheets("录入区域").Range("i65536").End(xlUp).Row).Copy Sheets("2套租赁总表").Range("d65536").End(xlUp)
      Sheets("录入区域").Range("j2:j" & Sheets("录入区域").Range("j65536").End(xlUp).Row).Copy Sheets("2套租赁总表").Range("v65536").End(xlUp)
或:

Sub 提取当月内容()
With Sheets("录入区域")
      .Range("c2:c" & .Range("c65536").End(xlUp).Row).Copy Sheets("2套租赁总表").Range("a65536").End(xlUp)
      .Range("b2:b" & .Range("b65536").End(xlUp).Row).Copy Sheets("2套租赁总表").Range("c65536").End(xlUp)
      .Range("i2:i" & .Range("i65536").End(xlUp).Row).Copy Sheets("2套租赁总表").Range("d65536").End(xlUp)
      .Range("j2:j" & .Range("j65536").End(xlUp).Row).Copy Sheets("2套租赁总表").Range("v65536").End(xlUp)
End With
End Sub

abdias520 · 发表于 2010-5-1 21:13

代码是否能执行，除与代码本身有关外，还与数据源有关。

可以的话，请上传数据源附件

598598 · 发表于 2010-5-1 21:26

谢谢您的答复，总以为不会出这样的问题，一直注意着，最后还是失在这。。。。选定工作表的问题。终于解决了。。。

		自动登录	找回密码
密码			免费注册

[2007] vba语句的问题，只能运行头一句，。。。。。

回复 2楼 zldccmx 的帖子