vba求帮助

不知道怎么改了，求大佬们帮助，谢谢！

不感兴趣

开通SVIP免广告

For i = 1 to 100
If range("C" & i ) - 3500..........
第一圈
range("C" & i ) 是 C1 是 "实发数"
If "实发数" - 3500..........
所以挂掉
改为
For i = 2 to 100

以下是随机附送：
在回圈之初设个变数，之后写代码可省许多功夫。
For i = 2 To 100
　Set cc = Range("c" & i) '设个变数
　If cc = "" Then Exit Sub
　If cc - 3500 > 0 And cc - 3500 <= 3000 Then cc.Offset(0, 1) = "ok"
Next i

把 if 换成 case 吧

试试这样

range("C" & i ) 全部替换成val(range("C" & i ))

建议用上elseif,不然的话所有的if都会判断一次,

不感兴趣

开通SVIP免广告

单元格的引用建议用cells，比range简单，比如：
range("c" & i)可以写成cells(i,3)，第i行第3列的意思，写成cells(i,"c")也可；
cells(x,y)与for搭配比较融洽，比用&转换连接要方便些；

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

14回复贴，共1页

<<返回excel吧

分享到:

日	一	二	三	四	五	六