如果我没理解错的话...

列F1、G1、H1是要搜索的条件

Sub test()
Dim rgData As Range: Dim rg As Range
Dim rgBeg As Date: Dim rgEnd As Date
Dim dBeg As Date: Dim dEnd As Date
Dim rgCod As Integer

Set rgData = Range("A2", Range("A" & Rows.Count).End(xlUp))
rgCod = Range("F1").Value
rgBeg = Range("G1").Value
rgEnd = Range("H1").Value

    With rgData
        .Replace rgCod, True, xlWhole, , False, , False, False
        Set rg = .SpecialCells(xlConstants, xlLogical).Offset(0, 1)
        .Replace True, rgCod, xlWhole, , False, , False, False
    End With
        
    For Each cell In rg
        dBeg = cell.Value: dEnd = cell.Offset(0, 1).Value
        If rgBeg > dBeg And rgEnd < dEnd Then MsgBox cell.Offset(0, 2): Exit For
    Next
    
End Sub

但是消息方块会显示结果180，因为1-May-21到31-May-21在10-Apr-20到31-Aug-21的范围内。
代码只是创建了一个包含要搜索的代码的范围（在本例中为：102），将“102”替换为TRUE，将具有TRUE值的单元格设置为rg变量，然后将“102”从TRUE置回。
然后循环到rg变量中的每个单元格，将dBeg作为开始日期，dEnd作为结束日期。然后比较rgBeg是否大于dBeg，rgEnd是否小于dEnd...然后msgbox显示结果，即循环单元格的offset（0，2）值。

如果您使用的是Excel 365或Excel 2021，则完全不需要VBA来执行此操作-只需使用FILTER函数即可。
假设左上角的表位于A1，而您的“搜索标准”位于F1：H1中，则在I1中输入以下公式将为您找到该类：

=FILTER(D:D,(G1>=B:B)*(H1<=C:C)*(A:A=F1))