Sub RngReplace(rng As Range, findstr, replaceStr)
    'RngReplace(单元格, 查找值, 替换值)
    rng.Replace What:=findstr, Replacement:=replaceStr, LookAt:=xlPart, SearchOrder _
    :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub