这语句为什么执行不了求大神解决

ti61113267

Sub 求订单()
Dim i As Integer
Dim x As Integer
Dim y As Integer
For i = 2 To 60
    For x = 4 To 33
        For y = 4 To 36
            If (Sheets("lyn").Range("A" & i).Value = Sheets("sky").Range("A" & x).Value And Sheets("sky").Range("A" & x).Value = Sheets("moon").Range("A" & y).Value) Then Sheets("moon").Range("E" & y).Value = Sheets("sky").Range("E" & x).Values - Sheets("lyn").Range("B" & i).Value
        Next y
     Next x
Next i
End Sub


求库存：

如果lyn.a2=sky.a4=moon.a4  如果不同则比较lyn.a2=sky.aX(最大33）=moon.ay(最大36） 如果三者相同 则则 moon.e4=sky.ex-lyn.bi
依次求出moon E5到 MOON e36的值。

jsxjd

上传带代码的文档，要有相应的数据和实现的功能，说明是执行错误还是执行结果不正确？

liu-aguang

如果代码执行错误,应该检查输入的工作表名是否有错,另外if语句的条件不必用括号.

zez

除三楼说的外，还要检查"sky"表的E列和"lyn"表的B列的数据格式！