Private Sub CommandButton1_Click()
   x = InputBox("Наименование", "Ввод данных")
   y = InputBox("Блок", "Ввод данных")
   If VarType(x) = vbBoolean Then Exit Sub
     
    x_text = "*" & x & "*"
    Dim cell As Range
    Set cell = Cells.Find(What:=x_text, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole)
 
    If cell Is Nothing Then
        MsgBox "Текст", vbCritical
    Else
        If InStr(1, cell.Offset(, -1), y, vbTextCompare) > 0 Then
            Range("A" & cell.Row & ":D" & cell.Row).Interior.ColorIndex = 6
        End If
    End If
End Sub

function onEdit(e) {
  const rightBorder = 6
  const leftBorder = 2
  var value = e.value;
  const range = e.range;
  var column = range.columnStart
  var row = range.rowStart

  if (column >= leftBorder && column <= rightBorder) {
    var onOff = value == 'TRUE'
    var startCol= onOff ? 2: column + 1
    var res = Array.from({length: onOff ? column - leftBorder: rightBorder - column}, () => onOff)
    range.getSheet().getRange(row, startCol, 1, res.length).setValues([res]);
  }
}

 targetArray = Application.Transpose(target.Value2)
    joinedString = Join(targetArray, ",")
    
    If objRegExp.test(joinedString) Then
      joinedString = objRegExp.Replace(joinedString, "$1 $2 $3")
      targetArray = Split(joinedString, ",")
        
      'To upper case по элементам массива
      'Определить какие строки не совпали, вывести на экран только их
    Else
        'Ни одно значения из целевых строк не совпало
    End If

    target = Application.Transpose(targetArray)

Option Explicit

Public Sub отч_4_18()

Dim targetFilterRange As Range
Dim lastColumn As Byte
Dim ws As Worksheet

Set ws = ThisWorkbook.ActiveSheet

With ws
    '6 - номер строки для определения крайней правой колонки(при необх. изменить)
    lastColumn = .Cells(6, .Columns.Count).End(xlToLeft).Column
    Set targetFilterRange = .Range(.Cells(9, 1), .Cells(9, lastColumn))
    targetFilterRange.AutoFilter
    
    .Rows("1:5").Select
    Selection.UnMerge
    
    .Range("C10").Select
    ActiveWindow.FreezePanes = True
    
    .Columns("N:N").Select
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
End With


Set targetFilterRange = Nothing
Set ws = Nothing

End Sub

Option Explicit

Public Sub printVisibleWorksheetsSkipFirstTwo()

    'declare vars
    Dim idx As Byte
    Dim wb As Workbook
    Dim wsCollection As Sheets
    Dim currentWs As Worksheet
    
    'init vars
    Set wb = ThisWorkbook
    Set wsCollection = wb.Sheets
    
    'start loop skiping first two elems
    For idx = 3 To wsCollection.Count
        Set currentWs = wsCollection.Item(idx)
        
            If currentWs.Visible Then
                'Debug.Print currentWs.Name
                currentWs.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
            End If
            
    Next idx
    
    Set wb = Nothing
    Set wsCollection = Nothing
    Set currentWs = Nothing

End Sub

For z = LBound(arr1) To UBound(arr1)       '27000 раз
t = 0
    For r = LBound(arr2) To UBound(arr2)    '8000-20000 раз(зависит от массива)
      If arr1(z, 1) = arr2(r, 1) Then
    t = t + 1
    arrResult(z, 1) = t
      End If
    Next r
Next z