使用列标题填充Excel VBA组合框

Question

我想使用列标题填充组合框（A1到AR1） Excel VBA中如何做到这一点？

Answer 1

此代码应该做的伎俩：

Private Sub UserForm_Initialize() 
Dim Cell As Range 
For Each Cell In Range("A1:AR1") 
    Data_UF.CB.AddItem (Cell.Value) 
Next Cell 
End Sub 

它做的是什么：通过循环从A1到AR1每个细胞，将其添加到用户窗体（Data_UF）组合框（CB），多数民众赞成。 这是在初始化时完成的。