在单元格中匹配相同的名称

我试图写一个macros，所以当用户select的combobox的值相同时，它应该在下面的单元格中输出“Checked”。 这里的代码工作正常：

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”： m1_day1.Value 24等

Answer 1

正确显示:(无replace）

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

让细胞有"3,6,14,26"它将被改为",3,6,14,26,"并寻找",6," => 26不会计数

Answer 2

用这个。 它只会取代您将从combobox中select的值。

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