用datevalue试试
附件里有示例
Sub ff()
Dim a, b, c
For i = 1 To 2
a = Cells(i, 1)
b = Cells(i, 2)
c = Cells(i, 3)
If DateValue(c) - DateValue(a) > -1 And DateValue(c) - DateValue(b) >= 0 Then
Cells(i, 4) = "Y"
End If
Next i
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024