Автоматическая замена текста для очистки данных

Question

Я хотел бы, чтобы заменить все разные имена для страны и заменить их одним именем, чтобы повысить эффективность будущих сводных таблиц.

Например: Если столбец страна имеет кучу разных строк, содержащий GBR, GB, Великобритания, Великобритания и т.д.

Я хочу, чтобы изменить их все в Соединенном Королевстве без необходимости вручную фильтровать их и измените их. Есть ли способ сделать таблицу, а затем позволить excel выполнять остальную часть работы?

Answer 1

Я решил это спасибо. Я сделал две таблицы поиска и использовал их во время записи макроса. Может быть, это может быть немного чище, но я только что записал это:

Sub Country_Region_Names() ' ' Country_Region_Names Макро ' Range ("Y1") Выберите ActiveCell.FormulaR1C1 = "-" Range (. «Y1»). Выберите Selection.AutoFill Назначение: = Диапазон («Y1: BA1»), Тип: = xlFillDefault Диапазон («Y1: BA1»). Выберите ActiveWindow.SmallScroll ToRight: = - 2 Диапазон (" BB1 "). Выберите ActiveCell.FormulaR1C1 =" NewCountry " Диапазон (" BB2 "). Выберите ActiveCell.FormulaR1C1 = _ "= IFERROR (VLOOKUP (RC [-35],« Таблица поиска в стране »! R [2] C [-52]: R [228] C [-51], 2,0)," "" ")" . Range ("ВВ2") Выберите Selection.AutoFill Destination: = Range ("ВВ2: BB1045"), Тип: = xlFillDefault Range ("ВВ2: BB1045") Выберите ActiveWindow.SmallScroll вниз:. = - 1172 ActiveWindow .SmallScroll ToRight: = - 34 ActiveWindow.SmallScroll вниз: = - 1 ActiveWindow.SmallScroll ToRight: 4 = ActiveWindow.SmallScroll вниз: = - 2 ActiveWindow.SmallScroll ToRight: = 8 ActiveWindow.SmallScroll вниз: = - 1 ActiveWindow.SmallScroll ToRight: = 3 ActiveWindow.SmallScroll Down: = - 1 ActiveWindow.SmallScroll ToRight: = 11 ActiveWindow.SmallScroll Down: = - 1 ActiveWindow.SmallScroll ToRight: = 2 ActiveWindow.SmallScroll Down:. = - 368 Range ("ВВ2") Выберите ActiveCell.FormulaR1C1 = _ «= IFERROR (ВПР (RC [ -35], «Таблица поиска в стране»! R4C2: R230C3,2,0), «» «») « Диапазон (« BB2 »). Выберите Selection.AutoFill Направление: = Диапазон (« BB2: BB1045 ») . Range ("ВВ2: BB1045") Выберите ActiveWindow.SmallScroll вниз: = 933 ActiveWindow.SmallScroll ToRight: = - 1 ActiveWindow.SmallScroll вниз: = - 1069 Range ("BC1") Выберите ActiveCell.FormulaR1C1 =. «Регион» Диапазон («BC2»). Выберите ActiveCell.FormulaR1C1 = "" Range ("ВВ2"). Выберите Selection.Copy Range ("BC2"). Выберите ActiveSheet.Paste Application.CutCopyMode = False ActiveCell.FormulaR1C1 = _ «= IFERROR (VLOOKUP (RC [-1], «Country Lookup Table»! R4C5: R230C6,2,0), «" "") " Диапазон (" BC2 "). Выберите Selection.AutoFill Destination: = Range (" BC2: BC256 ") Диапазон (" BC2: BC256 "). Выберите Конец Sub