=ИЛИ(НЕ(ЕОШИБКА(-D1));СЧЁТЕСЛИ(ДВССЫЛ("Пример");D1)=1)

=ИНДЕКС(K:M;ПОИСКПОЗ("тест";K:K;0);НОМЕРСТОЛБЦА)

=ВПР("тест";K:M;НОМЕРСТОЛБЦА;0)

For Each Cell In ActiveSheet.UsedRange.Columns("E").Cells
    Cell.Value = DateValue(Cell.Value)
Next Cell

For Each Cell In ActiveSheet.UsedRange.Columns("E").Cells
    cell.Value = CDate(cell.Value)
Next Cell

Columns("E").Replace " ", " ", LookAt:=xlPart

Dim rngCop As Range, rngPas As Range
Dim clpbrd As Variant
Columns("F").Insert Shift:=xlToRight
Columns("F").NumberFormat = "General"
Set rngCop = Range(Range("E2"), Range("E2").End(xlDown))
Set rngPas = Range(Range("E2"), Range("E2").End(xlDown)).Offset(0, 1)
clpbrd = rngCop
rngPas = clpbrd

rowsCnt = WorksheetFunction.Subtotal(3, Range("B2:B1000000"))
rowsCnt.Copy

Sub celltest()
Range("A1").Value = ChrW(9679)
End Sub

Sub msgtest()
MsgBox ChrW(9679)
End Sub

'открытие файла в п.2
PathFolderName = ThisWorkbook.Path ()
Workbooks.Open Filename:=ThisWorkbook.Path & "\*файл*.xlsx"

'открытие файла в п.3
PathFolderName = ThisWorkbook.Path ()
Workbooks.Open Filename:=ThisWorkbook.Path & "\Папка*\Подпапка\подфайл*.xlsx"

Sub Openfile()
  Dim Fso As Object, fs, Fl As Variant
    
  Set Fso = CreateObject("Scripting.FileSystemObject")
  Application.ScreenUpdating = False
  For Each Fl In Fso.getfolder(ThisWorkbook.Path & "\").Files
    If Fl.Name Like "RSNOS_*Summary*" Then  'for rawdata file
      Workbooks.Open ThisWorkbook.Path & "\" & Fl.Name
    End If
  Next
End Sub

ActiveSheet.Range("$A$1:$C$23").AutoFilter Field:=3, Criteria1:="10", _
    Operator:=xlTop10Items, Criteria2:="<>132", Operator:=xlAnd

=СЧЁТЕСЛИМН(Лист1!A:A;A2;Лист1!B:B;">="&"26/10/2020";Лист1!B:B;"<="&"28/10/2020")

=СЧЁТЕСЛИМН(Лист1!A:A;A2;Лист1!B:B;">="&"26/10/2020";Лист1!B:B;"<"&"28/10/2020")

=СЧЁТЕСЛИМН(Лист1!A:A;A2;Лист1!B:B;">="&B1;Лист1!B:B;"<="&C1)

Sub УдалениеСтрокОдинЛист()
Dim FindWord As Range, DeleteRow As Range
УдалятьСтрокиСТекстом = Array("удалить")
For Each FindWord In ActiveSheet.UsedRange.Rows
    For Each word In УдалятьСтрокиСТекстом
        If Not FindWord.Find(word, , xlValues, xlPart) Is Nothing Then
            If DeleteRow Is Nothing Then Set DeleteRow = FindWord Else Set DeleteRow = Union(DeleteRow, FindWord)
         End If
     Next word
 Next
If Not DeleteRow Is Nothing Then DeleteRow.EntireRow.Delete
End Sub

Dim ws As Worksheet
For Each ws In Sheets
'тут необходимый код
Next

Sub УдалениеСтрокВсеЛисты()
Dim ws As Worksheet
For Each ws In Sheets
Dim FindWord As Range, DeleteRow As Range
УдалятьСтрокиСТекстом = Array("удалить")
For Each FindWord In ActiveSheet.UsedRange.Rows
    For Each word In УдалятьСтрокиСТекстом
        If Not FindWord.Find(word, , xlValues, xlPart) Is Nothing Then
            If DeleteRow Is Nothing Then Set DeleteRow = FindWord Else Set DeleteRow = Union(DeleteRow, FindWord)
         End If
     Next word
 Next
If Not DeleteRow Is Nothing Then DeleteRow.EntireRow.Delete
Next
End Sub

Sub транспонирование()
Sheets("Один").Select
Range("A1").Select
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Два").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, transpose:=True
Sheets("Один").Select
Selection.Offset(9, 0).Select
Selection.Copy
Sheets("Два").Select
Range("A" & Cells.Rows.Count).End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, transpose:=True
Sheets("Один").Select
Selection.Offset(9, 0).Select
Selection.Copy
Sheets("Два").Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, transpose:=True

End Sub

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
    "ODBC;DSN=Excel Files;DBQ=C:\Папка\Подпапка\файл.xlsx;DefaultDir=C:\Папка\Подпапка;DriverId=1046;MaxBufferSize=2048;PageTimeout=5;" _
    )), Destination:=Range("$A$1")).QueryTable

Dim strFile as String
strFile = ThisWorkbook.Fullname
Dim stfPath as String
strPath = ThisWorkbook.Path

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
"ODBC;DSN=Excel Files;DBQ=" & strFile & ";DefaultDir=" & strPath ";DriverId=1046;MaxBufferSize=2048;PageTimeout=5;"), _
Destination:=Range("$A$1")).QueryTable

ActiveSheet.ChartObjects("Диаграмма 1").Activate
ActiveChart.FullSeriesCollection(1).Values = "=Лист1!$B$23:$B$29"
ActiveChart.FullSeriesCollection(2).Values = "=Лист1!$C$23:$C$29"
ActiveChart.FullSeriesCollection(2).XValues = "=Лист1!$A$23:$A$29"

Range("A1").Select 'выделяем первую ячейку в столбце
Selection.End(xlDown).Select 'перемещаемся до последней в столбце ячейки с данными
ActiveCell.Offset(-6, 0).Select 'перемещаемся на необходимое кол-во ячеек вверх
Range(Selection, Selection.End(xlDown)).Select 'выделяем семь ячеек вниз - это и есть нужный для переменной диапазон

ActiveSheet.ChartObjects("Диаграмма 1").Activate
ActiveChart.FullSeriesCollection(1).Values = VariableColumnB
ActiveChart.FullSeriesCollection(2).Values = VariableColumnC
ActiveChart.FullSeriesCollection(2).XValues = VariableColumnA

If WorkBookIsOpen("имя_проверяемой_книги") Then    
Workbooks("имя_проверяемой_книги").Activate   
Else   
Workbooks.Open("путь к нужной книге")   
End if

If WorkBookIsOpen("<BOOK1>") И WorkBookIsOpen("<BOOK2>") Then
'<MACROS>
Else
Workbooks.Open("путь к <BOOK1>") И Workbooks.Open("путь к <BOOK2>")
'<MACROS>
End If

Sub НетФильтра()
    Range([A1].Offset(1, 2).Resize(2, 1).Address).Select
End Sub

Sub ЕстьФильтр()
    Range([A1].Offset(1, 2).Resize(2, 1).SpecialCells(xlCellTypeVisible).Address).Select
End Sub

Range([A1].Offset(1, 2).Selection.End(xlDown).SpecialCells(xlCellTypeVisible).Address).Select

Sub ВыделениеЧислителя()
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Offset(1, 2).Select
Selection.Resize(Selection.Rows.Count - 1, Selection.Columns.Count).Select
End Sub

Sub ВыделениеЗнаменателя()
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Offset(1, 1).Select
Selection.Resize(Selection.Rows.Count - 1, Selection.Columns.Count).Select
End Sub

Sub ВставкаФормулы()
Dim FormulaResult As Worksheet
Set FormulaResult = Excel.ActiveSheet
FormulaResult.Range("A2").Value = "=Sum(C2:C3)/B2"
End Sub

Sub ВставкаФормулыВыделения()
Dim FormulaResult As Worksheet
Set FormulaResult = Excel.ActiveSheet
FormulaResult.Range("A2").Value = "Выделение числителя / Выделение знаменателя"
End Sub

DSN=Excel Files;DBQ=C:\тест.xlsx;DefaultDir=C:\Users\;DriverId=1046;MaxBufferSize=2048;PageTimeout=5;

SELECT `Исходные$`.тест
FROM `C:\тест.xlsx`.`Исходные$` `Исходные$`

Sub ArrayTest()
    
    ActiveSheet.Range("$A$1:$B$5").AutoFilter Field:=2, _
    Criteria1:=Array("1", "3"), Operator:=xlFilterValues
    
End Sub

Sub ArrayTest()
    
    ActiveSheet.Range("$A$1:$B$5").AutoFilter Field:=2, _
    Criteria1:=Array(<>"0"), Operator:=xlFilterValues
    
End Sub

Sub ArrayTest()
    
    ActiveSheet.Range("$A$1:$B$5").AutoFilter Field:=2, _
    Criteria1:=Array<>("0"), Operator:=xlFilterValues
    
End Sub

=[Выгрузка_ПН.xls]ПРОДАЖИ_ТЕК'!$A$1

='C:\Исходники\[Выгрузка_ПН.xls]ПРОДАЖИ_ТЕК'!$A$1