仅用数字填充组合框

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

仅用数字填充组合框

Fill combobox with only numbers

excel

vba

combobox

range

fill