24小时热门版块排行榜    

CyRhmU.jpeg
查看: 1034  |  回复: 2

njnuyhwang

银虫 (小有名气)

[求助] excel 宏 总是提示无效的next 控制变量

Sub checkareao()
Dim colu1 As Integer
Dim colu2 As Integer
Dim colu3 As Integer

For colu1 = 4 To 9 Step 1
     For colu2 = 10 To 20 Step 2
        For colu3 = 11 To 21 Step 2
         
       For i = 3 To 2667 Step 1
        If Sheet2.Cells(i, colu1) = 0 And Sheet2.Cells(i, colu2) > 0 Then
           Sheet2.Cells(i, colu3) = 0
       Else
            Sheet2.Cells(i, colu3) = Sheet2.Cells(i, colu2)
        End If
    Next i
           Next colu1
    Next colu2
Next colu3
End Sub

总是提醒无效的next控制变量引用,为什么啊,请懂的大侠帮忙看看啊,
回复此楼

» 猜你喜欢

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

刘宗发

银虫 (小有名气)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
xzhdty: 金币+1, 欢迎常来程序语言 2012-06-05 21:55:18
njnuyhwang: 金币+10, ★★★很有帮助 2012-06-12 10:34:03
Next colu1
    Next colu2
Next colu3

次序倒了  改成
           Next colu3
    Next colu2
Next colu1

» 本帖已获得的红花(最新10朵)

淡定.....
2楼2012-06-04 14:55:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

njnuyhwang

银虫 (小有名气)

送鲜花一朵
引用回帖:
2楼: Originally posted by 刘宗发 at 2012-06-04 14:55:54
Next colu1
    Next colu2
Next colu3

次序倒了  改成
           Next colu3
    Next colu2
Next colu1

谢谢!
3楼2012-06-05 20:30:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 njnuyhwang 的主题更新
信息提示
请填处理意见