У вас есть макет сводной таблицы, который вы хотите "развернуть". В этой статье Джона Уокенбаха показано, что вы можете сделать с помощью всего нескольких нажатий клавиш, и код VBA не требуется.
Для вашей конкретной ситуации вот что я бы сделал.
1.Откройте "старое" меню сводной таблицы, используя Alt + D, P. Вы получите диалоговое окно, подобное показанному ниже. Выберите "Несколько диапазонов консолидации" и нажмите "Далее".
2.На следующем шаге выберите "Я создам поля страницы"; Нажмите кнопку "Далее".
3.Выделите диапазон ячеек, чтобы он был определен в верхней части диалогового окна, затем нажмите кнопку "Добавить", чтобы скопировать этот диапазон в список "Все диапазоны". Нажмите кнопку "Далее".
4.Выберите ячейку подальше от ваших данных. Здесь вы видите, что я выбрал F3 на том же листе. (Вы можете выбрать другой лист, если хотите.) Нажмите "Готово".
5.Вы получите сводную таблицу, как это. В диалоговом окне снимите флажки "Строка" и "Столбец".
6.Это дает вам сводную таблицу с одной ячейкой.
7.Затем вы дважды щелкнете по одной ячейке, и на новом листе вы получите ваши «неповернутые» данные в виде новой таблицы:
Используя эти данные таблицы, теперь вы можете отфильтровать столбец C, чтобы отобразить непустые пробелы, и вы можете удалить столбец B, и у вас будет желаемый макет.