查找与文本"X“匹配的单元格，然后在VBA Excel中查找最近的日期

Sub FindClosestDate()
    Dim searchRange As Range
    Dim cell As Range
    Dim searchText As String
    Dim closestDate As Date
    Dim currentDate As Date
    Dim dateDiff As Long
    
    searchText = "X" ' 要查找的文本
    
    ' 设置要搜索的范围
    Set searchRange = ActiveSheet.UsedRange
    
    ' 初始化最近日期和日期差
    closestDate = Date
    dateDiff = 99999
    
    ' 遍历每个单元格
    For Each cell In searchRange
        ' 检查单元格的值是否与搜索文本匹配
        If cell.Value = searchText Then
            ' 检查单元格的日期是否比当前最近日期更接近
            currentDate = cell.Offset(0, 1).Value ' 假设日期在当前单元格的下一列
            If Abs(currentDate - Date) < dateDiff Then
                closestDate = currentDate
                dateDiff = Abs(currentDate - Date)
            End If
        End If
    Next cell
    
    ' 输出最近的日期
    MsgBox "最近的日期是：" & closestDate
    
End Sub