Всем привет! На форме имеется ComboBox2, который имеет два столбца. Как заполнить его уникальными значениями из двух столбцов таблицы на листе? Учитывая, что таблица будет увеличиваться со временем.
столбец "A" (таблица) = 1-ый столбец в ComboBox2 столбец "B" (таблица) = 2-ой столбец в ComboBox2
Function cb(rng As Range) As Collection
Dim cell As Range
Dim c As New Collection
On Error Resume Next
For Each cell In rng
c.Add cell.Value, cell.Value
Next cell
On Error GoTo 0
Set cb = c
End Function
Sub foo()
'пример использования
Dim key
For Each key In cb([b3:b24])
Debug.Print key
Next key
End Sub
Учитывая, что таблица будет расширяться, мы просто делаем динамический именованный диапазон и подставляем это имя в функцию. Дальше - дело техники.