在excel中使用宏从不区分大小写的单元格中删除重复项

Sub RemoveDuplicatesIgnoreCase()
    Dim rng As Range
    Dim cell As Range
    Dim dict As Object
    
    Set rng = ActiveSheet.UsedRange ' 可以根据需要更改为特定的单元格范围
    
    Set dict = CreateObject("Scripting.Dictionary")
    dict.CompareMode = vbTextCompare ' 设置字典的比较模式为不区分大小写
    
    For Each cell In rng
        If Not IsEmpty(cell.Value) Then
            If Not dict.exists(cell.Value) Then
                dict.Add cell.Value, Nothing
            Else
                cell.ClearContents ' 删除重复项
            End If
        End If
    Next cell
    
    Set dict = Nothing
End Sub