#REF!ошибка ячейки после удаления сводной таблицы

Question

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

Сценарий, с которым я столкнулся:

У меня есть рабочий стол с сводной таблицей в диапазоне от A3 до B13.В ячейках от D3 до D13 у меня будут статические значения в ячейке.Для каждой строки от 4 до 13 я добавляю значения от B к D и буду хранить результаты в столбце E.

Так, например, ячейка E4 будет содержать формулу =B4+D4.Если бы я удалил сводную таблицу, формула в ячейке E4 изменилась бы на =#REF!+D4.

После запуска макроса, в котором я удаляю сводную таблицу, формула в столбце E заменяет значения в столбце B на #REF!.Макрос прост:

Sub DltPivotTablesFromWS()
    Dim pt As PivotTable

    For Each pt In ActiveWorkbook.ThisWorksheet.PivotTables
        TheWS.Range(pt.TableRange2.Address).Delete Shift:=xlUp
    Next

End Sub

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

Answer 1

INDEX может ссылаться на местоположение листа, которое не изменится при удалении указанной ячейки.

=index(B:B, 3)+D3

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

=index(B:B, row(D3))+D3