Вставить новую строку на основе текста ячейки в столбце C

Question

Я пытаюсь добавить пустую строку, если значения ячеек в столбце C «Подтвердить».Это возможно?Я хочу, чтобы макрос добавлял пустые строки ниже до последней активной строки листа, если он находит «Подтвердить» в столбце C.

С уважением, Арджун TA

Answer 1

Option Explicit

Sub blankAfterConfirm()

    Dim rng As Range, fnd As Range, addr As String

    With Worksheets("sheet3").Range("C:C")
        Set rng = .Find(what:="confirm", After:=.Cells(1), MatchCase:=False, _
                        LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
                        SearchDirection:=xlNext, SearchFormat:=False)
        If Not rng Is Nothing Then
            addr = rng.Address(0, 0)
            Set fnd = rng
            Do
                Set fnd = Union(fnd, rng)
                Set rng = .FindNext(After:=rng)
            Loop Until addr = rng.Address(0, 0)

            fnd.Offset(1, 0).EntireRow.Insert
        End If
    End With
End Sub

Answer 2

Под ред.

Dim x As Long, lRow As Long

lRow = Sheet1.Cells(Rows.Count, 3).End(xlUp).Row

    For x = lRow To 2 Step -1
        If Cells(x, 3).Value = "Confirm" Then
            With Cells(x, 3).Offset(1).EntireRow
                .Insert Shift:=xlDown
                .ClearFormats
            End With
        End If
    Next x