Excel如何快速批量替换？

excel替换

excel替换

数组来公式源：zhidao
=TEXTJOIN(" ",,MID("= '"&FILTERXML("<a><b>"&SUBSTITUTE(SUBSTITUTE(A1,"/&","' OR</b><b>"),"&","' AND</b><b>")&"</b></a>","//b"),{4,1},{3,99}))&"'"

这个，既然已经有对zd照表了，就用宏吧

假设对照表在Sheet2里，A列为原版名，B列为替换权后名，要替换Sheet1里。

sub tihuan()
    arr=worksheets("Sheet2").[a1].currentregion
    for i=1 to ubound(arr,1)
        with worksheets("Sheet1")
            .Cells.Replace What:=arr(1), Replacement:=arr(i,2), LookAt:=xlWhole
        end with
    next
end sub