Function Phone(str$)
     With CreateObject("VBScript.RegExp")
         .Pattern = "(((\+7|8)(|-| )?)?((\(|-| )?\d{3}(\)|-| )?){2})?((-| )?\d{2}){2,3}"
         Phone = IIf(.Test(str), Trim(.Execute(str)(0)), "")
     End With
End Function

=МАКС(ЕСЛИОШИБКА(--ПСТР(A1;СТРОКА($1:$99);СТОЛБЕЦ($A:$L));))

Sub F()
      With Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
          .NumberFormat = "general"
          .Replace " ", Empty, xlPart
          .Replace "*-", Empty, xlPart
          .Formula = .Value
      End With
End Sub

Sub upd()
     Dim arr() As Variant
     With Range("C3:C" & Cells(Rows.Count, "C").End(xlUp).Row)
         arr = .Value
         With Intersect(.EntireRow, [I:I])
             .NumberFormat = "general"
             .Formula = arr
             .Replace " ", Empty, xlPart
             .Replace "*-", Empty, xlPart
         End With
     End With
End Sub

Private Type POINTAPI
           x As Long
           y As Long
End Type
Private Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINTAPI) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const KEY_PRESSED = &H8000
Private Const KEY_RELEASED = &H1
Private Const VK_LButton = &H1

Sub clickpos()
       Dim i%, curpos As POINTAPI
       GetAsyncKeyState VK_LButton
       Do
           If (GetAsyncKeyState(VK_LButton) And KEY_RELEASED) Then
               GetCursorPos curpos
               [A1].Offset(i) = curpos.x
               [A1].Offset(i, 1) = curpos.y
               i = i + 1
           End If
           Sleep 30
           DoEvents
       Loop Until i = 3
End Sub

=СМЕЩ(AA;ПРОСМОТР(СТРОКА(A1)-1;CC;СТРОКА(AA)-1)-1;СТРОКА(A5)-ПРОСМОТР(СТРОКА(A1)-1;CC);1)

=ПРОСМОТР(СТРОКА(A1)-1;CC;AA)

Private Sub Worksheet_Change(ByVal Target As Range)
     With [criteria[#All]]
         If Not Intersect(Target, .Resize(.Rows.Count + 1)) Is Nothing Then _
             [Таблица2[#All]].AdvancedFilter 1, .Rows(1).Resize(Application.CountA(.Columns(1))), 0
     End With
End Sub

ActiveSheet.Range("$A$1:$U$3473").AutoFilter 18, "<=" & Application.EoMonth(Date, -2)

Sub Insert_Rows2()
     Dim lLastRow As Long, li As Long, i As Range ' переменные
     Application.ScreenUpdating = 0 'заморозим экран от изменений
     lLastRow = Cells(Rows.Count, 1).End(xlUp).Row 'переменной присваивается последняя строка
     For li = lLastRow To 3 Step -1 'ПЕРЕБИРАЕМ С последней до первой строки с шагом -1
     With ActiveSheet.UsedRange.Rows(li).Resize(2)
     .Insert 'добавляем 2 строки до нужной нам
         With .Offset(-2)
             .Value = .Offset(2).Resize(1).Value
             .Columns(6) = 0: Intersect(.Cells, [H:H,J:L]) = Empty
             .Cells(1, 1) = .Cells(1, 1) - 10: .Cells(2, 1) = .Cells(1, 1) + 5
             .Columns(2) = Application.Substitute(.Columns(2), "св", Application.Transpose(Array("мз", "об")))
         End With
     End With
     ' если заменить Resize(2) на Resize(1) то будет вставляться только одна строка
     Next li
     Application.ScreenUpdating = 1 'разморозили экран и он обновился
End Sub

=ЕСЛИОШИБКА(ПРОСМОТР(ИНДЕКС(НАИМЕНЬШИЙ(ЕСЛИ(Т[3]>$D$17;СТРОКА(Т);"");СТРОКА($A$1:ИНДЕКС($A:$A;СЧЁТЕСЛИ(Т[3];">"&$D$17))));ПОИСКПОЗ(НАИМЕНЬШИЙ(МУМНОЖ(Ч(ПРОСМОТР(НАИМЕНЬШИЙ(ЕСЛИ(Т[3]>$D$17;СТРОКА(Т);"");СТРОКА($A$1:ИНДЕКС($A:$A;СЧЁТЕСЛИ(Т[3];">"&$D$17))));СТРОКА(Т);Т[2]+СТРОКА(Т)%%%)>=ТРАНСП(ПРОСМОТР(НАИМЕНЬШИЙ(ЕСЛИ(Т[3]>$D$17;СТРОКА(Т);"");СТРОКА($A$1:ИНДЕКС($A:$A;СЧЁТЕСЛИ(Т[3];">"&$D$17))));СТРОКА(Т);Т[2]+СТРОКА(Т)%%%)));СТРОКА($A$1:ИНДЕКС($A:$A;СЧЁТЕСЛИ(Т[3];">"&$D$17)))^0);СТРОКА(A1));МУМНОЖ(Ч(ПРОСМОТР(НАИМЕНЬШИЙ(ЕСЛИ(Т[3]>$D$17;СТРОКА(Т);"");СТРОКА($A$1:ИНДЕКС($A:$A;СЧЁТЕСЛИ(Т[3];">"&$D$17))));СТРОКА(Т);Т[2]+СТРОКА(Т)%%%)>=ТРАНСП(ПРОСМОТР(НАИМЕНЬШИЙ(ЕСЛИ(Т[3]>$D$17;СТРОКА(Т);"");СТРОКА($A$1:ИНДЕКС($A:$A;СЧЁТЕСЛИ(Т[3];">"&$D$17))));СТРОКА(Т);Т[2]+СТРОКА(Т)%%%)));СТРОКА($A$1:ИНДЕКС($A:$A;СЧЁТЕСЛИ(Т[3];">"&$D$17)))^0);));СТРОКА(Т);Т[1]);"")

=ЕСЛИОШИБКА(ПРОСМОТР(;-1/(Таблица10[[#Заголовки];[склад]]:C1=C2)/(Таблица10[[#Заголовки];[товар]]:D1=D2);Таблица10[[#Заголовки];[остаток]]:H1);ЕСЛИОШИБКА(ПРОСМОТР(;-1/(Таблица1[склад]=C2)/(Таблица1[товар]=D2);Таблица1[кол-во]);))