In excel copy the cell that contain the special text to the new collom

Posted 2020-08-04

Sub copy_specail_text()

‘Dim rl As Integer

‘Dim wl As Integer

SumRows = Sheet1.UsedRange.Rows.Count

MsgBox "sumrows is :" & SumRows

wl = 1

For rl = 1 To SumRows

    If InStr(1, Sheet1.Cells(rl, 1), "ifOutOctets.3 =") Then

        Sheet1.Cells(wl, 8) = Sheet1.Cells(rl, 1)

        wl = wl + 1

    End If

    

Next

End Sub