如何在此VBA代码中查找重复日期？

Sub FindDuplicateDates()
    Dim datesArray() As Date
    Dim i As Integer, j As Integer
    Dim duplicateDates As String
    
    ' 假设日期数据存储在A列中，从第2行开始
    ' 调整范围和列号以适应实际情况
    Dim lastRow As Integer
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 将日期数据存储到数组中
    ReDim datesArray(1 To lastRow - 1)
    For i = 2 To lastRow
        datesArray(i - 1) = Cells(i, 1).Value
    Next i
    
    ' 查找重复日期
    For i = 1 To UBound(datesArray)
        For j = i + 1 To UBound(datesArray)
            If datesArray(i) = datesArray(j) Then
                ' 如果存在重复日期，记录下来或执行相应的操作
                duplicateDates = duplicateDates & datesArray(i) & ", "
            End If
        Next j
    Next i
    
    ' 输出结果
    If Len(duplicateDates) > 0 Then
        MsgBox "重复日期：" & Left(duplicateDates, Len(duplicateDates) - 2)
    Else
        MsgBox "没有找到重复日期。"
    End If
End Sub