Нашел выход в таком макросе.
Где при изменении в столбце "С" добавляется строка в таблицу с столбца "А" по столбец "J". Высота строки - 25. Формулы сохраняются.
Где при изменении в столбце "С" добавляется строка в таблицу с столбца "А" по столбец "J". Высота строки - 25. Формулы сохраняются.
| Код |
|---|
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C:C")) Is Nothing Then
If Target <> "" Then
Dim LRow As Long: LRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("A" & LRow & ":J" & LRow + 1).FillDown
Range("A" & LRow & ":J" & LRow + 1).RowHeight = 25
Application.ScreenUpdating = True
End If
End If
End Sub |
