Substitua números com certas seqüências correspondentes programaticamente

Question

Eu tenho uma grande quantidade de números em uma planilha do Excel que quero substituir por texto. Parece algo assim:

33
33
33
33
22
21
22
29
49
95
43
23
45
12
11
22

Eu quero que todos os 33 sejam substituídos por "Vestuário", todos os 22 sejam substituídos por "Casa", etc. Eu tenho que fazer isso no dia a dia dia, por isso não quero usar o botão de pesquisa e substituição e passar por 43 números, substituindo-os por sequências personalizadas.

Como isso pode ser automatizado?

    

Answer 1

Você pode usar a macro vba (guia Desenvolvedor - > Visual Basic - > Folha1 (sua planilha onde você precisa de substituições) e colar o seguinte código ao editor visual básico e clicar em "executar")

Sub ReplaceNumbers()
With Range("A1:A20000")
    .Replace "33", "Clothing", xlWhole, , True
    .Replace "22", "House", xlWhole, , True
End With
End Sub

Essa é a solução mais codificada, tenho certeza de que há muitas coisas que podem ser melhoradas, achei que funciona.
Se você quiser adicionar regra de substituição, basta adicionar linha

.Replace "Number-to-replace", "Replacement", xlWhole, , True