自动替换文本以清理数据

Question

我想要一种方法来替换一个国家/地区的所有不同名称，并用一个名称替换它们，以使未来的数据透视表更有效。

例如：如果country列包含一堆不同的行 GBR，GB，UK，英国等

我想将它们全部更改为英国，而无需手动过滤它们并进行更改。有没有办法制作一张桌子然后让excel完成剩下的工作？

Answer 1

我解决了，谢谢。我制作了两个查找表，并在录制宏时使用它们。也许它可以更清洁，但我只记录了这个：

Sub Country_Region_Names（） ＆＃39; ＆＃39; Country_Region_Names宏 ＆＃39;     范围（＆＃34; Y1＆＃34）。选择     ActiveCell.FormulaR1C1 =＆＃34; - ＆＃34;     范围（＆＃34; Y1＆＃34）。选择     Selection.AutoFill Destination：= Range（＆＃34; Y1：BA1＆＃34;），Type：= xlFillDefault     范围（＆＃34; Y1：BA1＆＃34）。选择     ActiveWindow.SmallScroll ToRight：= - 2     范围（＆＃34; BB1＆＃34）。选择     ActiveCell.FormulaR1C1 =＆＃34; NewCountry＆＃34;     范围（＆＃34; BB2＆＃34）。选择     ActiveCell.FormulaR1C1 = _         ＆＃34; = IFERROR（VLOOKUP（RC [-35]，＆＃39;国家查找表＆＃39;！R [2] C [-52]：R [228] C [-51]，2,0） ＆＃34;＆＃34;＆＃34;＆＃34;）＆＃34;     范围（＆＃34; BB2＆＃34）。选择     Selection.AutoFill Destination：= Range（＆＃34; BB2：BB1045＆＃34;），Type：= xlFillDefault     范围（＆＃34; BB2：BB1045＆＃34;）选择。     ActiveWindow.SmallScroll Down：= - 1172     ActiveWindow.SmallScroll ToRight：= - 34     ActiveWindow.SmallScroll Down：= - 1     ActiveWindow.SmallScroll ToRight：= 4     ActiveWindow.SmallScroll Down：= - 2     ActiveWindow.SmallScroll ToRight：= 8     ActiveWindow.SmallScroll Down：= - 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     范围（＆＃34; BB2＆＃34）。选择     ActiveCell.FormulaR1C1 = _         ＆＃34; = IFERROR（VLOOKUP（RC [-35]，＆＃39;国家查询表＆＃39;！R4C2：R230C3,2,0），＆＃34;＆＃34;＆＃34;＆＃34 ;）＆＃34;     范围（＆＃34; BB2＆＃34）。选择     Selection.AutoFill目的地：=范围（＆＃34; BB2：BB1045＆＃34;）     范围（＆＃34; BB2：BB1045＆＃34;）选择。     ActiveWindow.SmallScroll Down：= 933     ActiveWindow.SmallScroll ToRight：= - 1     ActiveWindow.SmallScroll Down：= - 1069     范围（＆＃34; BC1＆＃34）。选择     ActiveCell.FormulaR1C1 =＆＃34; Region＆＃34;     范围（＆＃34; BC2＆＃34）。选择     ActiveCell.FormulaR1C1 =＆＃34;＆＃34;     范围（＆＃34; BB2＆＃34）。选择     Selection.Copy     范围（＆＃34; BC2＆＃34）。选择     ActiveSheet.Paste     Application.CutCopyMode = False     ActiveCell.FormulaR1C1 = _         ＆＃34; = IFERROR（VLOOKUP（RC [-1]，＆＃39;国家查询表＆＃39;！R4C5：R230C6,2,0），＆＃34;＆＃34;＆＃34;＆＃34 ;）＆＃34;     范围（＆＃34; BC2＆＃34）。选择     Selection.AutoFill目的地：=范围（＆＃34; BC2：BC256＆＃34;）     范围（＆＃34; BC2：BC256＆＃34）。选择 结束子