Как «пересобирать» сложные формулы?

Question

[Aleksandr]

Что и как вы делаете, когда в сложную формулу с большим количеством функций и вложенности одной в другую нужно внести изменения? Есть ли какие-то приёмы, утилиты, чтобы можно было «пересобрать» формулу? Идея упрощения с использованием дополнительных ячеек не рассматривается.

Пример формулы:

=TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE
(MID(INDIRECT("RC[-3]";0);FIND("td";INDIRECT("RC[-3]";0);FIND("Текст:</td><td class=body>";
INDIRECT("RC[-3]";0);1))+18;FIND("/td";INDIRECT("RC[-3]";0);FIND("Текст:</td><td class=body>";
INDIRECT("RC[-3]";0);FIND("Текст:</td><td class=body>";INDIRECT("RC[-3]";0);1))+26)-FIND("td";
INDIRECT("RC[-3]";0);FIND("Текст:</td><td class=body>";INDIRECT("RC[-3]";0);1))-19);replace!A$2;
replace!B$2);replace!A$3;replace!B$3);replace!A$5;replace!B$5);replace!A$6;replace!B$6);replace!A$8;
replace!B$8);replace!A$9;replace!B$9))

Comments

[Aleksandr]

Нашёл решение для себя:

1. формулу пишу как код
2. храню формулу в вики (можно будет безболезненно откатить версию формулы)
3. комментарии и лишние переносы строк убираю регулярными выражениями:
  3.1 отступы убираю Shift+Tab
  3.2 ^\/.*\/$\n → пусто
  3.3 \n → пусто

В разработке:

=
IF
(
    ISERROR
    (
        SEARCH
        (
            "stopword"
            ;INDIRECT("RC[-20]";0)
            /* Label */
        )
    )
    ;5
    /* в поле Label нет слова stopword */
    ;1
    /* в поле Label содержится слово stopword */
)

В таблице:

=IF(ISERROR(SEARCH("stopword";INDIRECT("RC[-20]";0)));5;1)

Answer 1

[kstyle]

можно написать на VBA макрос формирования формулы

Comments

[Aleksandr]

Вы именно так и делаете?