使用列标题填充UserForm的ComboBox，列标题通过地址引用列

Dim columnTitle As String
columnTitle = Cells(1, 1).Value

ComboBox1.AddItem columnTitle

Sub FillComboBoxWithColumnTitles()
    Dim columnTitle As String
    Dim columnCount As Integer
    Dim i As Integer
    
    ' 获取列数
    columnCount = Cells(1, Columns.Count).End(xlToLeft).Column
    
    ' 清空ComboBox
    ComboBox1.Clear
    
    ' 逐个添加列标题
    For i = 1 To columnCount
        columnTitle = Cells(1, i).Value
        ComboBox1.AddItem columnTitle
    Next i
End Sub