Como usar localizar e substituir em vba (com exemplos)

Você pode usar os seguintes métodos para localizar e substituir strings específicas em um intervalo usando VBA:

Método 1: localizar e substituir strings (sem distinção entre maiúsculas e minúsculas)

 Sub FindReplace()
Range(" A1:B10 ").Replace What:=" Mavs ", Replacement:=" Mavericks "
End Sub

Esta macro específica substituirá todas as ocorrências de “Mavs” por “Mavericks” no intervalo A1:B10 .

Método 2: localizar e substituir strings (diferencia maiúsculas de minúsculas)

 Sub FindReplace()
Range(" A1:B10 ").Replace What:=" Mavs ", Replacement:=" Mavericks ", MatchCase:= True
End Sub

Esta macro específica substituirá todas as ocorrências de “Mavs” por “Mavericks” no intervalo A1:B10 somente se o caso corresponder a .

Por exemplo, a string “mavs” não seria substituída porque não corresponde precisamente ao caso de “Mavs”.

Os exemplos a seguir mostram como usar esse método na prática com o seguinte conjunto de dados no Excel:

Exemplo 1: Localizar e substituir strings usando VBA (sem distinção entre maiúsculas e minúsculas)

Digamos que queremos substituir todas as ocorrências de “Mavs” por “Mavericks” no intervalo A1:B10 .

Podemos criar a seguinte macro para fazer isso:

 Sub FindReplace()
Range(" A1:B10 ").Replace What:=" Mavs ", Replacement:=" Mavericks "
End Sub

Quando executamos esta macro, recebemos os seguintes resultados:

Observe que cada ocorrência de “Mavs” foi substituída pela string “Mavericks” na coluna da equipe.

Exemplo 2: Encontre e substitua strings usando VBA (diferencia maiúsculas de minúsculas)

Suponha que queiramos substituir cada ocorrência de “Mavs” por “Mavericks” no intervalo A1:B10 somente se o caso corresponder a .

Podemos criar a seguinte macro para fazer isso:

 Sub FindReplace()
Range(" A1:B10 ").Replace What:=" Mavs ", Replacement:=" Mavericks ", MatchCase:= True
End Sub

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

Observe que esta substituição diferencia maiúsculas de minúsculas .

Isto significa que cada ocorrência de “Mavs” é substituída, mas cada ocorrência de “mavs” é deixada sozinha.

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