消除vba中的删除重复消息

Sub RemoveDuplicateMessages()
    Dim messages As Range
    Dim uniqueMessages As New Collection
    Dim message As Variant
    Dim uniqueList As String
    
    ' 假设消息列表位于A1:A10单元格
    Set messages = Range("A1:A10")
    
    ' 遍历消息列表，将唯一的消息添加到集合中
    On Error Resume Next
    For Each message In messages
        uniqueMessages.Add message, CStr(message)
    Next message
    On Error GoTo 0
    
    ' 将唯一的消息重新组合成一个新的消息列表
    For Each message In uniqueMessages
        uniqueList = uniqueList & message & vbCrLf
    Next message
    
    ' 将新的消息列表输出到B1单元格
    Range("B1").Value = uniqueList
End Sub