运行报错，错误13
我是一个新手，下面的语句报错，错误13d 是个日期
表一的c列也是时间，B列是数值，目的是判断 10050/B列数值 + C列日期的结果与 d 比较
请各位大侠指教
Sub Calculate_client()
Dim i&, r&, d&, k&, j&, l&
Sheets(1).Activate
r = Range("g1000000").End(xlUp).Row
k = 2 'Sheet2 的起始行
d = Sheets(2).Range("a1").Value
For i = 1 To r
If Sheets(1).Range("b" & i).Value"" And Sheets(1).Range("c" & i).Value"" Then
h = 10050 / Sheets(1).Cells(i, 2).Value
h1 = Sheets(1).Range("c" & i).Value
h = h + h1
If h < d Then
Sheets(2).Range("c" & k).Value = Sheets(1).Range("a" & i).Value
Sheets(2).Range("d" & k).Value = Sheets(1).Range("c" & i).Value
k = k + 1
End If
End If
Next
End Sub 文件发上来
页:
[1]