Проверка макросом на дублирование при копировании данных с Userform

[Number_30]

Доброго времени суток господа

Есть следующий код на кнопке "Копировать"

Private Sub CommandButton1_Click()
Dim lItem As Long
Dim strSelected As String
Dim iRow As Long
Dim newlist As Worksheet
Set newlist = Worksheets("Лист1")

For lItem = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(lItem) = True Then
        
    iRow = newlist.Cells(Rows.Count, 2).End(xlUp).Offset(1, 2).Row
    
    With newlist
    .Cells(iRow, 1).Value = ListBox1.List(lItem, 0)
    .Cells(iRow, 2).Value = ListBox1.List(lItem, 1)
    .Cells(iRow, 3).Value = ListBox1.List(lItem, 2)
    End With
    
End If
Next lItem

End Sub

Суть кода в том, что при нажатии на кнопку, на новый лист копируются выбранные строки из Listbox-а. Копируются на первую пустую строку.

Вопрос - как прописать, чтобы он перед копированием проверял на дубляж - т.е., если такая строка уже существует на новом листе в предыдущих строках, он показывал бы сообщение о возможном дубляже и запретил копирование.

Спасибо заранее за помощь!

[DiemonStar]

а не проще скопировать, а потом убрать с помощью

.RemoveDuplicates

?

если строка одна, то можно использовать

.Find

[Number_30]

Конечно проще, но нужно чтобы было именно как описано выше - с окном о предупреждении о дубляже.

[Скрипт]

Number_30, используйте Excel-команду Find.
Чтобы получить большую часть синтаксиса команды Find, включите макрорекорер и выполните в Excel поиск чего-нибудь.

Если будет долго код работать (несколько минут), то попробуйте использовать массив или Dictionary.
Помещаете данные из Excel в массив или Dictionary, а затем данные просматриваются в массиве или Dictionary.