使用列标题填充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，将其添加到Userform（Data_UF）中的组合框（CB）。 这是在初始化时完成的。