Excel -如何将列标题与行标题(日期)相匹配，并在VBA中返回查找值

Sub FindValue()
    Dim ws As Worksheet
    Dim searchValue As String
    Dim columnRange As Range
    Dim rowRange As Range
    Dim resultCell As Range
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置要查找的值
    searchValue = "要查找的值"
    
    ' 设置列标题的范围
    Set columnRange = ws.Range("B1:F1")
    
    ' 设置行标题的范围
    Set rowRange = ws.Range("A2:A6")
    
    ' 在列标题范围中查找匹配的列
    Set resultCell = columnRange.Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 如果找到匹配的列
    If Not resultCell Is Nothing Then
        ' 在行标题范围中查找匹配的行
        Set resultCell = rowRange.Find(What:=resultCell.Offset(0, -1).Value, LookIn:=xlValues, LookAt:=xlWhole)
        
        ' 如果找到匹配的行
        If Not resultCell Is Nothing Then
            ' 返回查找值
            MsgBox ws.Cells(resultCell.Row, resultCell.Column).Value
        Else
            MsgBox "未找到匹配的行。"
        End If
    Else
        MsgBox "未找到匹配的列。"
    End If
End Sub