Скрыть пустые столбцы справа на основе фильтра

Question

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

По сути, я хочу отфильтровать столбец, и на основе отфильтрованного значения скрыть столбцы, которые имеют пустую ячейку в соответствующей строке, которая была отфильтрована.

У меня есть пример ниже. Мы будем называть лист "список задач"? Так что, в принципе, если я фильтрую столбец B для Эрика, столбец C, E, G, H и я должны быть скрыты. Тогда нефильтрование должно убрать эти столбцы.

Я не слишком разбираюсь в VBA, но кажется, что это может быть решение на основе vba для рабочего листа?

Спасибо, ребята.

Answer 1

Предполагается, что у вас нет данных ниже отфильтрованных данных.

Сначала настройте фильтр, а затем запустите:

Sub HideStuff()
    Dim i As Long
    Columns.Hidden = False
    For i = 3 To 9
    If Application.WorksheetFunction.Subtotal(3, Columns(i).Cells) = 1 Then
        Columns(i).Hidden = True
    End If
    Next i
End Sub

ПРИМЕЧАНИЕ:

Мы проверяем по 1 , потому что единственными видимыми данными (в столбце-кандидате) должен быть заголовок
Это также можно легко изменить для работына мероприятии.