Разрешить выбор «Все» или «пустой» выбор

Я видел следующую ссылку с вопросом, который задавал вопрос об извлечении уникального списка значений из столбца в excel. Я смог использовать код VBA, отправленный пользователем @totymedli.

Мой вопрос в том, как я могу добавить код для выбора «Все» или «Пусто»?

Я использую результаты VBA для заполнения выпадающего списка в ячейке. Я, в свою очередь, использую формулы в таблице, которые ссылаются на эту ячейку как фильтр для таблицы. Когда я выбираю опцию из списка, созданного VBA в выпадающем меню, он отлично работает. Только сейчас проблема заключается в том, что я не хочу иметь вторую таблицу, в которой нет выпадающих списков фильтров в формулах. Легче ли это сделать в самой формуле или в коде VBA?

Это пример одной из формул, которые я использую:

=COUNTIFS('Master (Do Not Move Columns)'!$A:$A,B$2,'Master (Do Not Move Columns)'!$B:$B,'Summary-LT BD TEST'!$R$3)

Ниже приведена часть формулы, которая ссылается на ячейку с выпадающим списком с результатами кода VBA.

'Master (Do Not Move Columns)'!$B:$B,'Summary-LT BD TEST'!$R$3)

Получение уникальных значений в Excel только с использованием формул

 Function listUnique(rng As Range) As Variant Dim row As Range Dim elements() As String Dim elementSize As Integer Dim newElement As Boolean Dim i As Integer Dim distance As Integer Dim result As String elementSize = 0 newElement = True For Each row In rng.Rows If row.Value <> "" Then newElement = True For i = 1 To elementSize Step 1 If elements(i - 1) = row.Value Then newElement = False End If Next i If newElement Then elementSize = elementSize + 1 ReDim Preserve elements(elementSize - 1) elements(elementSize - 1) = row.Value End If End If Next distance = Range(Application.Caller.Address).row - rng.row If distance < elementSize Then result = elements(distance) listUnique = result Else listUnique = "" End If End Function 

Спасибо за помощь в продвижении!

Джесси

Interesting Posts

VBA Excel, как принудительно применить приложение VBA в EXCEL VBA

Выбор недели недели Excel VBA Pivot

Создание уникального идентификатора для ячеек в поле с использованием генератора случайных чисел

Запрос доступа к электронной таблице Excel

Множество vlookup с использованием индекса и соответствия

выберите разделительный лист в данных импорта из Excel в базу данных ADO.net, используя C #

Ultragrid infragistics превосходит экспорт экспорта UltraDropDownList ValueMember not DisplayMember

Сохранение документов Excel 2007

Где я могу найти документацию ExcelWriter

Цвет фона диаграммы Excel

Элементы combobox Vba UserForm не отображаются, пока я не нажму на форму пользователя

Как перенести форматы ячеек Excel в C # Interop?

Как добавить апостроф в каждую ячейку в конкретном столбце в excel без потери начальных нулей

Создайте динамическое изменяющееся имя диапазона имен в excel

If и Else Condition для разделения на разные листы

Давайте будем гением компьютера.