Macro do Excel para auto localizar e substituir como texto?

Eu tenho uma planilha do excel com dados brutos para os candidatos a um colégio. Eu tenho uma coluna com os empregadores recorrente, no entanto já que o estudante tipos no empregador-se a palavra tipo que pode ser diferente do que outros. Por exemplo pode ser US Army, Exército dos EUA e exército dos Estados Unidos. Preciso de uma macro que irá utilizar um caractere curinga para localizar uma palavra em uma determinada coluna e substituí-lo com uma palavra uniforme assim no exemplo ele iria encontrar todos os empregadores na coluna que incluem exército e substituí-lo com o exército dos EUA.

Resposta

Por que não usar um manipulador de eventos para substituí-lo aquando da entrada na célula. Por exemplo, o manipulador de eventos a seguir vai fazer exatamente o que você deseja para qualquer célula na coluna uma (coluna 1).

Copie o seguinte manipulador de eventos para a área de transferência:

Private Sub Worksheet_Change(ByVal Target As Range)

Se Target.Column = 1 Then

Se gosta de Target.Value " exército ", em seguida,

Target.Value = "US Army"

End If

End If

EndSub

Selecione a planilha que contém as células a avaliar e clique com o botão direito na guia da planilha.

Selecione 'Exibir código'.

Cole o manipulador de eventos em branco editando a área à direita.

Feche o VBE e retornar à planilha.

Insira qualquer um dos exemplos de "exército" na sua pergunta e eles serão imediatamente convertidos para 'Exército'.

Nota: Isto irá, como o poster anterior apontado, tosse até uma bola de cabelo para pessoas que trabalharam para o exército da salvação, Ecuatorianos exército, exército russo, etc.

Além disso, se você deseja restringir a avaliação a determinadas uma célula específica, dizer A1, você pode modificar o código para:

Private Sub Worksheet_Change(ByVal Target As Range)

Se target = "$ A$ 1", em seguida,

Se gosta de Target.Value " exército ", em seguida,

Target.Value = "US Army"

End If

End If

EndSub