带有关键词的反向替换

njwtg

老师好，请问如何实现带有关键词的反向替换


从第二行开始
1、当“明细表”的 I 列出现本表 C 列中的关键词，且“明细表”的 H 列完全等于本表的 B 列，
2、用本表的 D 列值替换“明细表” I 列“【*】”
比如“明细表”的第18行就被替换为
.▲DF        损坏厚


谢谢老师！！！

liulang0808

Sub 按钮2_Click()
    Set d = CreateObject("scripting.dictionary")
    r = Sheets("汇总表").Cells(Rows.Count, 2).End(3).Row
    arr = Sheets("汇总表").[a1].Resize(r, 4)
    ptn = ""
    For j = 2 To UBound(arr)
        If Len(arr(j, 3)) > 0 Then
            d(arr(j, 2) & arr(j, 3)) = arr(j, 4)
            ptn = ptn & "|" & arr(j, 3)
        End If
    Next j
    arr = Sheets("明细表").UsedRange
    With CreateObject("vbscript.regexp")
        .Pattern = Mid(ptn, 2)
        For j = 2 To UBound(arr)
            If .test(arr(j, 9)) Then
                m = .Execute(arr(j, 9))(0).Value
                str1 = arr(j, 8) & m
                If d.exists(str1) Then
                    arr(j, 9) = Replace(arr(j, 9), m, "【" & d(str1) & "】")
                End If
            End If
        Next
    End With
    Sheets("明细表").UsedRange = arr
End Sub

liulang0808

供参考。。。。。。。

zxsea_7426

为了区分前后不同，输出到N列:并进行标黄色

鄂龙蒙

反向替换.rar (29.17 KB, 下载次数: 4)

2022-12-15 21:09 上传

点击文件名下载附件

njwtg

谢谢2位老师，很好用，方便多了

你地铁图

1. Sub ss()
   
2.     Application.ScreenUpdating = False
   
3.     Dim r As Range, ro As Range, hr As Range, hro As Range
   
4.     Worksheets("明细表").Activate
   
5.     For Each r In Range("h1:h" & Range("h65536").End(xlUp).Row)
   
6.        Set ro = r.Offset(, 1)
   
7.        For Each hr In Worksheets("汇总表").Range("b2:b" & Worksheets("汇总表").Range("b65536").End(xlUp).Row)
   
8.             Set hro = hr.Offset(, 1)
   
9.             If hr.Value = r.Value And Left(ro.Value, Len(hro)) = hro.Value Then
   
10.                 ro.Value = "【" & hro.Offset(, 1).Value & "】" & Mid(ro.Value, InStr(ro.Value, "】") + 1, Len(ro.Value) - InStr(ro.Value, "】"))
    
11.             End If
    
12.        Next
    
13.     Next
    
14.     Application.ScreenUpdating = True
    
15. End Sub
    
16. 
    

复制代码

你地铁图

？？？？这种效果

你地铁图

循环，不太会数组