Макрос добавления строки

@Александр_80 · Регистрация: 02.12.2018

Author24 — интернет-сервис помощи студентам

здравствуйте!!! Помогите пожалуйста!

Нужно написать макрос который будет добавлять строку в таблицу.
- Если в столбце А:А ячейка больше ноля
- то ниже этой ячейки нужно добавить строку
- и скопировать число после которого добавилась строка
- и так по всему столбцу.

Заранее спасибо!!!

@КостяФедореев · 14.07.2021, 14:08

Александр_80,

Visual Basic

Public Sub www()
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        If Cells(i, 1) > 0 Then
            Rows(i + 1).Insert Shift:=xlDown
            Cells(i + 1, 1) = Cells(i, 1)
        End If
    Next
End Sub

@Александр_80 · 14.07.2021, 14:55 **[ТС]**

КостяФедореев, Спасибо!!!!!!!

@Александр_80 0 / 0 / 0 Регистрация: 02.12.2018 Сообщений: 106
	14.07.2021, 14:55 [ТС]	3
	КостяФедореев, Спасибо!!!!!!! 0

Макрос добавления строки

Решение