Заполните комбинированный список только числами

Question

Здравствуйте, у меня есть таблица Excel

Я хотел бы заполнить свой комбинированный список ComboBox1 только числами в указанном диапазоне.

До сих пор я использовал этот код для заполнения поля со списком

With Worksheets("mySheet")
   ComboBox1.List = .Range("A1", .Range("A" & Rows.Count).End(xlUp)).Value
End With

Но эта функция заполняет мой список со всеми значениями. Есть ли способ заставить ComboBox распознавать только числа?

Редактировать:

С isNumeric() работал хорошо, но он вставляет пробелы, как на картинке ниже

Заранее спасибо.

Answer 1

Вы можете добавить чек, как показано ниже.

For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
     If IsNumeric(Range("A" & i).Value) And Range("A" & i).Value <> "" Then ComboBox1.AddItem Range("A" & i).Value
Next i