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)