Sub СортировкаZ3массив44()
Dim x, i&
Dim tm#: tm = Timer
With Sheets("Сортировка")
     x = .Range("A1", .Cells(Rows.Count, 1).End(xlUp)).Value
End With
With Sheets("Общий").Columns(1)
     For i = 1 To UBound(x)
         If x(i, 1) > 0 Then
             If Not .Find(x(i, 1), LookAt:=xlWhole) Is Nothing Then x(i, 1) = "" Else x(i, 1) = "zzz"
         End If
     Next i
End With
Sheets("Сортировка").Range("C1").Resize(i - 1).Value = x
MsgBox Timer - tm
End Sub

'из листа Общий ищем соответствия на листе Сортировка и пишем на лист Общий
Sub СортировкаZ3массив33()
Dim x, i&, r As Range
Dim tm#: tm = Timer
With Sheets("Общий") 'что ищем
     x = .Range("A1", .Cells(Rows.Count, 1).End(xlUp)).Value
End With
With Sheets("Сортировка").Columns(1) 'а где ищем? ...на листе Сортировка
     For i = 1 To UBound(x)
         Set r = .Find(x(i, 1), LookAt:=xlWhole)
         If r Is Nothing Then x(i, 1) = "zzz" Else x(i, 1) = r(1, 2)
     Next i
End With
'... и пишем на лист Общий в ст. Е
Sheets("Общий").Range("E1").Resize(i - 1).Value = x
MsgBox Timer - tm
End Sub

'ищем соответствия на листе Общий и пишем на лист Сортировка
Sub СортировкаZ6массив22()
Dim x, i&, r As Range
d1 = Time
With Sheets("Сортировка") 'что ищем
     x = .Range("A1", .Cells(Rows.Count, 1).End(xlUp)).Value
End With
With Sheets("Общий").Columns(1) 'а где ищем? ...на листе Общий <img rel="usm" src="http://www.excelworld.ru/sml2/smile.gif" border="0" align="absmiddle" alt=":)" />
     For i = 1 To UBound(x)
         Set r = .Find(x(i, 1), LookAt:=xlWhole) 'собственно поиск
         If r Is Nothing Then x(i, 1) = "zzz" Else x(i, 1) = r(1, 2)
     Next i
End With
'... и пишем на лист Сортировка в ст. Е
Sheets("Сортировка").Range("E1").Resize(i - 1).Value = x
Beep
d2 = Time
Время = MsgBox((DateDiff("n", d1, d2) \ 60 & " час " & DateDiff("n", d1, d2) Mod 60 & " мин " & DateDiff("s", d1, d2) Mod 60 & " сек"), 0, "Затрачено:")
End Sub