ThisWorkbook.Sheets("Логистика").ListObjects(1).Name = "Логистика_tb"

Sub Del2Symb()
Dim f As String, d() As String, i&
  f = "c:\temp\textfile.txt" 'путь к файлу
  With CreateObject("scripting.filesystemobject")
    d = Split(.opentextfile(f).readall, vbCrLf)
    On Error Resume Next
    For i = 0 To UBound(d)
      d(i) = Left(d(i), Len(d(i)) - 2)
    Next
    .opentextfile(f, 2).write Join(d, vbCrLf)
  End With
End Sub

  s = " " & Join(MyArr, "  ") & " "
  For i = 0 To 3
    x = UBound(Split(s, " " & i & " "))
Debug.Print i, x 'например
  Next i

Declare Sub OemToChar Lib "user32" Alias "OemToCharA" (ByVal Src As String, ByVal Dst As String)

Sub Макрос2()
Dim s$
  s = CreateObject("WScript.Shell").Exec("cmd /c dir /a-d /o-d /b C:\temp\*.sto").StdOut.readline
  OemToChar s, s
  Range("A1") = s
End Sub

Sub Test()
Dim MyArr(3), x
MyArr(0) = 3
MyArr(1) = 0
MyArr(2) = 30
MyArr(3) = 0
x = UBound(Split(" " & Join(MyArr, "  ") & " ", " 3 "))
End Sub

range("A1")=CreateObject("WScript.Shell").Exec("cmd /c dir /a-d /o-d /b C:\temp\*.sto").StdOut.readline

for /f "tokens=1,2,3 delims=," %i in (T10YIE.csv) do @echo %i,%j,%k,%k,%k,%k >> new.csv

="ren """&A1&""" """&B1&".pdf"""

="ren "&A1&" """&B1&".pdf"""

Sub RndMacro()
  Randomize
  Run Split("Макрос1,Макрос2,Макрос3,МакросX", ",")(Int(Rnd * 4))
End Sub

    If Not IsNumeric(варПогрешность) Then
      Пример = CVErr(xlErrValue) '#ЗНАЧ!
    End If

Private Sub Workbook_Open()
Dim x As Shape, s As Object, c As Range, r&
  r = Day(Now) + 9          'номер строки, соотв. дате
  For Each x In Worksheets(1).Shapes
    Set s = x.OLEFormat.Object
    If TypeOf s Is Spinner Then
      Set c = Worksheets(1).Cells(r, s.TopLeftCell.Column)
      s.LinkedCell = ""
      s.Value = c.Value
      s.LinkedCell = c.Address
    End If
  Next
End Sub

Selection.FormulaR1C1Local = "=" & CDbl(time3) & "-ТДАТА()"
'или
Selection.FormulaR1C1 = "=" & Str(CDbl(time3)) & "-NOW()"

dir /s /ad /o-d

=ВПР("*(основний)*";B:B;1;)

=ОКРУГЛТ(число;11)

Sub Fs()
Dim i&, j&, n&
  n = Cells(Rows.Count, 1).End(xlUp).Row - 1
  With Sheets("Карта")
    For i = 1 To .Cells(.Columns.Count).End(xlToLeft).Column Step 2
      j = .Cells(.Rows.Count, i).End(xlUp).Row
      Cells(1, i \ 2 + 2) = .Cells(1, i)
      Cells(2, i \ 2 + 2).Resize(n).FormulaR1C1 = Replace(Replace(Replace( _
        "=IFERROR(LOOKUP(2,1/SEARCH("" ""&Карта!R2C_i_:R_j_C_i_,"" ""&RC1),Карта!R2C_i+1_:R_j_C_i+1_),"""")" _
        , "_i_", i), "_i+1_", i + 1), "_j_", j)
    Next
  End With
  With ActiveSheet.UsedRange: .Value = .Value: End With
End Sub

=ЕСЛИОШИБКА(ПРОСМОТР(2;1/ПОИСК(Карта!$A$2:$A$4;A2);Карта!$B$2:$B$4);"")

=--ТЕКСТ(A1;"0\.00\.00")

Sub Макрос1()
    Worksheets.Select
    Range("A20:B20").Select
    Selection.FormulaR1C1 = "=AVERAGE(R[-18]C:R[-2]C)"
    Range("A21:B21").Select
    Selection.FormulaR1C1 = "=SUM(R[-19]C:R[-3]C)"
    Worksheets(1).Select
End Sub