Vasua
Petua
Vovua

str1 = Split(CreateObject("Scripting.FileSystemObject").Getfile(File_Strok_Poiska).OpenasTextStream(1).ReadAll, vbLf)

Sub Obrabotka()

Dim str1() As String
Dim PathFileName$

File_Strok_Poiska = "C:\Тест.txt"
str1 = Split(CreateObject("Scripting.FileSystemObject").Getfile(File_Strok_Poiska).OpenasTextStream(1).ReadAll, vbLf)   'Данный текстовый файл заносится в строковый массив построчно функцией Split

If str1(0) = "Vasua" Then
   MsgBox 1
End If
Stop
End Sub

Sub arr_Test()

Dim arr(), arr_mnogom()
Dim k As Integer

k = 73 ' контрольное значение

' //////       одномерный массив  ////

arr = Range(Cells(2, 2), Cells(11, 2))   ' пополнение одномерного массива из диапазона

stroka_v_massive = Application.Match(k, arr())  ' Расположение в массиве
        
' //////       одномерный массив  ////

arr_mnogom = Range(Cells(2, 7), Cells(11, 9))   ' пополнение многомерного массива из диапазона

stroka_v_massive = Application.Match(k, arr_mnogom()(, 3)) ' Расположение в массиве
      
End Sub

stroka_v_massive = Application.Match(k, arr_mnogom()(, 3)) ' Расположение в массиве

[I1] = 1

Sub Dinamic_Qvadrato_Scob()

'[I1] = 1
'["J1" & "1"] = 2   ' в Ячейке J1 находится "I"
'[J1 & 1] = 2
[J1 & "1"] = 2

End Sub

Sub Test_Massib()

Dim a(), b1(), b2(), b3()

a = Range("S8:Y14")

Count = 0

For i = 1 To 7

  For j = 1 To 7
  
     If a(i, j) = 4 Then
     
       MsgBox i
       MsgBox j
     
     End If
  
  Next j

Next i

End Sub

Sub Test_Massib_1()
Dim myRow As Long
Dim a()

a = Range("S8:Y14")
Count = 0

For Each Element1 In a
   If Element1 = 4 Then
      'If Element1 = 4 Then myRow = Element1.Row
            
      'C = Element1.Address
      'Stop
      
      Count = Count + 1
      myRow = Element1.Row
      MsgBox myRow 
   End If
Next

MsgBox Count
End Sub

myRow = Element1.Row

A = Range("A2:A26").SpecialCells(xlCellTypeVisible)

Sub Popolnenie_Otfiltrovannym()
Dim A() As Variant

' Проверка копированием
Range("A2:A26").SpecialCells(xlCellTypeVisible).Copy
Range("H30").Select
ActiveSheet.Paste

' Проверка копированием
A = Range("A2:A26").SpecialCells(xlCellTypeVisible)[E30].Resize(UBound(A)).Value = A
End Sub

.SpecialCells(xlCellTypeVisible)

Sub Posl_stroka()

Dim rF As Range
Dim lLastRow As Long, lLastCol As Long

Set rF = Range("A5:J16").Find("*", , xlValues, xlWhole, xlPrevious)
   lLastRow = rF.Row    'последняя заполненная строка
   lLastCol = rF.Column 'последний заполненный столбец

MsgBox lLastRow
MsgBox lLastCol

End Sub

Sub Proverka_Formula_Local()
Range("B3:B8").FormulaLocal = "=ЕСЛИ((RC[-1]-R[-1]C[-1])<=R2C5;0;RC[-1])"   '1 случай
Range("B3:B8").FormulaLocal = "=ЕСЛИ((RC[-1]-R[-1]C[-1])<=R2C5;"";RC[-1])"  '2 случай
End Sub

Sub Obmen_Massivami()

Dim Peremennaya_Massiva As Variant
Vsego_Elementov = 10
    
     ReDim Peremennaya_Massiva(1 To Vsego_Elementov)

For i = 1 To Vsego_Elementov
  Peremennaya_Massiva(i) = Cells(i, 1)
Next i

For i = 1 To Vsego_Elementov
   Cells(i, 3) = Peremennaya_Massiva(i)
Next i

[E1].Resize(UBound(Peremennaya_Massiva)).Value = Peremennaya_Massiva     

End Sub

[E1].Resize(UBound(Peremennaya_Massiva)).Value = Peremennaya_Massiva