csv - 自动替换文本以清洁数据

Question

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

例如：如果国家列有一堆不同的行，包含 GBR、GB、UK、United Kingdom 等。

我想将它们全部更改为英国，而无需手动过滤和更改它们。有没有办法制作一张表格，然后让excel做剩下的工作？

Answer 1

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

Sub Country_Region_Names() ' ' Country_Region_Names Macro ' Range("Y1").Select ActiveCell.FormulaR1C1 = "-" Range("Y1").Select Selection.AutoFill Destination:=Range("Y1:BA1"), Type:= xlFillDefault Range("Y1:BA1").Select ActiveWindow.SmallScroll ToRight:=-2 Range("BB1").Select ActiveCell.FormulaR1C1 = "NewCountry" Range("BB2").Select ActiveCell.FormulaR1C1 = _ "=IFERROR (VLOOKUP(RC[-35],'国家查询表'!R[2]C[-52]:R[228]C[-51],2,0),"""")" Range("BB2 ").Select Selection.AutoFill Destination:=Range("BB2:BB1045"), Type:=xlFillDefault Range("BB2:BB1045").Select ActiveWindow.SmallScroll Down:=-1172 ActiveWindow。SmallScroll ToRight:=-34 ActiveWindow.SmallScroll Down:=-1 ActiveWindow.SmallScroll ToRight:=4 ActiveWindow.SmallScroll ToRight:=-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 Range("BB2").Select ActiveCell.FormulaR1C1 = _ "=IFERROR(VLOOKUP(RC[-35],'Country Lookup Table'!R4C2:R230C3,2,0),"""")" Range("BB2").Select Selection.AutoFill Destination:=Range ("BB2:BB1045") Range("BB2:BB1045").Select ActiveWindow.SmallScroll Down:=933 ActiveWindow.SmallScroll ToRight:=-1 ActiveWindow.SmallScroll Down:=-1069 Range("BC1").Select ActiveCell.FormulaR1C1 = "Region" Range("BC2").Select ActiveCell.FormulaR1C1 = "" Range("BB2").Select 选择。 Copy Range("BC2").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveCell.FormulaR1C1 = _ "=IFERROR(VLOOKUP(RC[-1],'Country Lookup Table'!R4C5:R230C6,2,0)," """)" Range("BC2").Select Selection.AutoFill Destination:=Range("BC2:BC256") Range("BC2:BC256").Select End SubBB2").Select Selection.Copy Range("BC2").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveCell.FormulaR1C1 = _ "=IFERROR(VLOOKUP(RC[-1],'Country Lookup Table'!R4C5:R230C6 ,2,0),"""")" Range("BC2").Select Selection.AutoFill Destination:=Range("BC2:BC256") Range("BC2:BC256").Select End SubBB2").Select Selection.Copy Range("BC2").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveCell.FormulaR1C1 = _ "=IFERROR(VLOOKUP(RC[-1],'Country Lookup Table'!R4C5:R230C6 ,2,0),"""")" Range("BC2").Select Selection.AutoFill Destination:=Range("BC2:BC256") Range("BC2:BC256").Select End Sub