从与特定日期匹配的列表中提取值- Excel VBA循环

Sub ExtractValue()
    Dim searchDate As Date
    Dim dataRange As Range
    Dim cell As Range
    
    ' 设置要搜索的日期
    searchDate = DateSerial(2022, 1, 1)
    
    ' 设置包含日期和值的列表范围
    Set dataRange = Range("A1:B10")
    
    ' 遍历列表中的每个单元格
    For Each cell In dataRange
        ' 检查单元格中的日期是否与搜索日期匹配
        If cell.Value = searchDate Then
            ' 如果匹配，则提取对应的值
            MsgBox "找到匹配的日期：" & cell.Value & "，对应的值为：" & cell.Offset(0, 1).Value
            Exit Sub ' 找到匹配后退出循环
        End If
    Next cell
    
    ' 如果没有找到匹配的日期
    MsgBox "没有找到匹配的日期：" & searchDate
End Sub