Заменить числа определенными соответствующими строками программно

Question

У меня в таблице Excel большое количество цифр, которые я хочу заменить текстом. Это выглядит примерно так:

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

Я хочу, чтобы все 33 заменили на "Одежда", все 22 заменили на "Дом" и т.д. Я должен делать это ежедневно, поэтому я не Я не хочу использовать кнопку поиска и замены и пройти через 43 номера, заменяя их пользовательскими строками.

Как это можно автоматизировать?

Answer 1

Вы можете использовать макрос vba (вкладка "Разработчик" -> Visual Basic -> "Лист1" (ваш лист, на котором вам нужны замены) и вставить следующий код в редактор Visual Basic, а затем нажать "Выполнить").

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

Это самое жестко запрограммированное решение, я уверен, что есть много вещей, которые можно улучшить, хотя он и работает.
Если вы хотите добавить правило замены, просто добавьте строку

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