请大哥帮我看看这个宏，错在什么地方啊..

cj18

Sub 计算二年()
Dim i, j, k, m As Long
j = 4
m = Worksheets("计算").TextBox1   '原始行数
For i = 4 To m
    If Worksheets("母表").Cells(i, 11) - Worksheets("母表").Cells(i, 10) > 365<730 Then
    For k = 1 To 17
        Worksheets("二年到期").Cells(j, k) = Worksheets("母表").Cells(i, k)
       Next k
    j = j + 1
    End If
Next i
End Sub
我要的是大于365但是不能超过730，在线等，谢谢

[ 本帖最后由 cj18 于 2009-3-14 13:14 编辑 ]

maditate

If Worksheets("母表").Cells(i, 11) - Worksheets("母表").Cells(i, 10) > 365<730 Then
把上面名改为下面两句，当然想合并为一句可以。
差=Worksheets("母表").Cells(i, 11) - Worksheets("母表").Cells(i, 10)
if 差>365 and 差<730 then

cj18

谢谢了.....