Добавить строки перед ячейками содержащими значение "разрыв"

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Добавить строки перед ячейками содержащими значение "разрыв" (Макросы/Sub)

cojafi7743

Дата: Пятница, 15.07.2022, 22:07 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Здраствуйте.
Помогите, пожалуйста, с макросом.

Есть таблица "A3:D50". В столбце "D" вычисляется нужность разрывов.
Необходимо перед ячейками со значением "Разрыв" вставить 3 пустых строки.
На 3й вставленной строке в ячейке "B" формулу со значением ячейки "C" строкой ниже.

В файлике в столбцах "F:I" нарисовал то, что хочу в результате получить.

Спасибо.

К сообщению приложен файл: 4293020.xlsx (14.0 Kb)

Ответить

Gustav

Дата: Пятница, 15.07.2022, 23:05 | Сообщение № 2

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

[vba]

Код

Sub Макрос1()
    Dim rng As Range, i
    Set rng = Range("D1:D100")
    For i = rng.Cells.Count To 1 Step -1
        With rng.Cells(i)
            If .Value = "РАЗРЫВ" Then
                .Offset(, -3).Resize(3, 4).Insert xlDown
                .Offset(-1, -2).FormulaR1C1 = "=R[1]C[1]"
                .Offset(-1, -2).Font.Bold = True 'p.s. добавлена жирность
            End If
        End With
    Next i
End Sub

[/vba]