[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

Dim a As Variant
a = Range("A1:A10")

Sub Massiv_Diap()

Dim a As Variant
a = Range("A1:A10")

Cells(1, 3) = a(5)

End Sub

Cells(1, 3) = a(5)

Sub Maassive()

Dim A As Variant

   Nom_grup = 3
     ReDim A(1 To Nom_grup)

'A = Range("F4:G9")

'Range("I4:J9") = A

 k = 3
 m = 3
 
Shag_cikla2 = Nom_grup
Nom_grup = 0

For i = 1 To Shag_cikla2
    
    k = k + 1
    Nom_grup = Nom_grup + 1
    'A(Nom_grup) = Range("F4:G5")
    A(Nom_grup) = Range("F" & Cells(k, 3) & ":G" & Cells(k, 4))
    
Next i

Shag_cikla2 = Nom_grup
Nom_grup = 0

For i = 1 To Shag_cikla2

   m = m + 1
   Nom_grup = Nom_grup + 1

   'Range("I4:J9") = A(Nom_grup)
   Range("I" & Cells(m, 3) & ":J" & Cells(m, 4)) = A(Nom_grup)

Next i

End Sub

arr = [f4:g9].Value

arr = [f4:g9].Value

Sub Maassive1()
    Dim arr()
    'arr = [f4:g9].Value
    A1 = Cells(4, 3)
    A2 = Cells(4, 4)
    
   ' arr = ["f" & Cells(4,3) & ":g" & Cells(4,3)].Value
   arr = ["f"&A1&":g"& A2].Value
    
    [i4].Resize(UBound(arr), UBound(arr, 2)).Value = arr
End Sub

arr = ["f"&A1&":g"& A2].Value

Sub Maassive()
Dim A As Variant
   Nom_grup = 3
     ReDim A(1 To Nom_grup)

 k = 3
 m = 3

For i = 1 To Nom_grup
    
    k = k + 1
    A(Nom_grup) = Range("F" & Cells(k, 3) & ":G" & Cells(k, 4))
    
Next i

Shag_cikla2 = Nom_grup
Nom_grup = 0

For i = 1 To Shag_cikla2

   Nom_grup = Nom_grup + 1
   m = m + 1
   Range("I" & Cells(m, 3) & ":J" & Cells(m, 4)) = A(Nom_grup)

Next i

End Sub

Sub Podchet_Vydelennyh()

   Vsego_Listov = Worksheets.Count

  For i = 1 To Vsego_Listov

    If Sheets(i).Selection = True Then

       Count_Selestion = Count_Selection + 1
    
    End If

  Next i

MsgBox Count_Selestion

End Sub

If Sheets(i).Selection = True Then

CTp = Application.Calculation:   Application.Calculation = xlCalculationManual

Application.Calculation = CTp

Cells(8, 7).Application.Calculation = CTp

A = Now()
Application.OnTime TimeValue(CStr(A)), Procedure:="test_1", Schedule:=False