Como usar o operador like em vba (com exemplos)

Você pode usar o operador Like no VBA para determinar se uma string contém um padrão específico.

Por exemplo, você pode usar a seguinte sintaxe para verificar se cada string no intervalo de células A2:A10 contém a substring “hot” e exibir os resultados no intervalo B2:B10 :

 SubCheckLike ()

Dim i As Integer
    
For i = 2 To 10
    If Range("A" & i) Like "*hot*" Then
        Range("B" & i) = "Contains hot"
    Else
        Range("B" & i) = "Does not contain hot"
    End If
Next i
    
End Sub

O exemplo a seguir mostra como usar essa sintaxe na prática.

Exemplo: como usar o operador Like em VBA

Suponha que temos a seguinte lista de alimentos no Excel:

Podemos criar a seguinte macro para verificar se cada string na coluna A contém a substring “hot” e exibir os resultados na coluna B:

 SubCheckLike ()

Dim i As Integer
    
For i = 2 To 10
    If Range("A" & i) Like "*hot*" Then
        Range("B" & i) = "Contains hot"
    Else
        Range("B" & i) = "Does not contain hot"
    End If
Next i
    
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

A coluna B indica se cada célula correspondente na coluna A contém ou não a substring “quente”.

Observe que usamos asteriscos ( * ) ao redor da substring para indicar que qualquer caractere pode vir antes ou depois da string “quente” na célula.

Se quisermos verificar se cada string começa com “hot”, poderíamos colocar um asterisco somente após a substring:

 SubCheckLike ()

Dim i As Integer
    
For i = 2 To 10
    If Range("A" & i) Like "hot*" Then
        Range("B" & i) = "Starts with hot"
    Else
        Range("B" & i) = "Does not start with hot"
    End If
Next i
    
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

A coluna B indica se cada célula correspondente na coluna A começa ou não com “quente”.

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns usando VBA:

VBA: Como contar ocorrências de caracteres em uma string
VBA: como verificar se uma string contém outra string
VBA: Como contar células com texto específico