Excel如何一次性批量實(shí)現(xiàn)對(duì)多個(gè)內(nèi)容的“查找并替換”？
2問題解答
解決這樣的問題，還是用VBA代碼快速的實(shí)現(xiàn)吧。
01.準(zhǔn)備對(duì)應(yīng)表
首先我們需要在G:H列準(zhǔn)備好查找內(nèi)容和替換為內(nèi)容的對(duì)應(yīng)表。如下圖所示：
02.進(jìn)入VBA代碼編輯器
鼠標(biāo)右擊工作表名稱標(biāo)簽，點(diǎn)擊【查看代碼】命令（或按快捷鍵Alt+F11鍵）進(jìn)入VBA代碼編輯器的窗口。
03.復(fù)制并粘貼代碼
復(fù)制下面的那段VBA代碼并粘貼至VBA代碼編輯器窗口內(nèi)。
04.運(yùn)行代碼
點(diǎn)擊代碼器窗口上方的【運(yùn)行-運(yùn)行子過程/用戶窗體】命令。
代碼如下：
Sub 公眾號(hào)Excel情報(bào)局()
Dim arr, brr, j&, i&
arr = Range("G2:H4"): brr = Range("B2:B7")
For j = 1 To UBound(brr)
For i = 1 To UBound(arr)
brr(j, 1) = Replace(brr(j, 1), arr(i, 1), arr(i, 2))
Next i
Next j
Range("B2:B7").Value = brr
End Sub
轉(zhuǎn)載：Excel如何一次性批量實(shí)現(xiàn)對(duì)多個(gè)內(nèi)容的“查找并替換”？ - 知乎 (zhihu.com)
標(biāo)簽：
