将文本框条目与包含文本(字母数字和'-')的列进行比较，如果发现重复项，则向用户发出警报

Question

我有一个列，其中包含由字母数字字符和特殊字符'-‘组成的文本，如Kat-1、Amp-2、Xua-09等。我尝试了以下代码，但它似乎无法识别像Kat-1这样的重复文本。有没有人能检查一下这段代码有什么问题？

Private Sub txt_BPName_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim myrange As Range
Dim match As Boolean
Dim val
Set myrange = Worksheets("Sheet1").Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).row)
match = WorksheetFunction.CountIf(myrange, val) > 0
If match Then
MsgBox ("Duplicate")
Cancel = True
End If
End Sub

Answer 1

我认为您应该看看instr()函数。您可以循环遍历列，并使用for循环将列中的每个单元格与文本框值进行比较。这可能是最简单的解决方案。如果你张贴了你的speadsheet的摘录，那么编辑你的函数就会更容易。