运行报错，错误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]