Григорий Боев

Замените
UrlFetchApp.fetch(url, params);
на кэшированный вариант. Примерно так(не проверял, но должно работать):

/**
 * Функция для получения данных из кэша или из сети.
 * @author Boew Grigory (Telegram @ProgrammerForever)
 *
 * @param {string} url - URL для запроса.
 * @param {Object} params - Параметры для запроса. 
 *
 * @return {sting} Возвращает текст ответа из кэша или из сети.
 */
function cachedFetch(url, params) {
  let cache =  CacheService.getScriptCache();
  let key = `${url}-${JSON.stringify(params)}`;
  let cachedResponse = cache.get(key);
  if (cachedResponse){
    return cachedResponse;
  };
  let response = UrlFetchApp.fetch(url, params);
  cache.put(key, JSON.stringify(response.getContentText()));
  return response;
}

Возможно лучше будет получить данные за раз, собрать в таблицу и заполнить её.

=СУММ(LAMBDA(_n1;_n2;_p;ЕСЛИОШИБКА(ПСТР(_n1;_p;1)*ПСТР(_n2;_p;1);0))(A1;A2;{1;2;3;4;5;6;7;8;9;10;11;12;13;14;15}))

Есть несколько ускоренных вариантов:

1. Получить скриптом имена всех листов, скопировать из в Notepad++ и сделать пару замен-дополнений, преобразовав всё в формулы, а формулы вставить в лист
   
2. Написать скрипт, который пропишет эти формулы в ячейки - опять же, перебор листов, запись в ячейки
   
3. Сделать юзер функцию, которая переберёт листы и вытащит нужную ячейку. Я бы предусмотрел в ней чёрный список, чтобы не хватала всё подряд
   

Если нужно готовое решение - пишите в телеграм

Если значения не повторяются, то можно так:
=ЕЧЁТН(ЧСТРОК(unique(ДВССЫЛ("R1:R";0))))
Если вперемешку и повторяются при этом, то надо сразу весь столбец считать.

=ArrayFormula(LET(
  raw;$A:$A;
  r;СТРОКА(ДВССЫЛ("RC";0));
  c;СТОЛБЕЦ(ДВССЫЛ("RC";0));
  countNotEquals;СУММ(ARRAY_CONSTRAIN(ЕСЛИ({{"";raw}<>{raw;""}};1;0);r;1));
  ЕЧЁТН(countNotEquals)
))

Но лучше отдельно такой столбец посчитать формулой, и красить всё на основе его, а то получается большая сложность алгоритма, может подвисать

=arrayformula({
ваша_формула;
{""\""\""\""\""};
{""\""\"Подпись"\"_____"\""};
{""\""\""\""\image(ссылка на печать)};
})

if (message.author.bot) {
      return; // Тут выполнение функции заканчивается, второй блок кода не выполнится
   }

Что-то вроде этого

Sub Replace_Dates()
  Dim i As Long
  Dim v As String
  For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    v = Cells(i, 1).Value

    v = Replace(v, " января", ".1.")
    v = Replace(v, " февраля", ".2.")
    v = Replace(v, " марта ", ".3.")
    v = Replace(v, " апреля ", ".4.")
    v = Replace(v, " мая ", ".5.")
    v = Replace(v, " июня ", ".6.")
    v = Replace(v, " июля ", ".7.")
    v = Replace(v, " августа ", ".8.")
    v = Replace(v, " сентября ", ".9.")
    v = Replace(v, " октября ", ".10.")
    v = Replace(v, " ноября ", ".11.")
    v = Replace(v, " декабря ", ".12.")
    v = Replace(v, " года", "")

    Cells(i, 1).Value = CDate(v)
  Next i
End Sub

Или скопировать в Notepad++, сделать эти замены по-быстрому вручную, и скопировать обратно.

const filterValue = bookSS.getSheetByName("Sheet_Values ").getRange("B3").getValue();
var bookListValues = bookRange.getValues().filter(row=>row[3]===filterValue );

year.length === undefined
undefined < 2 === false
(year.length = 3) === 3 >> true
return Math.ceil(...)

Как уже посоветовали, делайте ВПР

=arrayformula(
 еслиошибка(
  ВПР(
   $a$2:$a
   ;{table1!$a$2:$a\table1!$g$2:$g}
   ;2
   ;0
  )
 )
)