使用文本部分匹配中的另一个工作表中的代码替换Column中的文本

Question

我正在寻找一种方法来扫描工作表中的列，如果代码与单独工作表上的较长版本的代码匹配，请用较长的代码替换短代码。例如，在第1列的第1行中，第1-10行包含代码“ABCD”。搜索表2第1列并找到“Code_Type_ABCD”并将第1页中的“ABCD”替换为表2中的值“Code_Type_ABCD”。表1中有50个不同的代码需要搜索并替换为表2中的值

Answer 1

我不应该为你从头开始编写代码，但我很无聊......

Sub FindInString()

    Dim rngCell_1 As Range
    Dim rngCell_2 As Range

    'loop through sheet 1
    For Each rngCell_1 In Worksheets(1).Range("A1:A10")
        'loop through sheet 2
        For Each rngCell_2 In Worksheets(2).Range("A1:A50")
            'if have found the range
            If InStr(0, rngCell_2.Text, rngCell_1.Text) <> 0 Then
                'change the value
                rngCell_1.Value = rngCell_2.Value
            End If
        Next rngCell_2
    Next rngCell_1

End Sub