Macro: Транспонирование вопрос

Question

Удивление, если кто-то может помочь мне с этим одним

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

Теперь, после того, как он построил первый раз для сводной таблицы, он сработал сон и дал мне результаты, которые я хотел, но всякий раз, когда я обновляю сводную таблицу и меняет ее длину, у меня начались проблемы. Надеемся, что эти скриншоты помогут:

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

Как она стоит на данный момент код для получения этой ячейки устанавливается на это:

Range("AA65").Select 
Selection.ShowDetail = True 

Здесь я понял, что она фиксирована (На данный момент к месту выделенному в красном), и я понятия не имею, как я могу разрешить это, сделав макрос адаптированным к разным длинам сводной таблицы, чтобы он мог транспонировать все содержимое внутри него. Если это поможет, то общее количество будет всегда на той конкретной строке, что это только столбец, где он заканчивается тем, что изменяется.

Есть ли способ создать код, в котором я всегда могу подобрать эту ячейку Grand Total в своде, независимо от того, сколько столбцов она растягивает?

Спасибо за чтение, и я надеюсь получить обратную связь в ближайшее время :)

С наилучшими пожеланиями

Zoe

Answer 1

, например

With ActiveSheet.PivotTables(1).TableRange1 
    .Cells(.Cells.Count).ShowDetail = True 
    End With