VBA如何按指定增量为ComboBox组合框批量添加连续数值选项

基础循环实现（逻辑直观，适合小范围填充） #

' 先清空原有选项，避免重复
LowerFilmWidth_ComboBox.Clear
' 从300遍历到650，步长为1，逐个添加选项
Dim i As Integer
For i = 300 To 650 Step 1
    LowerFilmWidth_ComboBox.AddItem CStr(i)
Next i

数组批量赋值实现（性能更优，适合大范围填充场景） #

如果后续需要填充的数值范围变大，推荐用数组一次性赋值的方式，避免多次调用AddItem带来的性能损耗：

Dim startVal As Integer, endVal As Integer, stepVal As Integer
Dim optArr As Variant, idx As Integer

' 可按需修改三个参数，适配不同填充需求
startVal = 300
endVal = 650
stepVal = 1

LowerFilmWidth_ComboBox.Clear
' 生成对应数值的数组
ReDim optArr(0 To (endVal - startVal) \ stepVal)
For idx = 0 To UBound(optArr)
    optArr(idx) = CStr(startVal + idx * stepVal)
Next idx
' 一次性完成所有选项填充
LowerFilmWidth_ComboBox.List = optArr

注意事项 #

• 代码适用于用户窗体控件、工作表ActiveX控件两种场景，只要保证控件名称LowerFilmWidth_ComboBox和实际一致即可
• 不需要清空原有选项的话，删除对应Clear方法的代码行即可
• 如果要调整填充规则，直接修改数组方案里的startVal、endVal、stepVal三个参数即可，无需修改循环逻辑

内容的提问来源于stack exchange，提问作者Eduards