COMBOX控件显示不重复的问题求助

COMBOX控件显示不重复的问题求助，见附表，谢谢！！
求助02.rar (10.71 KB)

仅供参考

Private Sub UserForm_Initialize()
With ListView1
    .ColumnHeaders.Add , , "俷靡", 38
    .ColumnHeaders.Add , , "脹撰", Width / 6
    .ColumnHeaders.Add , , "齬靡", Width / 6
    .View = lvwReport        'listivew腔珆尨跡宒峈惆桶跡宒
    '.Sorted = True           'listivew腔齬唗扽俶峈杅硉蚕苤善湮
    '.SortKey = 0             'listivew齬唗腔坰竘峈 '馱瘍', 植0羲宎
    .Gridlines = True        '珆尨厙跡盄
    .FullRowSelect = True    '埰勍淕俴恁笢
End With
'ComboBox1.AddItem ˋˋˋ
    r = Sheet1.Cells(65536, 11).End(xlUp).Row
    For i = 12 To 13
        If Sheet1.Cells(65536, i).End(xlUp).Row > r Then r = Sheet1.Cells(65536, i).End(xlUp).Row   'K:M最后一行有数据的列
    Next i
    Set dic = CreateObject("scripting.dictionary")  '字典
        For Each c In Sheet1.Range("K1:M" & r)
            If Not dic.exists(c.Value & "") And Len(c) > 0 Then dic.Add c.Value, ""
        Next c
        a = dic.keys
        For i = 0 To dic.Count - 1
            ComboBox1.AddItem a(i)
        Next i
    Set dic = Nothing
End Sub

谢谢您的回复！