计算是否有开始和结束范围的行包含特定的数字
我有一个表，其中两列包括表中的每一行或logging的开始和结束号码。 在一个单独的区域，我有从1到39的数字。我想要执行计数，如果所有这些数字，以便我知道有多lesslogging包括范围，将包括该数字。
所以我们假设左栏是起始号码，右侧是结束号码：
7 36 8 14 8 35 9 29 10 39 11 36 13 34 13 15 14 39 我想得到每行可以包含14的计数。这将包括第一行，因为它从7开始，到36结束，所以在14之间。 同样，下一行以14结尾，所以还包含14。
注意：14只是一个例子，我还需要检查更多的数字是否在上述范围内。 上面的范围也是例子，有很多logging包括那些范围字段都是不同的。
虽然我知道如何计算，如果在开始和结束数是计数标准的情况下（如果公式是简单的多个标准计数），我不知道如何在这种情况下做相反的事情。 或者我还没有想到一个简单的方法来这样做。 有什么想法吗？
我认为这个代码应该让你非常接近你想要的地方。
它会问你两列的数据范围，然后为一个单元输出结果。
没有扫描的每个logging的结果将单独列出
一如既往在工作副本上尝试。 祝你好运！
Sub CountInRange() Dim RangeToScan As Range Dim RangeToWrite As Range Dim NumToFind As Integer Dim Found As Integer Dim Row As Long Dim CurrentCell As Range 'Have the user show me the range of numbers Set RangeToScan = Application.InputBox("Select the range to scan", _ Title:="Count in Range", Type:=8) 'Make sure the range is only two cols wide Do While RangeToScan.Columns.Count <> 2 MsgBox ("The range can only be 2 columns wide!") Set RangeToScan = Application.InputBox("Select the range to scan", _ Title:="Count in Range", Type:=8) Loop 'Have the user show me the starting write location Set RangeToWrite = Application.InputBox("Select the starting write location", _ Title:="Count in Range", Type:=8) Do While RangeToWrite.Columns.Count > 1 And RangeToWrite.Rows.Count > 1 MsgBox ("The starting write location must be one cell") Set RangeToWrite = Application.InputBox("Select the range to scan", _ Title:="Count in Range", Type:=8) Loop 'For each number to find For NumToFind = 1 To 39 Found = 0 Set CurrentCell = RangeToScan(1, 1) 'for each row in the Range to Scan For Row = 1 To RangeToScan.Rows.Count If NumToFind >= CurrentCell.Value And NumToFind <= CurrentCell.Offset(0, 1).Value Then Found = Found + 1 End If Set CurrentCell = CurrentCell.Offset(1, 0) Next Set CurrentCell = RangeToWrite(NumToFind, 1) CurrentCell.Value = "Record " & NumToFind & " was found " & Found & " times" Next End Sub
请尝试：
=COUNTIFS(A:A,"<="&D$1,B:B,">="&D$1)
其中D1包含14 。
您可能想要在第1行将D1的替代选项设置为D1，并将上面的公式复制到右侧。