ЕГЭ-2024 демо задание 18

Sub M5FORM_18EGE()
Range("A21").Formula = "=A1"
Range("B21:T21").Formula = "=A21+B1"
Range("A22:A40").Formula = "=A21+A2"
Range("B22:T40").Formula = "=MIN(A22,B21)+B2"
 
Range("B25:D25").Formula = "=A25+B5": Range("E25:E34").Formula = "=E24+E5"
 
Range("H30:M30").Formula = "=G30+H10": Range("H23:H29").Formula = "=H22+H3"
 
Range("I34:L34").Formula = "=H34+I14": Range("M34:M40").Formula = "=M33+M14"
 
Range("P36:R36").Formula = "=O36+P16": Range("S26:S35").Formula = "=S25+S6"
 
End Sub

Option Explicit
 
Sub M5FORM_18_EGE_4_240318() ''вправо/вниз
Dim c As Range, r1, c1, k1, k2
Debug.Print Excel.ActiveSheet.Name
''' создание копии ниже основной
    Range("A1:T20").Select
    Selection.Copy
    Range("A21").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
    '''
Range("A21").Formula = "=A1"
Range("B21:T21").Formula = "=A21+B1"
Range("A22:A40").Formula = "=A21+A2"
Range("B22:T40").Formula = "=Max(A22,B21)+B2"
For r1 = 22 To 40
    For c1 = 2 To 20
        Set c = Cells(r1, c1)
        
''''''''xlHairline  1   Линия волос (тонкая граница).
''''''''xlMedium    -4138   Средний.
''''''''xlThick 4   Толстая (самая широкая граница).
''''''''xlThin  2   Тонкий.
   'ДЛЯ ДЛЯ ЯЧЕЕК ЛЕВЕЕ ЛИНИИ
        k1 = c.Borders(xlEdgeLeft).Weight
        If k1 = 4 Or k1 < 0 Then
            c.Formula2R1C1 = "=R[-1]C+R[-20]C"
        End If
   'ДЛЯ ДЛЯ ЯЧЕЕК НИЖЕ ЛИНИИ
        k2 = c.Borders(xlEdgeTop).Weight
        If k2 = 4 Or k2 < 0 Then
            c.Formula2R1C1 = "=RC[-1]+R[-20]C"
        End If
        'If k1 = 4 And k2 = 4 Then c.Formula2R1C1 = "=0" '' нельзя попасть в эту точку
        Debug.Print r1, c1, k1, k2
    Next c1
Next r1
Calculate
End Sub