vba - 匹配单元格中的相同名称

Question

我正在尝试编写一个宏，因此当用户选择的组合框值中有相同的值时，它应该在下面的单元格中输出“已检查”。这里的代码工作正常:

    Dim SrchRng As Range, cel As Range

    Set SrchRng = Range("A3:G11")
    For Each cel In SrchRng
    If InStr(1, cel.Value, m1_day1.Value) > 0 Then
    cel.Offset(1, 0).Value = "Checked"
    End If
    Next cel

问题是当 m1_day1.Value是'2'，那么程序将在下面所有包含'2'的数字下方的单元格中输出“Checked”:12、20、22 24等。

Answer 1

正确显示:(无需替换)

If InStr(1, ","&cel.Value&",", ","&m1_day1.Value&",") > 0 Then

假设单元格有 "3,6,14,26"将改为 ",3,6,14,26,"并寻找 ",6," => 26 不会计数