mdsk.net
当前位置:首页 >> vBA ó >>

vBA ó

这一句有问题: Set Rng = Sheets(3).Range(Cells(1 + i, 1)

h改为8 If Cells(num, 8)<>"" Then

Sheets(1).Range("A1:H").End(xlUp).Select

楼主一定是初次接触VBA。 If Cells(row1, "A") = 日期1

当定义key_row变量后,key_row的值是0, If Worksheets(i + 1).C

原因应该是这段程序的位置问题,如果代码在非活动工作表中,cells(1,1)等是指的代码工作表,并非

这一句有问题:SetRng=Sheets(3).Range(Cells(1+i,1),Cells(3

软件版本:Office2007 方法如下: 在VBA中如果使用了系统不认可的对象表示方法等,例如下面

从抛出异常来看Sheet没有正常被定义到,请确认你的sheet名是否正确,断点打到sheet名获取哪

你可能没定义好指定的对象,比如你在当前的sheet中你可以用一个前缀,me.cells(x,x).v

网站首页 | 网站地图
All rights reserved Powered by www.mdsk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com