>>70
セルから値をとってるならこれでいいと思われ

Dim i As Long

For i = 1 To 168

 If Cells(i, 1) <> "" Then

  ComboBox1.AddItem Cells(i, 1)

 End If

Next