在VBA中，您可以使用Range.Find方法來查找特定日期對應的數據。以下是一個示例代碼：

Sub FindDataByDate()
    Dim ws As Worksheet
    Dim searchRange As Range
    Dim findDate As Date
    Dim foundCell As Range
    
    ' 設置要搜索的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 設置要搜索的范圍
    Set searchRange = ws.Range("A1:A10") ' 假設日期在A1:A10范圍內
    
    ' 設置要查找的日期
    findDate = DateSerial(2022, 1, 1) ' 假設要查找的日期是2022年1月1日
    
    ' 使用Range.Find方法查找日期對應的單元格
    Set foundCell = searchRange.Find(What:=findDate, LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 檢查是否找到匹配的單元格
    If Not foundCell Is Nothing Then
        ' 找到了匹配的單元格，輸出所在行的數據
        MsgBox foundCell.Offset(0, 1).Value ' 假設要輸出所在行的下一列數據
    Else
        ' 沒有找到匹配的單元格
        MsgBox "沒有找到對應日期的數據。"
    End If
End Sub

在上述示例代碼中，我們通過Range.Find方法來查找匹配的日期單元格。What參數指定要查找的日期，LookIn參數指定要查找的內容，LookAt參數指定匹配方式。如果找到了匹配的單元格，則可以通過foundCell對象獲取相關數據。如果沒有找到匹配的單元格，則輸出相應的提示信息。

請將示例代碼中的工作表名稱、搜索范圍、日期和數據輸出的列做適當修改，以適應您的實際情況。