Сравните запись в текстовом поле с столбцом, содержащим текст (буквенно-цифровой с '-'), если найден дубликат, а затем оповестить пользователя

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. Это, наверное, самое простое решение. Если вы разместите выдержку из вашей таблицы, было бы проще редактировать вашу функцию для работы.