Excel VBA 类型不匹配日期和范围

Question

我在循环这些数据时遇到问题，想知道你是否可以提供一些建议。

请帮忙为什么我仍然遇到类型不匹配的问题。在此处输入图像描述

我的目的是提取每天的第一个和最后一个条目。

在Excel中，我尝试使用函数LARGE和SMALL来确定一天中的第一个时间和一天中的最后一个时间。然而，在我能够使用该函数之前，出现了类型不匹配的错误。

示例：2024 年 8 月 1 日，仅限上午 7:27 和下午 5:38，然后是 2024 年 8 月 2 日，晚上 7:34 和下午 05:44

曾尝试使用功能 CDate 和 Dim 我的日期范围为暗淡。

Answer 1

试试这个：

Sub testing2()

    Dim dateList As Variant
    Dim firstDate As Date
    newLR = Sheet5.Cells(Rows.Count, 1).End(xlUp).Row
    
    firstDate = #1/8/2024#
    
    dateList = Sheet5.Range("a1:a" & newLR)
    
    For x = 1 To newLR
        If firstDate = dateList(x, 1) Then
            Debug.Print "Good record at row " & x
        End If
    Next x

End Sub