Страницы: 1
RSS
Вставить пустые строки ниже при определенном условии, Необходимо вставить ниже пустые строки при определенном условии
 
Добрый день. Помогите пожалуйста написать формулу или макрос. Таблица очень большая и вручную не получится. В приложении маленький пример. Согласно примера в приложении: Если в ячейке А2 содержится "совм./1", то нужно вставить под этой строкой 2 пустые строки, если "совм./2", то нужно ниже вставить 5 пустых строк, если нет слова "совм.", но есть "/1", то 5 пустых строк, если нет слова "совм.", но есть "/2", то 11 пустых строк. И так для каждой заполненной ячейки
 
Юси, Показали б результат, который должны получить.
Строк у вас не много и, вроде, все понятно, но не люблю гадать...
Изменено: Михаил Витальевич С. - 21.09.2020 18:43:54
 
Код
Sub Rows_Insert()
    Dim i
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        Select Case True
            Case Cells(i, 1) Like "*совм./1*"
                Cells(i + 1, 1).Resize(2).EntireRow.Insert
            Case Cells(i, 1) Like "*совм./2*"
                Cells(i + 1, 1).Resize(5).EntireRow.Insert
            Case Cells(i, 1) Like "*/1*"
                Cells(i + 1, 1).Resize(5).EntireRow.Insert
            Case Cells(i, 1) Like "*/2*"
                Cells(i + 1, 1).Resize(11).EntireRow.Insert
        End Select
    Next
End Sub


можно в модуль листа
Изменено: Михаил Витальевич С. - 21.09.2020 19:16:53
Страницы: 1
Наверх