如何在通过用户窗体保存之前检测重复的管道分隔日期元素，因为它们已经存在于 Excel 表格中？

Dictionary 对象用于维护日期列表，并将连接的行号作为其对应值。

Option Explicit
Sub Demo()
    Dim objDic As Object, rngData As Range
    Dim i As Long, j As Long, sCmt As String
    Dim arrData, arrRes, sKey, arrKey
    Dim oSht As Worksheet
    Set objDic = CreateObject("scripting.dictionary")
    Set oSht = Sheets("Sheet3") ' Update as needed
    ' Loading table
    Set rngData = oSht.Range("A1").CurrentRegion
    arrData = rngData.Value
    ' Dict key: date string
    ' Dict value: concatenated row numbers
    For i = LBound(arrData) + 1 To UBound(arrData)
        sKey = Mid(arrData(i, 1), 2, Len(arrData(i, 1)) - 2)
        arrKey = Split(sKey, "||")
        For j = LBound(arrKey) To UBound(arrKey)
            sKey = arrKey(j)
            If objDic.exists(sKey) Then
                objDic(sKey) = objDic(sKey) & "," & i
            Else
                objDic(sKey) = i
            End If
        Next j
    Next i
    Dim inputText As String
    inputText = "|12-sep||30-sep|" ' Test 1
'    inputText = "|01-sep||02-sep|" ' Test 2
'    inputText = "|01-sep||27-sep|" ' Test 3
    sCmt = ""
    sKey = Mid(inputText, 2, Len(inputText) - 2)
    arrKey = Split(sKey, "||")
    ' Check the existance of date string
    For j = LBound(arrKey) To UBound(arrKey)
        If objDic.exists(arrKey(j)) Then
            arrRes = Split(objDic(arrKey(j)), ",")
            For i = LBound(arrRes) To UBound(arrRes)
                arrData(arrRes(i), 2) = "Review"
            Next i
            sCmt = "Review"
        End If
    Next
    ' Write upated table
    rngData.Value = arrData
    ' Write new recorde
    With oSht.Cells(oSht.Rows.Count, 1).End(xlUp).Offset(1, 0)
        .Value = inputText
        .Offset(0, 1).Value = sCmt
    End With
    Set objDic = Nothing
End Sub