VBA循环计算时间差返回数字不正确

595333471

VBA循环计算时间差返回数字不正确
就是筛选后，计算筛选出的所有时间差，因为当天也要算一天，所以每次计算后要+1


代码在窗体的 确认按钮上

不是返回数字超大就是报错
我在另一份测试文件（只有6行数据），一样的代码没有任何问题
求大神帮我看看哪里出错了。。

Private Sub CommandButton1_Click()

t1 = TextBox1.Value
t2 = TextBox2.Value

i = Sheet2.Range("a65536").End(xlUp).Row
    Sheet2.Range("A1:O" & i).AutoFilter Field:=15, Criteria1:="<>"
    Sheet2.Range("A1:O" & i).AutoFilter Field:=2, Criteria1:=">=" & t1, Operator:=xlAnd, Criteria2:="<=" & t2

    Dim z, k As Integer

    For z = 2 To i

        k = k + (DateDiff("d", Sheet2.Range("L" & z), Sheet2.Range("M" & z)) + 1)

    Next z

    Label4.Caption = k

    Range("A1").AutoFilter

'
End Sub

huang1314wei

当z=2的时候， Sheet2.Range("L" & z)  的值为空，所以报错

595333471

huang1314wei 发表于 2018-8-28 18:27
当z=2的时候， Sheet2.Range("L" & z)  的值为空，所以报错

也就是不管是否是筛选后的数据，只要前面有空就不行，我筛选的是 8月1到 9月1 的

huang1314wei

595333471 发表于 2018-8-28 19:39
也就是不管是否是筛选后的数据，只要前面有空就不行，我筛选的是 8月1到 9月1 的

是的，可以这样理解

595333471

huang1314wei 发表于 2018-8-28 19:58
是的，可以这样理解

感谢！看来我要使出野路子方法了