=ВПР(A1;ДВССЫЛ(A1);3;0)

НАИМЕНЬШИЙ(ЕСЛИОШИБКА(

Private Function GetValue (path, file, sheet, ref)
  Dim arg As String
  If Right (path,1) <> "\" Then path = path & "\"
  If Dir (path & file) = "" Then
     GetValue = "Файл не найден"
     Exit Function
  End If
  arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(ref).Range("A1").Address (, , xlR1C1)
  GetValue = ExecuteExcel4Macro (arg)
End Function


path - путь к закрытому файлу "c:\tmp"
file - название рабочей книги "vxl.xls"
sheet - название рабочего листа "Лист1"
ref - ссылка на ячейку "C4" 

=ЕСЛИОШИБКА(ПОИСКПОЗ(1;(A5='список 2'!$A$3:$A$32)*(B5='список 2'!$B$3:$B$32)*(C5='список 2'!$C$3:$C$32)*(D5='список 2'!$D$3:$D$32)*(E5='список 2'!$E$3:$E$32)*(F5='список 2'!$F$3:$F$32)*(G5='список 2'!$G$3:$G$32);0)>0;ЛОЖЬ)

=ИНДЕКС(Таблица1[@[Столбец1]:[Цена за ед. без НДС_4]];1;ПОИСКПОЗ(1;($A2:$AB2=$AF2)*(ЛЕВСИМВ($A$1:$AB$1;19)="Цена за ед. без НДС");0)-4)

=SUM(FILTER('аналитика продавца'!$B$2:$B$10038;'аналитика продавца'!$A$2:$A$10038>=H2;'аналитика продавца'!$A$2:$A$10038<=K2))

$A4:A

=И(
($H$3*12+СТОЛБЕЦ(A18))>=(ГОД($E$6)*12+МЕСЯЦ($E$6));
($H$3*12+СТОЛБЕЦ(A18))<=(ГОД($F$6)*12+МЕСЯЦ($F$6)))

=СЧЁТЗ(Составитель[@[Дата 1]:[Дата 9]])

=ЕСЛИ(E4<F4;"Избыток";
  ЕСЛИ(E4>F4;"Недостача";"Соответствует"))

Sub tt()
Dim c As Range, a
For Each c In Selection.Cells
    If InStr(c, ":") Then
    a = Split(c, ":")
        If UBound(a) = 3 Then
        a(3) = --a(3)
        c.Value = Join(a, ":")
        End If
    End If
Next
End Sub