Excel 2007: Lọc dữ liệu vào ComboBox

[Romeo8x]

Em có file excel như dưới đây, ở sheet 2 là danh sách khách hàng, round number và event name.
Em muốn tạo ComboBox ở Sheet 1 để lấy danh sách eventname, nhưng mà trong danh sách đó chỉ cần lấy nhưng cái khác nhau thôi, còn trùng nhau thì không lấy.

 

[ndu96081631]

Em có file excel như dưới đây, ở sheet 2 là danh sách khách hàng, round number và event name.
Em muốn tạo ComboBox ở Sheet 1 để lấy danh sách eventname, nhưng mà trong danh sách đó chỉ cần lấy nhưng cái khác nhau thôi, còn trùng nhau thì không lấy.

Code viết thế này:

Function UniqueList(Range As Range)
  Dim Clls As Range
  With CreateObject("Scripting.Dictionary")
    For Each Clls In Range
      If Clls <> "" And Not .Exists(Clls.Value) Then .Add Clls.Value, ""
    Next Clls
    UniqueList = .Keys
  End With
End Function

Private Sub Worksheet_Activate()
  With Sheet2.Range(Sheet2.[C2], Sheet2.[C1000000].End(xlUp))
    ComboBox1.List() = WorksheetFunction.Transpose(UniqueList(.Cells))
  End With
End Sub

Chỉ cần Active sheet1 thì code sẽ chạy và cập nhật danh sách cho ComboBox