按規(guī)則的批量替換

這個估計要采用VBA編程來循環(huán)所有單元格按指定的規(guī)則對一個一個的單元格一次性替換完成，如果用一般的替換，會造成重復(fù)替換，得不到預(yù)期的結(jié)果的。
思路：讀取一個單元格中的字符串，然后判斷該字符串的長度，然后將該字符串中一個一個的字符分離出來，然后對字符進(jìn)行判斷，按照指定的規(guī)則進(jìn)行替換，完畢后，將該新的字符組合得到替換后的新字符串再來賦值給該單元格，如此反復(fù)處理每一個單元格即可。
單擊工具-宏，新建一個宏名，單擊創(chuàng)建，然后復(fù)制如下代碼并自己修改一下即可：
Dim str As String
For c = 1 To n 'n指代的是該表中該類數(shù)據(jù)所在列的最大列數(shù)，自己按實際情況修改，默認(rèn)從第1列開始
For r = 1 To m 'm指代的是該表中該類數(shù)據(jù)所在行的最大行數(shù)，自己按實際情況修改，默認(rèn)從第1行開始
nstr = Len(Cells(r, c).Text)
For i = 1 To nstr
strtmp = Mid(Cells(r, c).Text, 1, 1)
Select Case strtmp
Case "a"
strtmp = "b"
Case "b"
strtmp = "n"
Case "c"
strtmp = "v"
Case "g"
strtmp = "z"
Case "r"
strtmp = "o"
Case "h"
strtmp = "s"

'在這里把你的替換規(guī)則按上面的形式補(bǔ)充完整
End Select
str = str + strtmp
Next i
Cells(r, c).Value = str
str = ""
strtmp = ""
Next r
Next c