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

=ЕСЛИ(ЕОШИБКА(НАЙТИ("сто";A1));"";"сто")&
  ЕСЛИ(ЕОШИБКА(НАЙТИ("один";A1));"";"один")&
  ЕСЛИ(ЕОШИБКА(НАЙТИ("кря";A1));"";"кря")&
  ЕСЛИ(ЕОШИБКА(НАЙТИ("му";A1));"";"му")

и т.п.

Что-то вроде:

Sub ProcessFilesInDirectory()
    Dim folderPath As String
    Dim fileName As String
    Dim wb As Workbook
    
    ' Путь к директории
    folderPath = "C:\temp\"
    
    ' Получаем первый файл с расширением .xlsx в директории
    fileName = Dir(folderPath & "*.xlsx")
    
    ' Перебираем все файлы в директории
    Do While fileName <> ""
        ' Открываем файл
        Set wb = Workbooks.Open(folderPath & fileName)
        
        ' Вызываем функцию macros3
        Call macros3()
        
        ' Сохраняем и закрываем файл
        wb.Close SaveChanges:=True
        
        ' Получаем следующий файл
        fileName = Dir
    Loop
End Sub

Если в Google Sheet:

=arrayformula(let(
  author;   "@ProgrammerForever";
  keys;       $A$2:$A;
  values;     $B$2:$B;
  
  uni_keys;      sort(unique(FILTER(keys;keys<>"")));
  joined_values; byrow(uni_keys; lambda(key; ЕСЛИОШИБКА(JOIN("; "; filter(values;keys=key)))));
  
  hstack(uni_keys;joined_values)
))

Всё возможно, только сейчас это не вопрос, а задание.

Для закраски подойдёт условное форматирование: номер недели + продолжительность <= номер столбца
Для переноса номеров ИНДЕКС / ВПР / ГРП / ПОИСКОЗ

=индекс(ваша_формула;1;1)
или
=chooserows(ваша_формула;1)
или сделать так:
( ваш_xpath )[1]

=arrayformula(if(c2:c="";;c2:c*'Данные'!$B$2))

Не понятно до конца - в чём задача. Если надо найти данные по индексу, то используйте ВПР. Если ввести 1033 и должен предложить уже введённый где-то вариант "1033-Краснодар, улица Пушкина", то это - проверка данных.

=СУММ(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}))

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

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++, сделать эти замены по-быстрому вручную, и скопировать обратно.

Можно и не писать, в большинстве случаев. Оно нужно когда "вызывается" выражение, не начинающееся идентификатора. Вот пример с документации:

Sub TestCall()
    Call (Sub() Console.Write("Hello"))()

    Call New TheClass().ShowText()
End Sub

Class TheClass
    Public Sub ShowText()
        Console.Write(" World")
    End Sub
End Class

Во втором столбце - не числа
Решение:
196.67 => 196,67