检查值是否在一组范围间隔之间

Question

我在3列中有一组数据。它们都是以米为单位的深度。 在A列和B列中，我有范围间隔，A列为“从”，B列为“到”。 C列是深度值。 我想知道是否可以创建一个脚本来检查C列中每个单元格的值是否在A列和B列的任何范围间隔之间。 如果存在，则将D列中的1放在C列中的值旁边。如果不存在，则将其放在0中。 感谢您的帮助

Answer 1

D2中的公式

=IF(AND(C2>=A2, C2<=B2),1,0)

Answer 2

如果您希望通过编程方式执行此操作，那么以下方法将起作用：

Sub checkvalues()
Dim comparea As Long
Dim compareb As Long
Dim comparec As Long


For i = 1 To 4
    comparea = Cells(i, 1).Value
    compareb = Cells(i, 2).Value
    comparec = Cells(i, 3).Value
    Cells(i, 4).Value = IIf(comparec >= comparea And comparec <= compareb, 1, 0)

Next i

End Sub