多条件的字段替换

票留记

求大神帮忙弄下。

要求根据替换条件，替换原有的内容。

多字段替换.zip (8.56 KB, 下载次数: 4)

2019-6-13 22:58 上传

点击文件名下载附件

票留记

Sub sbtdata()
    Dim rng As Range, r, i&
    Set rng = [a:f]
    r = [k2:l12]
    For i = 1 To UBound(r)
   
        Columns("B:B").Select
        election.Replace What:=r(i, 1), Replacement:=r(i, 2), LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False, SearchFormat:=True, ReplaceFormat:=True
    Next
End Sub

这vba+宏的代码？通过不了。

票留记

类似代码？
Sub Macro1()
    Dim arr, i&
    arr = Range("A1:A" & Range("A65536").End(xlUp).Row)
    With CreateObject("VBScript.RegExp")
        .Pattern = "[人民|万]"
        .Global = True
        .IgnoreCase = False
        For i = 1 To UBound(arr)
            arr(i, 1) = .Replace(arr(i, 1), "")
        Next
    End With
    [b1].Resize(i - 1) = arr '写到B列
End Sub

shi353

Sub ttt1()
arr = [A2].CurrentRegion
brr = [D2].CurrentRegion
'--------------------------------
For i = 2 To UBound(arr)
    For j = 2 To UBound(brr)
        arr(i, 2) = Replace(arr(i, 2), brr(j, 1), brr(j, 2))
    Next
Next
'--------------------------------
[j2].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

票留记

已解决，谢谢shi353。

15810910132

1. =SUBSTITUTE(B3,$D$3:$D$5,$E$3:$E$5)

复制代码

数组函数