=СЧЁТЕСЛИ(A2:A8;"*сл*")

Range(Me.RefEdit1.Value).Value = "Какие-то данные"

'Переменными в коде
iFolder = "C:\Users\User\Desktop\SLA\"
iFile = "Адская Сатана.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
iFolder & iFile, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
'Значениями из ячеек. A1 - путь к папке, A2 - имя файла
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("A1") & Application.PathSeparator & Range("A2"), Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False

Application.Undo

Function DiffArrays(a, b)
Dim I&, J&, N&, c()
On Error Resume Next
With CreateObject("Scripting.Dictionary")
    For I = LBound(a) To UBound(a)
        For J = LBound(a, 2) To UBound(a, 2)
            iTemp = .item(a(I, J))
        Next
    Next
    For I = LBound(b) To UBound(b)
        For J = LBound(b, 2) To UBound(b, 2)
            If Not .Exists(b(I, J)) Then
                ReDim Preserve c(N)
                c(N) = b(I, J)
                N = N + 1
            End If
        Next
    Next
End With
DiffArrays = Application.Transpose(c)
End Function

Sub TestArrayDifference()
  Dim array1, array2 As Variant
  Dim result1, result2 As Variant
  Dim arr, arrSec
   
  With Workbooks("test.xlsm").Worksheets("Лист1")
array1 = .Range("B1", .Cells(.Rows.count, "A").End(xlUp)).Value
End With
  With Workbooks("test.xlsm").Worksheets("Лист2")
array2 = .Range("B1", .Cells(.Rows.count, "A").End(xlUp)).Value
End With
  
  result1 = DiffArrays(array1, array2)
   
With Workbooks("test.xlsm").Worksheets("разность")
     .Cells(1, 1).Resize(UBound(result1), 1) = result1
End With
End Sub

................................
While x <= UBound(FilesToOpen)
    Set importWB = Workbooks.Open(Filename:=FilesToOpen(x))
    Sheets(3).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = importWB.Name
    importWB.Close savechanges:=False
    x = x + 1
Wend
.................................

If Range("AE" & i) = 1 And Range("AE" & i - 1) = 0 And (Range("AE" & i + 1) = 1 Or Range("AE" & i + 1) = 0) Then...

Dim iCmt As Comment
With Workbooks("Книга1").Sheets("Лист1")
    For Each iCmt In .Comments
        'если примечание НЕ в ячейке A1 или A2, то удаляем
        If Intersect(.Range("A1:A2"), iCmt.Parent) Is Nothing Then iCmt.Delete
    Next
End With

=ВПР(B1;ДВССЫЛ(B2&"!$B$2:$D$13");1;0)

=ВЫБОР(A1+1;"ноль";"единица";"двойка")