Gabriel, se entendi, você quer localizar se nos textos das celulas temos a palavra "SPE", se for isto, não precisa do "SPLIT", existe outras formas, mas uma delas é utilizar o Operador "LIKE" - Usado para comparar duas sequências de caracteres, e tambem em sua rotina, uma vez que está se referindo a uma coluna, o certo é começar a verificação de baixo para cima, senão, na instrução :
i = i + 1 ... Cells(i, 1).Activate
irá somar 1 e ignorar a linha deletada e consequentemente deixar de deletar algumas linhas.
Teste a rotina abaixo e veja se é isto, a mesma não é minha, eu só fiz uns ajustes, os créditos são do benzadeus que prestou assistência no tópico - viewtopic.php?f=10&t=4821#.
Sub Exemplo()
Dim lRow As Long
Dim lLast As Long
Dim sPlanilha As String 'Aba a verificar
Dim sColBusca As String 'Coluna a verificar
Dim SeachString 'Palavra a procurar
'Procura por ...
SeachString = "SPE"
'Altere os valores abaixo, se necessário:
sPlanilha = "Plan1"
sColBusca = "A"
With Worksheets(sPlanilha)
'Obtém a última linha da coluna de busca:
lLast = .Cells(.Rows.Count, sColBusca).End(xlUp).Row
'Considerando que a primeira linha é o cabeçalho:
For lRow = lLast To 2 Step -1
'Armazena o texto da celula
palavra = .Cells(lRow, sColBusca)
'Verifica se tem a palavra no texto
Compara = palavra Like "*" & SeachString & "*"
'Se Verdadeiro deleta a linha
If Compara Then
.Rows(lRow).Delete
End If
Next lRow
End With
End Sub
Qualquer duvida, retorne.
[]s
Postado : 16/08/2017 6:47 pm