Dim sh: Set sh = CreateObject("Wscript.Shell")
sh.Run (ActiveWorkbook.Path): Set sh = Nothing

Sub ОткрытьПапкуТекущейКниги()
Dim sh: Set sh = CreateObject("Wscript.Shell")
sh.Run """" & ActiveWorkbook.Path & """": Set sh = Nothing
End Sub

=СМЕЩ(A1;ПОИСКПОЗ(1;1^A1:A8);)

=ПОИСКПОЗ(;СЧЁТЕСЛИ(СМЕЩ($A11:$A20000;СТРОКА($A$1:$A$20000););C1);)

=ПОИСКПОЗ(1;СЧЁТЕСЛИ(СМЕЩ($A11:$A20000;СТРОКА($A$1:$A$20000););C1);)

Sub пересчет()
      Selection.Calculate
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'включаем действие по клику
     If Not Intersect(Target, Range("K4:K5000")) Is Nothing Then 'включаем макрос для данного диапазона ячеек
             With Target(1, 1) 'указываем, с какой ячейкой работать макросу
                 Dim Name$: Name = Application.UserName
                 If IsEmpty(Target) Then 'если ячейка изначально пуста, то включаем макрос без перевода на новую строку
                     .Value = Now & " " & Name & ": "
                 Else
                     .Value = .Value & vbLf & Now & " " & Name & ": "
                 End If
                 'With .Characters(InStr(.Value, Name), Len(Name)) ' если раскомментировать эту строку и закометировать следующую, то выделится только имя пользователя
                 With .Characters(Len(.Value), 1)
                     .Font.Color = IIf(Name = "Иванов А.", vbRed, vbBlue)
                 End With
                 Application.SendKeys "^{END}"
             End With
         End If
Cancel = 0
End Sub

=СцепитьЕсли(СМЕЩ(Лист1!A3;;ПОИСКПОЗ(A9;Лист1!1:1;)-1;СЧЁТЗ(СМЕЩ(Лист1!A:A;;ПОИСКПОЗ(A9;Лист1!1:1;)-1)));">0";СМЕЩ(Лист1!A3;;ПОИСКПОЗ(A9;Лист1!1:1;)-1;СЧЁТЗ(СМЕЩ(Лист1!A:A;;ПОИСКПОЗ(A9;Лист1!1:1;)-1)));", ")

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'включаем действие по клику
    On Error GoTo err
     If Not Intersect(Target, Range("K4:K5000")) Is Nothing Then 'включаем макрос для данного диапазона ячеек
         With Target(1, 1) 'указываем, с какой ячейкой работать макросу
             With Application: .ScreenUpdating = 0: .EnableEvents = 0: End With
             Dim Name$: Name = Application.UserName
             Dim L&: L = Len(.Value)
             Dim char, arr&(), i&
             ReDim arr(L + (L > 0))
             For i = 1 To L: arr(i - 1) = .Characters(i, 1).Font.Color: Next
             'если ячейка изначально пуста, то включаем макрос без перевода на новую строку
             .Value = .Value & IIf(L, vbLf, "") & Now & " " & Name & ": "
             For i = 1 To L: .Characters(i, 1).Font.Color = arr(i - 1): Next
             'With .Characters(InStr(.Value, Name), Len(Name)) ' если раскомментировать эту строку и закометировать следующую, то выделится только имя пользователя
             With .Characters(L + 1, Len(.Value) - L - 1)
                 .Font.Color = IIf(Name = "krosav4ig", vbRed, vbBlue)
             End With
             .Characters(Len(.Value)).Font.ColorIndex = xlAutomatic
             Application.SendKeys "^{END}"
         End With
     End If
     Cancel = 0
     If err.Number Then MsgBox "Ошибка " & err.Number & " (" & err.Description & ") в Worksheet_BeforeDoubleClick модуля Лист2"
err:
With Application: .ScreenUpdating = 1: .EnableEvents = 1: End With
End Sub

=ПОДСТАВИТЬ(ЕСЛИ(ДЛСТР(A11)-ДЛСТР(ПОДСТАВИТЬ(A11;",";))=ЧСТРОК(СМЕЩ(Лист1!$A$3;;ПОИСКПОЗ(A9;Лист1!$1:$1;)-1;СЧЁТЗ(СМЕЩ(Лист1!$A:$A;;ПОИСКПОЗ(A9;Лист1!$1:$1;)-1))));A11;ЕСЛИ(ДЛСТР(A11)>1;A11&",";",")&ИНДЕКС(""&СМЕЩ(Лист1!$A$3;;ПОИСКПОЗ(A9;Лист1!$1:$1;)-1;СЧЁТЗ(СМЕЩ(Лист1!A:A;;ПОИСКПОЗ(A9;Лист1!$1:$1;)-1)));1+ДЛСТР(A11)-ДЛСТР(ПОДСТАВИТЬ(A11;",";))));",0,";",,")

СТРОКА()-9

=ИНДЕКС(www.profinanceservice;2;2)

=ИНДЕКС(www.profinanceservice;3;2)

=--ПОДСТАВИТЬ(ФИЛЬТР.XML(ВЕБСЛУЖБА("http://www.cbr.ru/scripts/XML_daily_eng.asp?date_req="&ТЕКСТ(СЕГОДНЯ();"Д.М.ГГГГ"));"//Valute[CharCode=""USD""]/Value");",";ПСТР(1/2;2;1))

=ПОДСТАВИТЬ(ФИЛЬТР.XML(ВЕБСЛУЖБА("http://www.cbr.ru/scripts/XML_daily_eng.asp?date_req="&ТЕКСТ(ЕСЛИ(ЕЧИСЛО(C1);C1;ЕСЛИОШИБКА(ДАТАЗНАЧ(C1);СЕГОДНЯ()));"ДД.ММ.ГГГГ"));"//Valute[CharCode="""&ПРОПИСН(A1)&"""]/Value");",";ПСТР(1/2;2;1))/ФИЛЬТР.XML(ВЕБСЛУЖБА("http://www.cbr.ru/scripts/XML_daily_eng.asp?date_req="&ТЕКСТ(ЕСЛИ(ЕЧИСЛО(C1);C1;ЕСЛИОШИБКА(ДАТАЗНАЧ(C1);СЕГОДНЯ()));"ДД.ММ.ГГГГ"));"//Valute[CharCode="""&ПРОПИСН(A1)&"""]/Nominal")