Пропустить пустые ячейки в функции диапазона без цикла с VBA Excel

Question

Я создал комбинированный список и хочу добавить элемент, определенный на другом листе, поэтому я использовал.

cmbType.List = Sheets("TBL_USER_META").Range("B3:B6").Value

Теперь мои проблемы:

1. Этодиапазон может увеличиться в будущем, поэтому мы можем выбрать весь столбец B?
2. В настоящее время диапазон также содержит пустую ячейку, которая отображается в выпадающем списке. Можем ли мы их пропустить?

Я нашел различные решения, чтобы пропустить пустую ячейку, но все остальные решения используют цикл для итерации каждой ячейки и проверки, пуста она или нет. Пожалуйста, помогите.

Answer 1

если ваш исходный диапазон не увеличится на 65536 ячеек, а в их содержимом нет пустых символов, вы можете использовать:

With Sheets("TBL_USER_META")
    cmbType.List = Split(WorksheetFunction.Trim(Join(Application.Transpose(.Range("B3", .Cells(.Rows.Count, 2).End(xlUp)).Value), " ")), " ")
End With

если у них есть какой-либо пустой символ, вам понадобятся некоторыебольше твикинг