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
        

"'$&")

For Each element In Selection
sText = element.Value
    n = InStrRev(sText, ",") ' ищем положение зпт с конца(номер символа в строке)
    n = n + 1' зачем то добавляем 1 )))  без этого не работает
      
АБВ = Array("а", "б", "в", "г", "д", "е", "ё", "ж", "з", "и", "й", "к", "л", "м", "н", "о", "п", "р", "с", "т", "у", "ф", "х", "ц", "ч", "ш", "щ", "ъ", "ы", "ь", "э", "ю", "я")
 
For i = 0 To UBound(АБВ )
For x = 0 To 9
 
sTextREP = Replace(element.Value, x & " " & АБВ (i), x & АБВ (i), [n])'ищем\заменяем где n это начало откуда ищем 
  
element.Value = Left$(sText, n - 1) & sTextREP'и каждый раз записываем изменения
 
Next x
Next i
        
    Next 'и так по кругу

 For Each element In Selection
sText = element.Value
    n = InStrRev(sText, ",") ' ищем положение зпт с конца(номер символа в строке)
    n = n + 1' зачем то добавляем 1 )))  без этого не работает

    
  ÀÁÂ = Array("À", "Á", "Â")' добавляем всякие условия

For i = 0 To UBound(ÀÁÂ)
For x = 0 To 9

sTextREP = Replace(element.Value, x & " " & ÀÁÂ(i), x & ÀÁÂ(i), [n])'ищем\заменяем где n это начало откуда ищем 


element.Value = Left$(sText, n - 1) & sTextREP'и каждый раз записываем изменения


Next x
Next i
 
   
   ' MsgBox element.Value
    
    Next 'и так по кругу

msgbox переменная

АБВ = Array("первое", "пятое", "десятое")
For i = 0 To UBound(АБВ)
For x = 0 To 9
Selection.Replace x & " " & АБВ(i), x & АБВ(i)
Next
Next

переменная=element.Value
АБВ = Array("первое", "пятое", "десятое")
For i = 0 To UBound(АБВ)
For x = 0 To 9
sText = Replace(переменная, x & " " & АБВ(i), x & АБВ(i)) 
Next x
Next i
element.Value=sText 

Sub test()
Dim aSpl As Variant
Dim АБВ, a, sText, aSplf, aSpln As String
Dim element As Range 'объявляем переменные

  For Each element In Selection 'идем по ячейкам

a = element.Value 'берем ячейку
aSpl = Split(a, ", ") 'делаем из нее масив
aSpln = UBound(aSpl) 'определяем последнее после запятой
aSplf = aSpl(aSpln)'берем последнее после запятой

' в этом хвостике прогоняем по ряду правил
АБВ = Array("первое", "пятое", "десятое")
For i = 0 To UBound(АБВ)
For x = 0 To 9
sText = Replace(aSplf, x & " " & АБВ(i), x & АБВ(i)) ' по идее получаем исправленный хвостик в данном примере между цифрой и пятым\десятым удаляем пробел, отдельно такой макрос работает

Next x
Next i

' конец замены в этом хвостике 
finish = a & sText
element.Value = finish ' записываем как было, только с исправленным хвостиком, вот тут и ошибка

    Next' переходим к следующей ячеке
End Sub

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), одно, другое)

Set x = Intersect(Sheets("лист откуда").[A2:A15], Sheets("лист откуда").UsedRange)
For i = 1 To x.Rows.Count
Intersect(Sheets("лист где меняем").[d2:d99999], Sheets("лист где меняем").UsedRange).Replace x(i, 1), x(i, 2)

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