Table content to ComboBox

[Roschel]

Hi,

I have a table with many names in the first column, including repeated names.
I would like to create a combobox and additens with the names of this column, excluding the repeated ones.

Just like the image below:

Is there a method in vba with listobjects (Table) to do that?

 

[Yongle]

The code below correctly populates with
Canada
England
France
Spain
Portugal
Germany
Italy

Excel 2016 (Windows) 32 bit
[Table="width:, class:head"][tr=bgcolor:#E0E0F0][th] [/th][th]

A​

[/th][th]

B​

[/th][th]

C​

[/th][/tr]
[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

1​

[/td][td][/td][td=bgcolor:#4472C4]Country[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

2​

[/td][td][/td][td=bgcolor:#D9E1F2]Canada[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

3​

[/td][td][/td][td]England[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

4​

[/td][td][/td][td=bgcolor:#D9E1F2]France[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

5​

[/td][td][/td][td]Canada[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

6​

[/td][td][/td][td=bgcolor:#D9E1F2]England[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

7​

[/td][td][/td][td]France[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

8​

[/td][td][/td][td=bgcolor:#D9E1F2]Canada[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

9​

[/td][td][/td][td]England[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

10​

[/td][td][/td][td=bgcolor:#D9E1F2]France[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

11​

[/td][td][/td][td]Canada[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

12​

[/td][td][/td][td=bgcolor:#D9E1F2]England[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

13​

[/td][td][/td][td]France[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

14​

[/td][td][/td][td=bgcolor:#D9E1F2]Spain[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

15​

[/td][td][/td][td]Portugal[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

16​

[/td][td][/td][td=bgcolor:#D9E1F2]Germany[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

17​

[/td][td][/td][td]Italy[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

18​

[/td][td][/td][td][/td][td][/td][/tr]
[/table][Table="width:, class:grid"][tr][td]Sheet: Sheet X[/td][/tr][/table]


ComboBox1 on " Sheet X" is populated with unique items from table column 1 (NOT column A)
(to refer to table by name : Sheets("Sheet X").ListObjects("CountryList").ListColumns(1).DataBodyRange )

Private Sub ComboBox1_GotFocus()
    Dim Rng As Range: Set Rng = Sheets("Sheet X").ListObjects(1).ListColumns([COLOR=#ff0000]1[/COLOR]).DataBodyRange
    Call PopulateCombo(ComboBox1, Rng)
End Sub

Sub PopulateCombo(combo As Object, aRange As Range)
    Dim Uneek As New Collection, Cel As Range, T As String
    combo.Clear
    For Each Cel In aRange
        T = Cel.Text
        On Error Resume Next
        If T <> "" Then Uneek.Add T, T
        If Not Err.Number > 0 Then combo.AddItem T
        On Error GoTo 0
    Next
End Sub