Доброго времени суток коллеги. Мне необходима ваша помощь.
Цель - создать макрос для Вставки строки в место нахождения указателя с копированием формул из 2 фиксированной строки.
Я знаю о существовании умных таблиц и т.д., но под мои задачи не подходит, поскольку использую сервис Zoho Sheets.
Сейчас использую этот макрос. Суть его работы мне не подходит, поскольку в случае изменения ячейки с формулой выше (т.е. там будут данные, а не формула), он в итоге вставит пустую ячейку.
Пример во вложении.
Буду признателен за помощь)
Цель - создать макрос для Вставки строки в место нахождения указателя с копированием формул из 2 фиксированной строки.
Я знаю о существовании умных таблиц и т.д., но под мои задачи не подходит, поскольку использую сервис Zoho Sheets.
Сейчас использую этот макрос. Суть его работы мне не подходит, поскольку в случае изменения ячейки с формулой выше (т.е. там будут данные, а не формула), он в итоге вставит пустую ячейку.
Код |
---|
Sub Макрос1() Selection.EntireRow.Insert Dim i As Long, ActCellRow As Long With Application .ScreenUpdating = False Range(Cells(1, 1), Cells(1, Columns.Count)).EntireColumn.Hidden = False ActCellRow = ActiveCell.Row For i = 0 To Columns.Count If Cells(ActCellRow - 1, i + 1).HasFormula = True Then Range(Cells(ActCellRow - 1, i + 1), Cells(ActCellRow, i + 1)).FillDown If i = Columns.Count - 1 Then Exit For End If Next i .ScreenUpdating = True End With End Sub |
Буду признателен за помощь)