在Excel VBA中将列的元素与其他列匹配

Question

我是VBA的新手。我有两列名为＆＃39; Code＆＃39;和＆＃39;姓名＆＃39;例如，在名为 Sheet1

的工作表中

我想要做的是＆＃39; Code＆＃39;应该与名称的每个单元格进行比较。然后，如果序列中的某些部分匹配，则会出现一个名为“匹配”的分隔列。 （如上所述）应显示“是”＆＃39;或者没有＆＃39;除了专栏＆＃39;代码＆＃39;。例如，首先是'Wreakhavoc＆＃39;在＆＃39; Code＆＃39;使用＆＃39;名称＆＃39;检查列然后可以看到Wreakhavoc和＆＃39; Reak＆＃39;匹配（两个单词的某些部分按顺序匹配）然后匹配＆＃39;匹配＆＃39;显示是，因为序列中存在一些匹配。

Answer 1

你可以试试这个：

Sub Main()
    Dim cell As Range, f As Range

    With Range("A3", Cells(Rows.Count, 1).End(xlUp))
        For Each cell In Range("E3", Cells(Rows.Count, 5).End(xlUp))
            Set f = .Find(what:=cell.Value2, lookat:=xlPart, LookIn:=xlValues, MatchCase:=False)
            If Not f Is Nothing Then Cells(f.Row, 3).Value2 = "yes"
        Next
        If WorksheetFunction.CountBlank(.Offset(, 2)) > 0 Then .Offset(, 2).SpecialCells(xlCellTypeBlanks).Value = "No"
    End With
End Sub

我假设代码在A列（列索引= 1）中，匹配在C列（列索引= 3）和名称在E列（列索引= 5）。

否则，请根据需要更改列名和索引。