Private Sub inntoMSP() 'из а2 и ниже получить по ИНН данные
 Dim IE As Object
 Dim n As Integer
 Dim sAnswer As String

 On Error Resume Next ' пропуск ошибок
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = False
    
     IE.Navigate "https://ofd.nalog.ru/#"
    While IE.Busy Or (IE.ReadyState <> 4): DoEvents: Wend 'ожидание загрузки
    
 With IE.Document
 
     For n = 2 To Cells(Rows.count, 1).End(xlUp).Row ' берем по очереди ИНН
     
       .GetElementsByName("query")(0).Value = Cells(n, 1).Value
       .queryselector("#pnlSearch > div.quick-search-controls.form-layout-top-labels > div.form-field > div > div.field-value > button").Click ' нажать на найденый текст

Application.Wait Time:=Now + TimeValue("0:00:1")

Temp = IE.Document.queryselector("#tblResultData > tr > td:nth-child(2) > span").innertext
'Temp2 = IE.Document.queryselector("#tblResultData > tr > td:nth-child(1) > div.result-name > a > span").innertext

If Temp = 0 Then Sheets("ИНН").Cells(n, 2).Value = "не МСП" Else Sheets("ИНН").Cells(n, 2).Value = "МСП -" & Temp 'вставляем рядом найденное


  Next n
      End With
        

Sub test()
Dim element As Range, a As Variant 'цикл по ячейкам

  For Each element In Selection
       a = element.Value 'значение конкретной ячейки
       a = VBA.Split(a, ", ") ' отделяем на части по критерию ", "
       n = UBound(a) 'a(n) это последнее после запятой с пробелом , т.е. если у нас было "мама, папа, брат", то получим a(n)=Брат

       msgBox a(n)
  Next  
End Sub

a(n) = Replace(a(n), одно, другое)

Sub замена()
Dim x, y As Integer
   
For x = 0 To 9 '
For y = 0 To 9
  Selection.Replace What:=x & " " & y, Replacement:=x &"что нибудь"& y, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Next

Next
End Sub

Sub замена2()Dim x As VariantDim АБВ As Variant
АБВ = Array("а", "б", "в", "г", "д", "е", "ё", "ж", "з", "и", "й", "к", "л", "м", "н", "о", "п", "р", "с", "т", "у", "ф", "х", "ц", "ч", "ш", "щ", "ъ", "ы", "ь", "э", "ю", "я")
For x = 0 To 9 '
Selection.Replace x & " " & i, x & i   
Next
End Sub

=ВПР("*текст*"&с1;лист1!a:b;2;)

StackHorizontal (DirectShowSource("G:\Врач.json"),DirectShowSource("G:\Генералиссимус.json")

"StackHorizontal (DirectShowSource("G:\Врач.json"),DirectShowSource("G:\Генералиссимус.json"))"

Sheets("Старт").Activate
For Counter = 2 To 9
 Set curCell = Worksheets("Старт").Cells(Counter, 2)
 If Value = "ГГКц" Then ГГКц
 If Value = "ГК,ЛМ" Then Application.Run ("!Акт-заказ.xlsb!Module1.ГК_ЛМ")
 Next Counter

Sub далее()

  If CheckBox1.Value = True Then
   adr = Range("c3").Value

   ' Set myCell = Range("C3:C9999").Find(adr)
    Cells.Find(What:=adr, After:=ActiveCell, LookIn:=xlValues, _
       LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, _
       MatchCase:=False, SearchFormat:=False).Activate
       Range("a1").Find adr, , xlValues, 1, xlByColumns, 1, False
  Application.CommandBars.ExecuteMso "FindDialogExcel"
    Else: CheckBox1.Value = False
   adr = Range("o2").Value
   Cells.Find(What:=adr, After:=ActiveCell, LookIn:=xlValues, _
       LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, _
       MatchCase:=False, SearchFormat:=False).Activate
  Range("a1").Find adr, , xlValues, 1, xlByColumns, 1, False
  Application.CommandBars.ExecuteMso "FindDialogExcel"
  End If
  
'LookAt:=xlWhole если надо точное xlPart- частичное совпадение
'Then

End Sub
   

Sub Auto_Write_In_Books() ' цыкл по всем книгам в папке
Dim sFolder As String, sFiles As String, li As Long
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = False Then Exit Sub
sFolder = .SelectedItems(1)
End With
'Application.ScreenUpdating = False
sFiles = Dir(sFolder & "\*.xls*")
'On Error Resume Next
Do While sFiles <> ""

Workbooks.Open sFiles

test 'мой макрос

'ActiveWorkbook.Save SaveChanges:=True
sFiles = Dir
Loop
Application.ScreenUpdating = True
End Sub

=(СУММ(СЧЁТЕСЛИМН(Лист1!E:E;F1;Лист1!I:I;H1;Лист1!J:J;I1;Лист1!O:O;{"Критерий1";"Критерий2";"Критерий3";"Критерий4";"Критерий5";"Критерий6";"Критерий7";"Критерий8";"Критерий9";"Критерий10";"КритерийН"}))

+СУММ(СЧЁТЕСЛИМН(Лист1!E:E;C1;Лист1!I:I;H1;Лист1!J:J;I1;Лист1!O:O;{"Критерий1";"Критерий2";"Критерий3";"Критерий4";"Критерий5";"Критерий6";"Критерий7";"Критерий8";"Критерий9";"Критерий10";"КритерийН"}))

+СУММ(СЧЁТЕСЛИМН(Лист1!W:W;Лист3!A1;Лист1!O:O;{"Критерий1";"Критерий2";"Критерий3";"Критерий4";"Критерий5";"Критерий6";"Критерий7";"Критерий8";"Критерий9";"Критерий10";"КритерийН"}))+СУММ(СЧЁТЕСЛИМН(Лист1!W:W;Лист3!B1;Лист1!O:O;{"Критерий1";"Критерий2";"Критерий3";"Критерий4";"Критерий5";"Критерий6";"Критерий7";"Критерий8";"Критерий9";"Критерий10";"КритерийН"}))+СЧЁТЕСЛИМН(Лист2!E:E;"КРИТЕРИЙ";Лист2!B:B;Лист3!G1)+СЧЁТЕСЛИМН(Лист2!E:E;"FTTX";Лист2!B:B;Лист3!G1)+СЧЁТЕСЛИМН(Лист2!E:E;"КРИТЕРИЙ";Лист2!F:F;Лист3!A1;Лист2!F:F;"<>"&0)

+СЧЁТЕСЛИМН(Лист2!E:E;"КРИТЕРИЙ";Лист2!F:F;Лист3!B1;Лист2!F:F;"<>"&0)

+СЧЁТЕСЛИМН(Лист2!E:E;"КРИТЕРИЙх";Лист2!F:F;Лист3!A1;Лист2!F:F;"<>"&0)

+СЧЁТЕСЛИМН(Лист2!E:E;"КРИТЕРИЙх";Лист2!F:F;Лист3!B1;Лист2!F:F;"<>"&0)+СЧЁТЕСЛИМН(Лист2!E:E;"КРИТЕРИЙ";Лист2!A:A;M1)+СЧЁТЕСЛИМН(Лист2!E:E;"FTTX";Лист2!A:A;M1)+СУММ(СЧЁТЕСЛИМН(Лист1!V:V;Лист3!A1;Лист1!O:O;{"Критерий1";"Критерий2";"Критерий3";"Критерий4";"Критерий5";"Критерий6";"Критерий7";"Критерий8";"Критерий9";"Критерий10";"КритерийН"};Лист1!V:V;"<>0"))

+СУММ(СЧЁТЕСЛИМН(Лист1!V:V;Лист3!B1;Лист1!O:O;{"Критерий1";"Критерий2";"Критерий3";"Критерий4";"Критерий5";"Критерий6";"Критерий7";"Критерий8";"Критерий9";"Критерий10";"КритерийН"};Лист1!V:V;"<>0")))>0

ЕСЛИ(ИЛИ(A1="</Document></kml>";A1="");"";ЕСЛИ(Лист1!A2="";"</Document></kml>";СЦЕПИТЬ("<Placemark><name>Point";СТРОКА(Лист1!A2);"</name><description></description><Point><coordinates>";Лист1!B2;",";Лист1!A2;",0</coordinates></Point></Placemark>")))