Добавьте более одного диапазона в комбинированный список

Question

У меня есть выпадающий список, и я хочу добавить E1, а затем еще один диапазон где-то между E2 и E13, в зависимости от некоторых переменных. Но происходит то, что добавляется весь диапазон, E1: E13. Это код:

Sheets("GraphChoice").MonthComboBox.AddList = Sheets("FormInfo").Range("E1", "E" & startmonth + 1 & ":E13")

Можно ли добавить более одного диапазона в комбинированный список?

Answer 1

Попробуйте этот код

Sub Test()
Dim a, e, r As Range, i As Long
With Sheets("FormInfo")
    Set r = Application.Union(.Range("E1"), .Range("E4:E13"))
    ReDim a(1 To r.Cells.Count)
    For Each e In r
        i = i + 1
        a(i) = e
    Next e
    Sheets("GraphChoice").MonthComboBox.List = a
End With
End Sub