EXCEL怎么批量替换，不同数据对应成一个相同的值

Question

A列中出现B列地名替换为中国，A列中地名出现位置不规律，A列6W个词

Answer 1

一般的函数很难完成这个替换，需要用VBA 来执行，利用字典和替换字符函数来完成，代码很简单，如下：

Sub 替换()

Dim Dic As Variant

n = Cells(Rows.Count, 2).End(xlUp).Row

Set Dic = CreateObject("Scripting.Dictionary")

For i = 2 To n

Dic(Cells(i, 2).Value) = "中国"

Next

arr = Dic.keys

n = Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To n

For j = 0 To UBound(arr)

If Application.IsError(Application.Find(arr(j), Cells(i, 1))) = False Then

Cells(i, "a") = Application.Substitute(Cells(i, 1), arr(j), "中国")

Exit For

End If

Next

Next

End Sub

Answer 2

2,然后把旁边一列当辅助列，2,然后把旁边一列当辅助列，第一空格打进1，第二空格打入公式：=if($a3=$a2,2,1),然后2,然后把旁边一列当辅助列，第一空格打进1，第二空格打入公式：=if($a3=$a2,2,1),然后按下回车键就行回车键就行空格打进1，第二空格打入公式：=if($a3=$a2,2,1),然后按下回车键就行

Answer 3

录一个查找替换的宏（选项里单元格匹配），赋予一个按钮，每次点一下按钮就OK了。
Sub Macro2()
'
' Macro2 Macro
'
'
Cells.Replace What:="1", Replacement:="玉米", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="2", Replacement:="莲子", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="3", Replacement:="大豆", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

这是我录制的1、2、3，可以向下复制，并修改一下里面的内容。本回答被网友采纳

Answer 4

1、首先对你要去除重复数据的那一列数据进行排序（升序或降序都行）
2,然后把旁边一列当辅助列，第一空格打进1，第二空格打入公式：=if($a3=$a2,2,1),然后按下回车键就行
3、拖动2中的公式应用到下面剩余的单元格中，重复出现的词旁边单元格的值变为2，否则就是1
4、点击“数据”中的筛选功能，把值为2的行筛选出来
5、直接把这些重复的行删除即可，剩下的词都是唯一的了

Answer 5