Замена кода на SQL - VBA

Формулировка задачи:

Доброго времени суток! На коленке быстренько настрочил вот такой код:

                    Листинг программы
                
 
                        
                          
                    
  count = 0
  Sheets("Raz").Select
  For i = 1 To sch2
   Massiv(i) = Cells(i, 17).Value
  Next i
 
 Sheets("Dva").Select
  For j = 2 To sch1
    For i = 1 To sch2
      If Cells(j, 6).Value = Massiv(i) Then
        Cells(j, 11).Value = "Найдено!"
        count = count + 1
        GoTo speed:
      End If
    Next i
speed:
  Next j

Работает хорошо. Но количество данных в листах будет в разы увеличено. И уже сейчас, при sch1 = 410, а sch2 = 135 000, обработка занимает 4 минуты. А будет около 10 000 строк в первой переменной и 1 000 000 во второй. Можно ли как-то ускорить данную обработку? Посоветовали использовать обработку через SQL-запрос, но я с ним не знаком. Подскажете? :-)

null

Немного подумав, усовершенствовал, чтобы в будущем быстрее было. Но вопрос об sql открыт

Решение задачи: «Замена кода на SQL»

textual
                            Листинг программы 
                        
If Cells(j, 6).Value > Massiv(i)